flabs is broken
Bug #160975 reported by
Michael D. Adams
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
Ikarus Scheme |
Fix Released
|
Medium
|
Abdulaziz Ghuloum |
Bug Description
Also against 1007. Also one I can work around with abs.
$ ikarus
Ikarus Scheme (Build 2007-11-08)
Copyright (c) 2006-2007 Abdulaziz Ghuloum
> (flabs -0.12)
-0.12
> (abs -0.12)
0.12
Changed in ikarus: | |
status: | Fix Committed → Fix Released |
To post a comment you must log in.
In scheme/ ikarus. numerics. ss change the $fl> in the definition
of flabs to $fl< .
(define (flabs x)
(if (flonum? x)
(if ($fl< x 0.0)
($fl* x -1.0)
x)
(error 'flabs "not a flonum" x)))