From 40197835c9071073eaf0452aad251da4ed1f8ab3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 15 Aug 2011 07:06:40 -0600
Subject: [PATCH] repair `dynamic-require-for-syntax'

That primitive is probably a bad idea, but maybe it's useful
until we have separaely loadable parts of a module.
---
 src/racket/src/module.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index 2b5445459d..d600718535 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -941,7 +941,6 @@ static Scheme_Object *_dynamic_require(int argc, Scheme_Object *argv[],
     modidx = scheme_make_modidx(modname, scheme_false, scheme_false);
 
   modname = scheme_module_resolve(modidx, 1);
-  base_phase = env->phase;
 
   if (phase == 1) {
     scheme_prepare_exp_env(env);
@@ -951,6 +950,8 @@ static Scheme_Object *_dynamic_require(int argc, Scheme_Object *argv[],
       env = env->exp_env;
   }
 
+  base_phase = env->phase;
+
   scheme_prepare_compile_env(env);
 
   m = module_load(modname, env, errname);