From f4703d8ab619f9b7a1243bda91cf927ae6d1f9c6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 24 Apr 2008 12:06:50 +0000 Subject: [PATCH] fix double evaluation in in-range (PR 9315) svn: r9452 --- collects/scheme/private/for.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/for.ss b/collects/scheme/private/for.ss index 342c2035ac..0e9d43a273 100644 --- a/collects/scheme/private/for.ss +++ b/collects/scheme/private/for.ss @@ -871,7 +871,7 @@ ;; outer bindings: ([(start) a] [(end) b] [(inc) step]) ;; outer check: - (unless (and (real? a) (real? b) (real? inc)) + (unless (and (real? start) (real? end) (real? inc)) ;; let `in-range' report the error: (in-range start end inc)) ;; loop bindings: