From bda97dfe8a8c00c24b09fbf6103b23961f3c4654 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 22 Jun 2005 22:03:38 +0000 Subject: [PATCH] fixed namespace-attach bug related to exp-time phases svn: r234 --- 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 0b75c6333e..b07ed8c025 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -1126,19 +1126,21 @@ static Scheme_Object *namespace_attach_module(int argc, Scheme_Object *argv[]) from_modchain = SCHEME_VEC_ELS(from_modchain)[2]; to_modchain = SCHEME_CAR(past_to_modchains); past_to_modchains = SCHEME_CDR(past_to_modchains); + with_tt--; } else { past_checkeds = cons((Scheme_Object *)prev_checked, past_checkeds); prev_checked = checked; todo = next_phase_todo; + checked = next_checked; if (SCHEME_NULLP(future_todos)) { next_phase_todo = scheme_null; - checked = NULL; + next_checked = NULL; } else { next_phase_todo = SCHEME_CAR(future_todos); future_todos = SCHEME_CDR(future_todos); - checked = (Scheme_Hash_Table *)SCHEME_CAR(future_checkeds); + next_checked = (Scheme_Hash_Table *)SCHEME_CAR(future_checkeds); future_checkeds = SCHEME_CDR(future_checkeds); }