summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r--libguile/simpos.c10
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,