From 7418796a32e7fdd9233d095dabd3e4bc65ea49dd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 26 Aug 2008 11:18:23 +0000
Subject: [PATCH] fix module restart and instantiation of imports

svn: r11433
---
 src/mzscheme/src/module.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 11bde2ac7e..fe277af5bf 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -3821,6 +3821,16 @@ static void start_module(Scheme_Module *m, Scheme_Env *env, int restart,
 
   menv = instantiate_module(m, env, restart, syntax_idx);
 
+  if (restart) {
+    menv->did_eval_run = 0;
+    menv->did_eval_exp = 0;
+    menv->require_names = NULL;
+    menv->et_require_names = NULL;
+    menv->tt_require_names = NULL;
+    menv->dt_require_names = NULL;
+    menv->other_require_names = NULL;
+  }
+
   show("strt", menv, eval_exp, eval_run);
 
   chain_start_module(menv, env, eval_exp, eval_run, base_phase, cycle_list, syntax_idx);