conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed minor bug in "->inexact" helper.

This commit is contained in:
Abdulaziz Ghuloum 2009-01-03 20:03:04 -05:00
parent 6dca996f3a
commit 1ebd4f4d9a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.numerics.ss
View File

@ -1514,8 +1514,8 @@
[(flonum? x) x] [(flonum? x) x]
[(compnum? x) [(compnum? x)
(make-rectangular (make-rectangular
(->inexact (real-part x)) (->inexact (real-part x) who)
(->inexact (imag-part x)))] (->inexact (imag-part x) who))]
[(cflonum? x) x] [(cflonum? x) x]
[else [else
(die who "not a number" x)])) (die who "not a number" x)]))

2
scheme/last-revision
View File

@ -1 +1 @@
1737 1738