#225 NaN is equal to infinities

[Oleg Paraschenko]

1)

$ sisc
which: no rlwrap in
(/home/olpa/bin:/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin:/usr/games)
SISC (1.15.3)
#;> (define (gx:nan? x) (equal? x #!nan))
#;> (map gx:nan? (list (/ 0.0 0.0) (/ 1.0 0.0) (/ -1.0 0.0)))
(#t #t #t)

Should be (#t #f #f)

2)

#;> (= #!nan 2)
#t

Should be #f.

[Scott G. Miller]

Logged In: YES
user_id=25869
Originator: NO

Actually, #!nan isn't comparable even to itself, so the first value should be #f as well. Fixed in CVS.