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

avoid improperly initialized require lists when there's an error resolving a path

Browse Source 
svn: r5375
This commit is contained in:
Matthew Flatt 2007-01-17 06:37:49 +00:00
parent fff4638494
commit b8bf48fee7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2399,6 +2399,12 @@ static void expstart_module(Scheme_Module *m, Scheme_Env *env, int restart,
menv = scheme_new_module_env(env, m, 0);
scheme_hash_set(MODCHAIN_TABLE(env->modchain), m->modname, (Scheme_Object *)menv);
/* These three should be set by various "finish"es, but
we initialize them in case there's an error runing a "finish". */
menv->require_names = scheme_null;
menv->et_require_names = scheme_null;
menv->tt_require_names = scheme_null;
menv->phase = env->phase;
menv->link_midx = syntax_idx;
insp = scheme_make_inspector(m->insp);