mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

* eval.c: define scm_unbound_variable_key ('unbound-variable).

Browse source 
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.
This commit is contained in:
Gary Houston 2000-01-09 13:41:53 +00:00
parent a4dd2611b1
commit f25f761dac
10 changed files with 95 additions and 141 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/simpos.c
View file

@ -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,