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