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

fix problem in module->namespace (PR 9179)

Browse Source 
svn: r8505
This commit is contained in:
Matthew Flatt 2008-02-02 14:18:02 +00:00
parent 3260e8f34a
commit 53665849dd
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2240,6 +2240,7 @@ Scheme_Object *scheme_module_to_namespace(Scheme_Object *name, Scheme_Env *env)
rn = scheme_make_module_rename(MZ_LABEL_PHASE, mzMOD_RENAME_NORMAL, mn_ht);
/* Required for label: */
if (menv->dt_require_names) {
for (l = menv->dt_require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
idx = SCHEME_CAR(l);
name = scheme_module_resolve(idx, 0);
@ -2250,6 +2251,7 @@ Scheme_Object *scheme_module_to_namespace(Scheme_Object *name, Scheme_Env *env)
add_require_renames(rn, NULL, NULL, im, idx);
}
}
/* Required, maybe has for-label exports: */
for (l = menv->require_names; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
idx = SCHEME_CAR(l);