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

fix overly pessimistic 'in-naturals' when an argument is supplied

Browse Source 
svn: r17292
This commit is contained in:
Matthew Flatt 2009-12-14 17:51:36 +00:00
parent 147f55b690
commit 294e593dd2
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1004,16 +1004,15 @@
(lambda (stx) (lambda (stx)
(let loop ([stx stx]) (let loop ([stx stx])
(syntax-case stx () (syntax-case stx ()
[[(id) (_ start)] [[(id) (_ start-expr)]
(and (integer? (syntax-e #'start))
(exact? (syntax-e #'start))
((syntax-e #'start) . >= . 0))
#`[(id) #`[(id)
(:do-in (:do-in
;; outer bindings: ;; outer bindings:
() ([(start) start-expr])
;; outer check: ;; outer check:
(void) (unless (exact-nonnegative-integer? start)
;; let `in-naturals' report the error:
(in-naturals start))
;; loop bindings: ;; loop bindings:
([pos start]) ([pos start])
;; pos check ;; pos check