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

*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.

Browse source
This commit is contained in:
Greg J. Badros 2000-01-05 19:05:23 +00:00
parent fb76446506
commit a1ec69163d
63 changed files with 582 additions and 582 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/simpos.c
View file

@ -63,7 +63,7 @@
extern int system();
GUILE_PROC(scm_system, "system", 0, 1, 0,
SCM_DEFINE(scm_system, "system", 0, 1, 0,
(SCM cmd),
"Executes @var{cmd} using the operating system's "command processor".
Under Unix this is usually the default shell @code{sh}. The value
@ -103,7 +103,7 @@ indicating whether the command processor is available.")
#undef FUNC_NAME
extern char *getenv();
GUILE_PROC (scm_getenv, "getenv", 1, 0, 0,
SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0,
(SCM nam),
"Looks up the string @var{name} in the current environment. The return
value is @code{#f} unless a string of the form @code{NAME=VALUE} is
@ -120,7 +120,7 @@ returned.")
#undef FUNC_NAME
/* simple exit, without unwinding the scheme stack or flushing ports. */
GUILE_PROC (scm_primitive_exit, "primitive-exit", 0, 1, 0,
SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
(SCM status),
"Terminate the current process without unwinding the Scheme stack.
This is would typically be useful after a fork. The exit status