From 3a0c308280d83c3fa4a3c8098c5bf885477851c1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 5 Jun 2008 14:20:59 +0000
Subject: [PATCH] fix problem with delayed module info and namespaces generated
 from module->namespace

svn: r10144
---
 src/mzscheme/src/eval.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index d8a2b8589c..b55c116e27 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -4672,8 +4672,11 @@ static Scheme_Object *add_renames_unless_module(Scheme_Object *form, Scheme_Env
     }
   }
 
-  if (genv->rename_set)
+  if (genv->rename_set) {
     form = scheme_add_rename(form, genv->rename_set);
+    /* this "phase shift" just attaches the namespace's module registry: */
+    form = scheme_stx_phase_shift(form, 0, NULL, NULL, genv->export_registry);
+  }
 
   return form;
 }