flabs is broken

Bug #160975 reported by Michael D. Adams on 2007-11-08
4
Affects Status Importance Assigned to Milestone
Ikarus Scheme
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

Jens Axel Søgaard (soegaard) wrote :

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)))

Abdulaziz Ghuloum (aghuloum) wrote :

On Nov 8, 2007, at 12:12 PM, Jens Axel Søgaard wrote:
> In scheme/ikarus.numerics.ss change the $fl> in the definition of flabs to $fl< .

Much better than what I had :-)
Still does not work around -0.0 :-(

Will fix.

Changed in ikarus:
assignee: nobody → aghuloum
importance: Undecided → Medium
status: New → In Progress
Abdulaziz Ghuloum (aghuloum) wrote :

Fixed in revision 1010.

Changed in ikarus:
status: In Progress → Fix Committed
Abdulaziz Ghuloum (aghuloum) wrote :

This bug report is about to be closed as the fix comitted previously
will be incorporated in the next 0.0.2 release of Ikarus Scheme,
scheduled for November 28, 2007.
A release candidate tarball is available for download from:
  http://www.cs.indiana.edu/~aghuloum/ikarus/ikarus-0.0.2-rc1.tar.gz
Please do test it if you have the time and report any issues you
might encounter. Thank you very much for your support. Aziz,,,
(Sorry for the duplicates; I'm updating every open bug.)

Changed in ikarus:
milestone: none → 0.0.2
Changed in ikarus:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers