* Fixed bug 160972: fltruncate throws "not a procedure"
This commit is contained in:
parent
97d9c4ca42
commit
82c3e568c7
|
@ -2075,7 +2075,7 @@
|
||||||
(error 'fltruncate "not a flonum" x))
|
(error 'fltruncate "not a flonum" x))
|
||||||
(let ([v ($flonum->exact x)])
|
(let ([v ($flonum->exact x)])
|
||||||
(cond
|
(cond
|
||||||
[(ratnum? v) (exact->inexact ($ratnum-truncate x))]
|
[(ratnum? v) (exact->inexact ($ratnum-truncate v))]
|
||||||
[else x])))
|
[else x])))
|
||||||
|
|
||||||
(define log
|
(define log
|
||||||
|
|
Loading…
Reference in New Issue