fix double evaluation in in-range (PR 9315)
svn: r9452
This commit is contained in:
parent
d09b8c5a78
commit
f4703d8ab6
|
@ -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:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user