From 266e6c75cdf2ece7014a07ceed45d8169a167c31 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Jul 2005 18:44:17 +0000 Subject: [PATCH] fix define-for-syntax bug when the name is macro-introduced svn: r467 --- src/mzscheme/src/module.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index ef9e72f46f..e56038b0b3 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -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;