diff options
author | Gary Houston <ghouston@arglist.com> | 2000-01-09 13:41:53 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2000-01-09 13:41:53 +0000 |
commit | f25f761dacad24cee09213793f0debae0bafeeb6 (patch) | |
tree | de955d8c1300bde5ddb2f69e28f21bf27a43c9fa /libguile/simpos.c | |
parent | a4dd2611b135c524fdc793cea22e3fae4ba7f331 (diff) | |
download | guile-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.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, |