From 6c5714c0dd2221aea03de7f1d4893e5a86e506ca Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 16 Oct 2012 17:58:17 -0400
Subject: [PATCH] fix define-for-syntax within splicing-syntax-parameterize
 (cherry picked from commit 67d901ccc4c69e2b6ba3038d7ee61d4c23a9ee9d)

---
 collects/racket/splicing.rkt | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/racket/splicing.rkt b/collects/racket/splicing.rkt
index 2168b49d7f..797acf05c1 100644
--- a/collects/racket/splicing.rkt
+++ b/collects/racket/splicing.rkt
@@ -190,7 +190,9 @@
             (syntax-case body ( begin
                                 define-values
                                 define-syntaxes
-                                define-for-syntaxes
+                                begin-for-syntax
+                                module
+                                module*
                                 #%require
                                 #%provide )
               [(begin expr ...)
@@ -202,7 +204,9 @@
                    (letrec-syntaxes ([(sp-id) (syntax-local-value (quote-syntax temp-id))] ...)
                      rhs)))]
               [(define-syntaxes . _) body]
-              [(define-for-syntaxes . _) body]
+              [(begin-for-syntax . _) body]
+              [(module . _) body]
+              [(module* . _) body]
               [(#%require . _) body]
               [(#%provide . _) body]
               [expr (syntax/loc body