From e3148bf579229b4df5a3b92574116fc61bd47684 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 4 May 2007 12:52:05 +0000
Subject: [PATCH] remove explicit write-barrier operation in SIGCHLD handler to
 avoid ipc/rcv errors

svn: r6143
---
 src/mzscheme/src/port.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index 8af949cda6..5e31f68393 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -6537,16 +6537,10 @@ static void child_done(int ingored)
       prev = NULL;
       for (sc = scheme_system_children; sc; prev = sc, sc = sc->next) {
 	if (sc->id == result) {
-          /* Explicit write barriers avoid triggering a write-barrier signal,
-             just in case we're in some context where the signal is disabled
-             (which seems to happen in some OS X contexts). */
-          GC_write_barrier(sc);
-
-	  sc->done = 1;
+          sc->done = 1;
 	  sc->status = status;
 
 	  if (prev) {
-            GC_write_barrier(prev);
 	    prev->next = sc->next;
 	  } else
 	    scheme_system_children = sc->next;