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

* Fixed bug 160972: fltruncate throws "not a procedure"

This commit is contained in:
Abdulaziz Ghuloum 2007-11-08 12:15:28 -05:00
parent 97d9c4ca42
commit 82c3e568c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.numerics.ss
View File

@ -2075,7 +2075,7 @@
(error 'fltruncate "not a flonum" x))
(let ([v ($flonum->exact x)])
(cond
[(ratnum? v) (exact->inexact ($ratnum-truncate x))]
[(ratnum? v) (exact->inexact ($ratnum-truncate v))]
[else x])))
(define log