Re: bug in eqv?

[Aubrey Jaffer]

 | From: Marius Vollmer <address@hidden>
 | Date: 22 Mar 2006 01:52:40 +0200
 | 
 | Kevin Ryde <address@hidden> writes:
 | 
 | > Aubrey Jaffer <address@hidden> writes:
 | > >
 | > > Because (= 0.0 -0.0) is #t, (eqv? 0.0 -0.0) must be #t.
 | > 
 | > Ah dear, thanks.  Bit too much creativity with the nans and infs.
 | 
 | Hmm.  I think SRFI 77 (Preliminary Proposal for R6RS Arithmetic) would
 | require (eqv? 0.0 -0.0) => #f, since it says
 | 
 |     The eqv? procedure returns #f if obj1 and obj2 yield different
 |     results (in the sense of eqv?) when passed as arguments to any
 |     other procedure that can be defined as a finite composition of
 |     Scheme's standard arithmetic procedures.
 | 
 | and, for example, (eqv? (flatan2 -1.0 -0.0) (flatan2 1.0 -0.0)) => #f.
 | See also "Lucier's Proposal" in the SRFI 77 document.

SRFI-77 is the most preliminary of proposals, and guaranteed to be
withdrawn.  If you are determined that Guile chase SRFI phantoms, then
be sure to note this variance from R4RS and R5RS in the documentation.

 | I originally copied the behavior of PLT Scheme

http://swiss.csail.mit.edu/~jaffer/III/RAWI shows that there are many
differences in implementations' numerical behavior.  One could justify
nearly any choice if the act of copying were, in itself, a
justification.

 | and I'd say it is OK to follow SRFI 77 for the behavior of negative
 | zero, infinities and NaNs now that it exists.

bash-2.05b$ mzscheme
Welcome to MzScheme version 209, Copyright (c) 2004 PLT Scheme, Inc.
> (eqv? -0.0 0.0)
#t

bash-2.05b$ mzscheme-301
Welcome to MzScheme version 301, Copyright (c) 2004-2005 PLT Scheme Inc.
> (eqv? -0.0 0.0)
#f
> (equal? -0.0 0.0)
#f

bash-2.05b$ guile
guile> (eqv? -0.0 0.0)
#f
guile> (equal? -0.0 0.0)
#t

SRFI-77 does not mention equal?, so R5RS would still be in effect:

 -- library procedure: equal? obj1 obj2
     `Equal?' recursively compares the contents of pairs, vectors, and
     strings, applying `eqv?' on other objects such as numbers and
     symbols.  A rule of thumb is that objects are generally `equal?'
     if they print the same.  `Equal?' may fail to terminate if its
     arguments are circular data structures.

If -0.0 and 0.0 print differently, then there is no support for 
(equal? -0.0 0.0) ==> #t.

 | (We get (integer? +inf.0) => #f wrong, then, and probably other
 | things.)

Mzscheme also does (integer? +inf.0) ==> #t.  Does that make it right?