;-*-Scheme-*-

(test-setup 1.2345 #f)

(let* ((new-method (-> bfloat methods 0))
       (print-method (-> bfloat methods 2))
       (my-float (the bfloat (new-method 'global bfloat)))
       )
  (set! (-> my-float data) 1.23456)
  (print-method my-float)
  (format #t "~%")
  )

(let ((x 0))
  (while (< x 9)
         (format #t "method ~d of ~A is ~A~%" x bfloat (-> bfloat methods x))
         (+1! x)
         )
  )