suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in module->namespace when #%kernel is imported for synta xor label

Browse Source 
svn: r7683
This commit is contained in:
Matthew Flatt 2007-11-09 15:42:54 +00:00
parent cc1fb91486
commit fda261c4dd
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/mzscheme/src/module.c
View File

@ -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)) { for (l = menv->et_require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
idx = SCHEME_CAR(l); idx = SCHEME_CAR(l);
name = scheme_module_resolve(idx, 0); 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); 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)) { for (l = menv->dt_require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
idx = SCHEME_CAR(l); idx = SCHEME_CAR(l);
name = scheme_module_resolve(idx, 0); 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); add_require_renames(rn, NULL, NULL, im, idx);
} }