From e4bf3d4f47931b8c5dd2d56a976514641a10d5b2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 13 Jan 2007 21:28:36 +0000
Subject: [PATCH] make namespace-require/copy replace import and syntax
 bindings

svn: r5351
---
 src/mzscheme/src/module.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 75bbc0ca4d..52d72dd23b 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -5541,6 +5541,7 @@ void add_single_require(Scheme_Module_Exports *me, /* from module */
 	  menv = scheme_module_access(modidx, env, 0);
 	  val = scheme_lookup_in_table(menv->toplevel, (char *)exsns[j]);
 	  scheme_add_global_symbol(iname, val, env);
+          scheme_shadow(env, iname, 1);
 	} else if (!for_unmarshal || !has_context) {
 	  if (!save_marshal_info && !has_context && can_save_marshal)
 	    save_marshal_info = 1;