(scm_system): Remove SCM_DEFER_INTS, system() should be
authorKevin Ryde <user42@zip.com.au>
Fri, 22 Aug 2003 23:25:02 +0000 (23:25 +0000)
committerKevin Ryde <user42@zip.com.au>
Fri, 22 Aug 2003 23:25:02 +0000 (23:25 +0000)
thread safe, and could take a long time too.

libguile/simpos.c

index 713ff33..c9c8393 100644 (file)
@@ -65,12 +65,10 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0,
       return SCM_BOOL(rv);
     }
   SCM_VALIDATE_STRING (1, cmd);
-  SCM_DEFER_INTS;
   errno = 0;
   rv = system (SCM_STRING_CHARS (cmd));
   if (rv == -1 || (rv == 127 && errno != 0))
     SCM_SYSERROR;
-  SCM_ALLOW_INTS;
   return SCM_MAKINUM (rv);
 }
 #undef FUNC_NAME