Fix source locations for TR for.

This commit is contained in:
Vincent St-Amour 2013-05-14 10:01:43 -04:00
parent 498815a225
commit 8638a661cc

View File

@ -730,8 +730,8 @@ This file defines two sorts of primitives. All of them are provided into any mod
(define-syntax (for/annotation stx)
(syntax-parse stx
[(_ x ...)
(syntax/loc stx
(ann (for x ...) Void))]))
(quasisyntax/loc stx
(ann #,(syntax/loc stx (for x ...)) Void))]))
(define-syntax (for*/annotation stx)
(syntax-parse stx
[(_ x ...)