From f042be8553b0f9cac53ce1b8f84cd6d7c6486a91 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Tue, 14 May 2013 10:01:43 -0400
Subject: [PATCH] Fix source locations for TR for. (cherry picked from commit
 8638a661ccd890912e3b9df6a39b628230f38127)

---
 collects/typed-racket/base-env/prims.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/typed-racket/base-env/prims.rkt b/collects/typed-racket/base-env/prims.rkt
index c8d6e7bb5f..b5cf6bb31b 100644
--- 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 ...)