From 0416a85a66a2b986fbd4691a16db2452bf201a12 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Feb 2008 02:12:54 +0000 Subject: [PATCH] don't seal module rename for local expand svn: r8750 --- src/mzscheme/src/module.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 49c9a6eb76..dc7f8eed85 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -5827,8 +5827,10 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env, } } - scheme_seal_module_rename_set(rn_set); - scheme_seal_module_rename_set(post_ex_rn_set); + if (rec[drec].comp || (rec[drec].depth != -2)) { + scheme_seal_module_rename_set(rn_set); + scheme_seal_module_rename_set(post_ex_rn_set); + } /* Compute provides for re-provides and all-defs-out: */ reprovide_kernel = compute_reprovides(all_provided,