[project @ 2003-08-01 15:56:11 by panne]

[haskell-directory.git] / cbits / rawSystem.c

diff --git a/cbits/rawSystem.c b/cbits/rawSystem.c
index e9ead67..20d6b4e 100644 (file)
--- 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: