diff options
| author | Kevin Ryde <user42@zip.com.au> | 2003-08-22 23:25:02 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2003-08-22 23:25:02 +0000 |
| commit | f94e3e6e4b83c98a8a5c9e98aa3e41da597d86b9 (patch) | |
| tree | f68373a26eb77c3e2574a40c0625cbdfc984ebd8 /libguile/simpos.c | |
| parent | c072c40c8b969b7940cd1b6843dd3143ef933363 (diff) | |
(scm_system): Remove SCM_DEFER_INTS, system() should be
thread safe, and could take a long time too.
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 2 |
1 files changed, 0 insertions, 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 |