From e8675d317de02722c02baf6e3bee55f8971feda5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Feb 2009 13:30:33 +0000
Subject: [PATCH] fix hanlding of some bindings for a module->namespace top
 level (especially interaction with packages)

svn: r13501
---
 src/mzscheme/src/env.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index 660b76364f..9617d026e6 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -2638,7 +2638,7 @@ scheme_lookup_binding(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags,
 
   /* Used out of context? */
   if (SAME_OBJ(modidx, scheme_undefined)) {
-    if (!env->genv->module && SCHEME_STXP(find_id)) {
+    if (SCHEME_STXP(find_id)) {
       /* Looks like lexically bound, but double-check that it's not bound via a tl_id: */
       find_global_id = scheme_tl_id_sym(env->genv, find_id, NULL, 0, NULL, NULL);
       if (!SAME_OBJ(find_global_id, SCHEME_STX_VAL(find_id)))