From a6da8f04e8998253009dd68ef0c2b3cccc80e270 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 12 Aug 2012 12:57:47 -0600 Subject: [PATCH] potential repair for recent thread improvement --- src/racket/src/thread.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c index d7475a646d..22e2198252 100644 --- a/src/racket/src/thread.c +++ b/src/racket/src/thread.c @@ -3228,9 +3228,6 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi scheme_first_thread->prev = np; scheme_first_thread = np; - np->gc_prep_chain = gc_prep_thread_chain; - gc_prep_thread_chain = np; - np->t_set_parent = p->t_set_parent; schedule_in_set((Scheme_Object *)np, np->t_set_parent); @@ -3283,6 +3280,9 @@ Scheme_Object *scheme_call_as_nested_thread(int argc, Scheme_Object *argv[], voi #endif } + np->gc_prep_chain = gc_prep_thread_chain; + gc_prep_thread_chain = np; + #ifdef RUNSTACK_IS_GLOBAL MZ_CONT_MARK_STACK = np->cont_mark_stack; MZ_CONT_MARK_POS = np->cont_mark_pos;