From fda261c4dd6941e3a2b25d58147486af3b9bfeb3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Nov 2007 15:42:54 +0000 Subject: [PATCH] fix bug in module->namespace when #%kernel is imported for synta xor label svn: r7683 --- src/mzscheme/src/module.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index b0f40cdb70..3c59f7f372 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -1830,7 +1830,10 @@ static Scheme_Object *module_to_namespace(int argc, Scheme_Object *argv[]) for (l = menv->et_require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) { idx = SCHEME_CAR(l); name = scheme_module_resolve(idx, 0); - im = (Scheme_Module *)scheme_hash_get(menv->module_registry, name); + if (SAME_OBJ(name, kernel_symbol)) + im = kernel; + else + im = (Scheme_Module *)scheme_hash_get(menv->module_registry, name); add_require_renames(rn, NULL, NULL, im, idx); } @@ -1897,7 +1900,10 @@ static Scheme_Object *module_to_namespace(int argc, Scheme_Object *argv[]) for (l = menv->dt_require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) { idx = SCHEME_CAR(l); name = scheme_module_resolve(idx, 0); - im = (Scheme_Module *)scheme_hash_get(menv->module_registry, name); + if (SAME_OBJ(name, kernel_symbol)) + im = kernel; + else + im = (Scheme_Module *)scheme_hash_get(menv->module_registry, name); add_require_renames(rn, NULL, NULL, im, idx); }