bug fix for thread improvement

Fixes a bug introduced with c89fa0cda7.
This commit is contained in:
Matthew Flatt 2012-08-10 13:22:00 -06:00
parent c89fa0cda7
commit 50d90e8703

View File

@ -3325,6 +3325,11 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi
scheme_current_thread = p;
if (!p->gc_prep_chain) {
p->gc_prep_chain = gc_prep_thread_chain;
gc_prep_thread_chain = p;
}
if (p != scheme_main_thread)
scheme_weak_resume_thread(p);