From 25587a0c50330372cb9d1e3866e682ef7f6ba4e6 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Fri, 22 Dec 2006 15:09:31 +0000 Subject: [PATCH] Correcting but that check did not use range when comparing two integer values, when range was provided. svn: r5164 --- collects/profj/libs/java/runtime.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/profj/libs/java/runtime.scm b/collects/profj/libs/java/runtime.scm index 7a028ed76e..de5e85599f 100644 --- a/collects/profj/libs/java/runtime.scm +++ b/collects/profj/libs/java/runtime.scm @@ -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