From: stolz <unknown>
Date: Wed, 18 Jun 2003 08:06:00 +0000 (+0000)
Subject: [project @ 2003-06-18 08:06:00 by stolz]
X-Git-Tag: nhc98-1-18-release~609
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=80dd39dc13fcda5236c9815f5f50be1ce0ecc08f;p=haskell-directory.git

[project @ 2003-06-18 08:06:00 by stolz]
fork() never returns with EINTR
---

diff --git a/cbits/rawSystem.c b/cbits/rawSystem.c
index e9ead67..20d6b4e 100644
--- a/cbits/rawSystem.c
+++ b/cbits/rawSystem.c
@@ -91,7 +91,7 @@ rawSystem(HsAddr cmd, HsAddr args)
 
     switch(pid = fork()) {
     case -1:
-	if (errno != EINTR) {
+	{
 	    return -1;
 	}
     case 0: