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

improve `for' body syntax-error reporting

Browse Source 
Closes PR 12850
This commit is contained in:
Matthew Flatt 2012-06-14 15:10:13 +08:00
parent 089cb6669c
commit 16d877d45e
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/racket/private/for.rkt
View File

@ -1320,7 +1320,7 @@
(quasisyntax/loc stx (quasisyntax/loc stx
#,(wrap (quasisyntax/loc stx #,(wrap (quasisyntax/loc stx
(derived-id #,stx fold-bind (bind ...) (derived-id #,stx fold-bind (bind ...)
#,(combine #'(let () expr1 expr ...)))))))] #,(combine (syntax/loc stx (let () expr1 expr ...))))))))]
;; Let `derived-id' complain about the missing bindings and body expression: ;; Let `derived-id' complain about the missing bindings and body expression:
[(_ . rest) [(_ . rest)
#`(derived-id #,stx fold-bind . rest)]))) #`(derived-id #,stx fold-bind . rest)])))