From b8bf48fee726e60022bb7affed422e07f637e065 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Jan 2007 06:37:49 +0000 Subject: [PATCH] avoid improperly initialized require lists when there's an error resolving a path svn: r5375 --- src/mzscheme/src/module.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 52d72dd23b..3090ce59e2 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -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);