suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix double evaluation in in-range (PR 9315)

Browse Source 
svn: r9452
This commit is contained in:
Matthew Flatt 2008-04-24 12:06:50 +00:00
parent d09b8c5a78
commit f4703d8ab6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/private/for.ss
View File

@ -871,7 +871,7 @@
;; outer bindings: ;; outer bindings:
([(start) a] [(end) b] [(inc) step]) ([(start) a] [(end) b] [(inc) step])
;; outer check: ;; outer check:
(unless (and (real? a) (real? b) (real? inc)) (unless (and (real? start) (real? end) (real? inc))
;; let `in-range' report the error: ;; let `in-range' report the error:
(in-range start end inc)) (in-range start end inc))
;; loop bindings: ;; loop bindings: