fixed minor bug in "->inexact" helper.

2009-01-03 20:03:04 -05:00 · 2009-01-03 20:03:04 -05:00 · 1ebd4f4d9a
parent 6dca996f3a
commit 1ebd4f4d9a
2 changed files with 3 additions and 3 deletions
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@ -1514,8 +1514,8 @@
      [(flonum? x) x]
      [(compnum? x) 
       (make-rectangular 
-         (->inexact (real-part x))
-         (->inexact (imag-part x)))]
+         (->inexact (real-part x) who)
+         (->inexact (imag-part x) who))]
      [(cflonum? x) x]
      [else
       (die who "not a number" x)]))
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1737
+1738