summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2000-01-09 13:41:53 +0000
committerGary Houston <ghouston@arglist.com>2000-01-09 13:41:53 +0000
commitf25f761dacad24cee09213793f0debae0bafeeb6 (patch)
treede955d8c1300bde5ddb2f69e28f21bf27a43c9fa /libguile/simpos.c
parenta4dd2611b135c524fdc793cea22e3fae4ba7f331 (diff)
downloadguile-f25f761dacad24cee09213793f0debae0bafeeb6.tar.gz
* eval.c: define scm_unbound_variable_key ('unbound-variable).
scm_lookupcar1: throw an error with key 'unbound-variable instead of 'misc-error when an unbound variable is encountered. * filesys.c (scm_mkdir, scm_rmdir, scm_getcwd, scm_select, scm_symlink, scm_readlink, scm_lstat), posix.c (scm_setpgid, scm_setsid, scm_ctermid, scm_tcgetpgrp, scm_tcsetpgrp, scm_uname, scm_setlocale, scm_mknod, scm_nice, scm_sync), simpos.c (scm_system), stime.c (scm_times, scm_strptime): move the HAVE_XXX feature tests out of the procedure bodies. don't use SCM_SYSMISSING. scm_validate.h (SCM_SYSMISSING): removed. error.h, error.c (scm_sysmissing): comment that this is deprecated. see ChangeLog entry for 1999-12-28.
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,