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

fix syntax checking in for/vector

Browse Source 
Closes #1308
This commit is contained in:
Matthew Flatt 2016-04-16 09:48:08 -06:00
parent 8fccc07259
commit a6e773f69b
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test-core/tests/racket/for.rktl
View File

@ -549,6 +549,8 @@
;; for/fold syntax checking ;; for/fold syntax checking
(syntax-test #'(for/fold () bad 1) #rx".*bad sequence binding clauses.*") (syntax-test #'(for/fold () bad 1) #rx".*bad sequence binding clauses.*")
(syntax-test #'(for/vector ()) #rx".*missing body.*")
;; specific hash set iterators ;; specific hash set iterators
(err/rt-test (for/sum ([x (in-immutable-set '(1 2))]) x) (err/rt-test (for/sum ([x (in-immutable-set '(1 2))]) x)
exn:fail:contract? exn:fail:contract?

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

@ -1534,10 +1534,14 @@
(cond (cond
[(null? exprs) [(null? exprs)
(if (null? post-kw) (if (null? post-kw)
(raise-syntax-error #f (if (null? pre-kw)
(format "missing body form after ~a clause" (syntax-e (cadr pre-kw))) (raise-syntax-error #f
stx "missing body"
(cadr pre-kw)) stx)
(raise-syntax-error #f
(format "missing body form after ~a clause" (syntax-e (cadr pre-kw)))
stx
(cadr pre-kw)))
(list (reverse pre-kw) (reverse post-kw)))] (list (reverse pre-kw) (reverse post-kw)))]
[(memq (syntax-e (car exprs)) '(#:break #:final)) [(memq (syntax-e (car exprs)) '(#:break #:final))
(if (pair? (cdr exprs)) (if (pair? (cdr exprs))