mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(scm_system): Remove SCM_DEFER_INTS, system() should be

Browse source 
thread safe, and could take a long time too.
This commit is contained in:
Kevin Ryde 2003-08-22 23:25:02 +00:00
parent c072c40c8b
commit f94e3e6e4b
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/simpos.c
View file

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