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

don't seal module rename for local expand

Browse Source 
svn: r8750
This commit is contained in:
Matthew Flatt 2008-02-21 02:12:54 +00:00
parent 9680267cf1
commit 0416a85a66
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5827,8 +5827,10 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env,
}
}
scheme_seal_module_rename_set(rn_set);
scheme_seal_module_rename_set(post_ex_rn_set);
if (rec[drec].comp || (rec[drec].depth != -2)) {
scheme_seal_module_rename_set(rn_set);
scheme_seal_module_rename_set(post_ex_rn_set);
}
/* Compute provides for re-provides and all-defs-out: */
reprovide_kernel = compute_reprovides(all_provided,