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

avoid compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-12 07:43:56 -06:00
parent a7cb8fdc84
commit 2ba910ef23
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

@ -6540,7 +6540,8 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
if (iidx) { if (iidx) {
iim = module_load(_module_resolve(iidx, m->ii_src, NULL, 1), menv, NULL); iim = module_load(_module_resolve(iidx, m->ii_src, NULL, 1), menv, NULL);
start_module(iim, find_env(menv, SCHEME_INT_VAL(super_phase_shift)), 0, iidx, 1, 0, menv->phase, scheme_null, 0); start_module(iim, find_env(menv, SCHEME_INT_VAL(super_phase_shift)), 0, iidx, 1, 0, menv->phase, scheme_null, 0);
} } else
iim = NULL;
m->requires = scheme_null; m->requires = scheme_null;
m->et_requires = scheme_null; m->et_requires = scheme_null;