mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 06:50:21 +02:00
Code Activity

(scm_primitive__exit): New function.

Browse source
This commit is contained in:
Kevin Ryde 2006-05-19 23:16:05 +00:00
parent 5ff9f91742
commit 88bfcc55fa
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/simpos.c
View file

@ -207,7 +207,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (chart_primitive__exit, "primitive-_exit", 0, 1, 0, SCM_DEFINE (scm_primitive__exit, "primitive-_exit", 0, 1, 0,
(SCM status), (SCM status),
"Terminate the current process using the _exit() system call and\n" "Terminate the current process using the _exit() system call and\n"
"without unwinding the Scheme stack. The exit status is\n" "without unwinding the Scheme stack. The exit status is\n"
@ -216,7 +216,7 @@ SCM_DEFINE (chart_primitive__exit, "primitive-_exit", 0, 1, 0,
"This function is typically useful after a fork, to ensure no\n" "This function is typically useful after a fork, to ensure no\n"
"Scheme cleanups or @code{atexit} handlers are run (those\n" "Scheme cleanups or @code{atexit} handlers are run (those\n"
"usually belonging in the parent rather than the child).") "usually belonging in the parent rather than the child).")
#define FUNC_NAME s_chart_primitive__exit #define FUNC_NAME s_scm_primitive__exit
{ {
int cstatus = 0; int cstatus = 0;
if (!SCM_UNBNDP (status)) if (!SCM_UNBNDP (status))

1
libguile/simpos.h
View file

@ -30,6 +30,7 @@ SCM_API SCM scm_system (SCM cmd);
SCM_API SCM scm_system_star (SCM cmds); SCM_API SCM scm_system_star (SCM cmds);
SCM_API SCM scm_getenv (SCM nam); SCM_API SCM scm_getenv (SCM nam);
SCM_API SCM scm_primitive_exit (SCM status); SCM_API SCM scm_primitive_exit (SCM status);
SCM_API SCM scm_primitive__exit (SCM status);
SCM_API void scm_init_simpos (void); SCM_API void scm_init_simpos (void);
#endif /* SCM_SIMPOS_H */ #endif /* SCM_SIMPOS_H */