From 8dbab3cfa75705d8e4ce8af3ef7d0a8f1c80494f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 23 Jun 2006 18:09:29 +0000 Subject: [PATCH] fix access of undefined top-level variable for which a mutation has be compiled svn: r3447 --- src/mzscheme/src/syntax.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c index 391e177565..ddac58e74a 100644 --- a/src/mzscheme/src/syntax.c +++ b/src/mzscheme/src/syntax.c @@ -1442,7 +1442,8 @@ set_syntax (Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_Info *rec, if (SAME_TYPE(SCHEME_TYPE(var), scheme_variable_type) || SAME_TYPE(SCHEME_TYPE(var), scheme_module_variable_type)) { var = scheme_register_toplevel_in_prefix(var, env, rec, drec); - SCHEME_TOPLEVEL_FLAGS(var) |= SCHEME_TOPLEVEL_MUTATED; + if (env->genv->module) + SCHEME_TOPLEVEL_FLAGS(var) |= SCHEME_TOPLEVEL_MUTATED; } scheme_compile_rec_done_local(rec, drec);