From cf33a9e29455f185720950494b632d89d7e9e97b Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 6 Oct 2009 12:43:20 +0000 Subject: [PATCH] More pt->src_modidx unneeded assignment fixes svn: r16250 --- src/mzscheme/src/module.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 5cfdbbc168..232223b99a 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -2218,7 +2218,7 @@ static int do_add_simple_require_renames(Scheme_Object *rn, return 0; if (with_shared) { - if (!pt->src_modidx) + if (!pt->src_modidx && im->me->src_modidx) pt->src_modidx = im->me->src_modidx; scheme_extend_module_rename_with_shared(rn, idx, pt, marshal_phase_index, @@ -8576,7 +8576,7 @@ void add_single_require(Scheme_Module_Exports *me, /* from module */ && pt->num_provides && !do_copy_vars) { /* Simple "import everything" whose mappings can be shared via the exporting module: */ - if (!pt->src_modidx) + if (!pt->src_modidx && me->src_modidx) pt->src_modidx = me->src_modidx; scheme_extend_module_rename_with_shared(rn, idx, pt, pt->phase_index, src_phase_index, context_marks, 1); skip_rename = 1;