From f94e3e6e4b83c98a8a5c9e98aa3e41da597d86b9 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 22 Aug 2003 23:25:02 +0000 Subject: [PATCH] (scm_system): Remove SCM_DEFER_INTS, system() should be thread safe, and could take a long time too. --- libguile/simpos.c | 2 -- 1 file changed, 2 deletions(-) diff --git a/libguile/simpos.c b/libguile/simpos.c index 713ff337c..c9c83935c 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -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