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

Allow internal definitions in a `for/vector' with a #:length.

Browse Source 
Closes PR 12340.
This commit is contained in:
Eli Barzilay 2011-11-07 11:50:45 -05:00
parent bfa6b1d953
commit af3019fa5a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/private/for.rkt
View File

@ -1363,7 +1363,7 @@
(let ([v (make-vector len)]) (let ([v (make-vector len)])
(for/fold ([i 0]) (for/fold ([i 0])
(for-clause ... #:when (< i len)) (for-clause ... #:when (< i len))
(vector-set! v i (begin body ...)) (vector-set! v i (let () body ...))
(add1 i)) (add1 i))
v)))])) v)))]))
@ -1381,7 +1381,7 @@
(let ([v (make-vector len)]) (let ([v (make-vector len)])
(for*/fold ([i 0]) (for*/fold ([i 0])
(for-clause ... #:when (< i len)) (for-clause ... #:when (< i len))
(vector-set! v i (begin body ...)) (vector-set! v i (let () body ...))
(add1 i)) (add1 i))
v)))])) v)))]))