In ikarus.numerics.ss change in the next to last line the x to a v.
(define (fltruncate x) (unless (flonum? x) (error 'fltruncate "not a flonum" x)) (let ([v ($flonum->exact x)]) (cond [(ratnum? v) (exact->inexact ($ratnum-truncate v))] [else x])))
In ikarus.numerics.ss change in the next to last line
the x to a v.
(define (fltruncate x)
(unless (flonum? x)
(error 'fltruncate "not a flonum" x))
(let ([v ($flonum->exact x)])
(cond
[(ratnum? v) (exact->inexact ($ratnum-truncate v))]
[else x])))