suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed namespace-attach bug related to exp-time phases

Browse Source 
svn: r234
This commit is contained in:
Matthew Flatt 2005-06-22 22:03:38 +00:00
parent 4ff341f837
commit bda97dfe8a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/module.c
View File

@ -1126,19 +1126,21 @@ static Scheme_Object *namespace_attach_module(int argc, Scheme_Object *argv[])
from_modchain = SCHEME_VEC_ELS(from_modchain)[2]; from_modchain = SCHEME_VEC_ELS(from_modchain)[2];
to_modchain = SCHEME_CAR(past_to_modchains); to_modchain = SCHEME_CAR(past_to_modchains);
past_to_modchains = SCHEME_CDR(past_to_modchains); past_to_modchains = SCHEME_CDR(past_to_modchains);
with_tt--;
} else { } else {
past_checkeds = cons((Scheme_Object *)prev_checked, past_checkeds); past_checkeds = cons((Scheme_Object *)prev_checked, past_checkeds);
prev_checked = checked; prev_checked = checked;
todo = next_phase_todo; todo = next_phase_todo;
checked = next_checked;
if (SCHEME_NULLP(future_todos)) { if (SCHEME_NULLP(future_todos)) {
next_phase_todo = scheme_null; next_phase_todo = scheme_null;
checked = NULL; next_checked = NULL;
} else { } else {
next_phase_todo = SCHEME_CAR(future_todos); next_phase_todo = SCHEME_CAR(future_todos);
future_todos = SCHEME_CDR(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); future_checkeds = SCHEME_CDR(future_checkeds);
} }