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

repair `dynamic-require-for-syntax'

Browse Source 
That primitive is probably a bad idea, but maybe it's useful
until we have separaely loadable parts of a module.
This commit is contained in:
Matthew Flatt 2011-08-15 07:06:40 -06:00
parent a95ce7dc5a
commit 40197835c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/module.c
View File

@ -941,7 +941,6 @@ static Scheme_Object *_dynamic_require(int argc, Scheme_Object *argv[],
modidx = scheme_make_modidx(modname, scheme_false, scheme_false);
modname = scheme_module_resolve(modidx, 1);
base_phase = env->phase;
if (phase == 1) {
scheme_prepare_exp_env(env);
@ -951,6 +950,8 @@ static Scheme_Object *_dynamic_require(int argc, Scheme_Object *argv[],
env = env->exp_env;
}
base_phase = env->phase;
scheme_prepare_compile_env(env);
m = module_load(modname, env, errname);