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

Fix for to propagate source locations in more cases.

Browse Source 
Thanks to Tobias Hammer for the patch.

Closes PR 14343.
This commit is contained in:
Vincent St-Amour 2014-02-06 15:43:34 -05:00
parent a2204a0740
commit 741a11a1b7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1233,7 +1233,8 @@
pre-guard
post-guard
[loop-arg ...]) ...) (reverse (syntax->list #'binds))])
#`(let-values (outer-binding ... ...)
(quasisyntax/loc #'orig-stx
(let-values (outer-binding ... ...)
outer-check ...
#,(syntax/loc #'orig-stx
(let for-loop ([fold-var fold-init] ...
@ -1249,7 +1250,7 @@
(for-loop fold-var ... loop-arg ... ...)
(values* fold-var ...)))
(values* fold-var ...)))
(values* fold-var ...))))))]
(values* fold-var ...)))))))]
;; Bad body cases:
[(_ [orig-stx . _] fold-bind ())
(raise-syntax-error