From 507afc21f4bc2b2d2d42b9bfe9caae3d9a9c2754 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Wed, 4 Aug 2010 17:46:03 -0400
Subject: [PATCH] Fixed source location for for:.

original commit: 500685c0f2b02ccc8ffb8746d93fde5b25a20ccc
---
 collects/typed-scheme/private/prims.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/typed-scheme/private/prims.rkt b/collects/typed-scheme/private/prims.rkt
index 980675b3..bf9cdbc8 100644
--- a/collects/typed-scheme/private/prims.rkt
+++ b/collects/typed-scheme/private/prims.rkt
@@ -451,7 +451,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
          (syntax-parse clauses
            [(head:for-clause next:for-clause ... #:when rest ...)
             (syntax-property
-             (quasisyntax/loc clauses
+             (quasisyntax/loc stx
                (for
                 (head.expand next.expand ...)
                 #,(loop #'(#:when rest ...))))
@@ -459,18 +459,18 @@ This file defines two sorts of primitives. All of them are provided into any mod
              #'Void)]
            [(head:for-clause ...) ; we reached the end
             (syntax-property
-             (quasisyntax/loc clauses
+             (quasisyntax/loc stx
                (for
                 (head.expand ...)
                 #,@body))
              'type-ascription
              #'Void)]
            [(#:when guard) ; we end on a #:when clause
-            (quasisyntax/loc clauses
+            (quasisyntax/loc stx
               (when guard
                 #,@body))]
            [(#:when guard rest ...)
-            (quasisyntax/loc clauses
+            (quasisyntax/loc stx
               (when guard
                 #,(loop #'(rest ...))))])))]))