diff options
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r-- | libguile/simpos.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index 447a4d255..1f66288f0 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -63,6 +63,7 @@ extern int system(); +#ifdef HAVE_SYSTEM SCM_DEFINE (scm_system, "system", 0, 1, 0, (SCM cmd), "Executes @var{cmd} using the operating system's "command processor". @@ -78,15 +79,10 @@ indicating whether the command processor is available.") if (SCM_UNBNDP (cmd)) { -#ifdef HAVE_SYSTEM rv = system (NULL); -#else - rv = 0; -#endif return SCM_BOOL(rv); } SCM_VALIDATE_ROSTRING (1,cmd); -#ifdef HAVE_SYSTEM SCM_DEFER_INTS; errno = 0; if (SCM_ROSTRINGP (cmd)) @@ -96,11 +92,9 @@ indicating whether the command processor is available.") SCM_SYSERROR; SCM_ALLOW_INTS; return SCM_MAKINUM (rv); -#else - SCM_SYSMISSING; -#endif } #undef FUNC_NAME +#endif /* HAVE_SYSTEM */ extern char *getenv(); SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0, |