From 88bfcc55fa8486dbdb6e0962b96893d74541f1cb Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 19 May 2006 23:16:05 +0000 Subject: [PATCH] (scm_primitive__exit): New function. --- libguile/simpos.c | 4 ++-- libguile/simpos.h | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/libguile/simpos.c b/libguile/simpos.c index 78448a37b..79b9f3e3a 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -207,7 +207,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0, } #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), "Terminate the current process using the _exit() system call and\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" "Scheme cleanups or @code{atexit} handlers are run (those\n" "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; if (!SCM_UNBNDP (status)) diff --git a/libguile/simpos.h b/libguile/simpos.h index c7f40b62a..1ce207b1d 100644 --- a/libguile/simpos.h +++ b/libguile/simpos.h @@ -30,6 +30,7 @@ SCM_API SCM scm_system (SCM cmd); SCM_API SCM scm_system_star (SCM cmds); 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 void scm_init_simpos (void); #endif /* SCM_SIMPOS_H */