From 6a6eb5bab3217393d39cb09fad58159657f72027 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Apr 2008 21:18:18 +0000
Subject: [PATCH] xform skips to avoid xform problem

svn: r9243
---
 src/mzscheme/src/port.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index bea8dd121d..1b7ec435ad 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -6492,14 +6492,18 @@ static void check_child_done()
   if (scheme_system_children) {
     do {
       do {
+        START_XFORM_SKIP;
         result = WAITANY(&status);
+        END_XFORM_SKIP;
       } while ((result == -1) && (errno == EINTR));
 
       if (result > 0) {
+        START_XFORM_SKIP;
         if (WIFEXITED(status))
           status = WEXITSTATUS(status);
         else
           status = MZ_FAILURE_STATUS;
+        END_XFORM_SKIP;
 
         prev = NULL;
         for (sc = scheme_system_children; sc; prev = sc, sc = sc->next) {