dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

merge from 1.8 branch

Browse source
This commit is contained in:
Kevin Ryde 2006-06-17 23:15:59 +00:00
commit 23f2b9a3de
32 changed files with 752 additions and 190 deletions
Download patch file Download diff file Expand all files Collapse all files

25
libguile/simpos.c
View file

@ -195,9 +195,9 @@ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0,
/* simple exit, without unwinding the scheme stack or flushing ports. */
SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
(SCM status),
"Terminate the current process without unwinding the Scheme stack.\n"
"This is would typically be useful after a fork. The exit status\n"
"is @var{status} if supplied, otherwise zero.")
"Terminate the current process without unwinding the Scheme\n"
"stack. The exit status is @var{status} if supplied, otherwise\n"
"zero.")
#define FUNC_NAME s_scm_primitive_exit
{
int cstatus = 0;
@ -207,6 +207,25 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
}
#undef FUNC_NAME
SCM_DEFINE (scm_primitive__exit, "primitive-_exit", 0, 1, 0,
(SCM status),
"Terminate the current process using the _exit() system call and\n"
"without unwinding the Scheme stack. The exit status is\n"
"@var{status} if supplied, otherwise zero.\n"
"\n"
"This function is typically useful after a fork, to ensure no\n"
"Scheme cleanups or @code{atexit} handlers are run (those\n"
"usually belonging in the parent rather than the child).")
#define FUNC_NAME s_scm_primitive__exit
{
int cstatus = 0;
if (!SCM_UNBNDP (status))
cstatus = scm_to_int (status);
_exit (cstatus);
}
#undef FUNC_NAME
void
scm_init_simpos ()