From d8dd03c72867cb8ba358fbd0f508d68f103a5e6f Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Mon, 26 Apr 2010 09:45:35 -0600
Subject: [PATCH] Don't GC if in atomic mode(have temporarily switched to
 master)

---
 src/racket/src/thread.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c
index b6e028718d..66175c1d4a 100644
--- a/src/racket/src/thread.c
+++ b/src/racket/src/thread.c
@@ -4234,7 +4234,8 @@ void scheme_thread_block(float sleep_time)
 
   /* Check for major GC request from master GC */
 #if defined(MZ_PRECISE_GC) && defined(MZ_USE_PLACES)
-  GC_check_master_gc_request(); 
+  if (!do_atomic)
+    GC_check_master_gc_request(); 
 #endif
   
   if (sleep_end > 0) {