Fix source locations for TR for.

original commit: 8638a661ccd890912e3b9df6a39b628230f38127
2013-05-14 10:01:43 -04:00 · 2013-05-14 10:01:43 -04:00 · 7bd409e927
commit 7bd409e927
parent f6230841c0
1 changed files with 2 additions and 2 deletions
--- a/collects/typed-racket/base-env/prims.rkt
+++ b/collects/typed-racket/base-env/prims.rkt
@ -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 ...)