suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

xform skips to avoid xform problem

Browse Source 
svn: r9243
This commit is contained in:
Matthew Flatt 2008-04-10 21:18:18 +00:00
parent 8f1a970398
commit 6a6eb5bab3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/port.c
View File

@ -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) {