Parent Directory | Revision Log | Patch
revision 1.52 by kryde, Fri Aug 22 23:23:17 2003 UTC | revision 1.53 by kryde, Fri Aug 22 23:25:02 2003 UTC | |
---|---|---|
# | Line 65 SCM_DEFINE (scm_system, "system", 0, 1, | Line 65 SCM_DEFINE (scm_system, "system", 0, 1, |
65 | return SCM_BOOL(rv); | return SCM_BOOL(rv); |
66 | } | } |
67 | SCM_VALIDATE_STRING (1, cmd); | SCM_VALIDATE_STRING (1, cmd); |
SCM_DEFER_INTS; | ||
68 | errno = 0; | errno = 0; |
69 | rv = system (SCM_STRING_CHARS (cmd)); | rv = system (SCM_STRING_CHARS (cmd)); |
70 | if (rv == -1 || (rv == 127 && errno != 0)) | if (rv == -1 || (rv == 127 && errno != 0)) |
71 | SCM_SYSERROR; | SCM_SYSERROR; |
SCM_ALLOW_INTS; | ||
72 | return SCM_MAKINUM (rv); | return SCM_MAKINUM (rv); |
73 | } | } |
74 | #undef FUNC_NAME | #undef FUNC_NAME |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |