Correcting but that check did not use range when comparing two integer values, when range was provided.

svn: r5164
This commit is contained in:
Kathy Gray 2006-12-22 15:09:31 +00:00
parent 1d29400881
commit 25587a0c50

View File

@ -216,8 +216,8 @@
(already-seen? v1 v2 visited-v1 visited-v2)
(cond
((and (number? v1) (number? v2))
(if (or (inexact? v1) (inexact? v2))
(<= (abs (- v1 v2)) range)
(if (or (inexact? v1) (inexact? v2) (not (= range 0.0)))
(<= (abs (- v1 v2)) range)
(= v1 v2)))
((and (object? v1) (object? v2))
(cond