fix define-for-syntax bug when the name is macro-introduced

svn: r467
This commit is contained in:
Matthew Flatt 2005-07-27 18:44:17 +00:00
parent 2ff54dc636
commit 266e6c75cd

View File

@ -3875,7 +3875,7 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env,
count++;
}
names = scheme_named_map_1(NULL, stx_sym, names, (Scheme_Object *)env->genv);
names = scheme_named_map_1(NULL, stx_sym, names, (Scheme_Object *)oenv->genv);
mrec.comp = 1;
mrec.dont_mark_local_use = 0;