Fix source locations for TR for.

(cherry picked from commit 8638a661cc)
2013-05-14 10:01:43 -04:00 · 2013-05-14 10:01:43 -04:00 · f042be8553
commit f042be8553
parent f59f57d444
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 ...)