diff options
author | Gary Houston <ghouston@arglist.com> | 1997-03-02 07:32:19 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-03-02 07:32:19 +0000 |
commit | 1a36eef2ea077a3263e76ed7f9f30eb3d5c6494c (patch) | |
tree | c22c183301264a056fd7436cfe436a6e3fdf3fc4 /libguile/throw.h | |
parent | 8e44e7a0c7fabab037f752d8d20e2bfe3d03e166 (diff) | |
download | guile-1a36eef2ea077a3263e76ed7f9f30eb3d5c6494c.tar.gz |
* throw.h: prototype for scm_exit_status.
* throw.c (scm_handle_by_message): if a 'quit is caught, use its
args to derive an exit status. Allows (quit) to work from a
script.
(scm_exit_status): new function.
#include "eq.h".
Diffstat (limited to 'libguile/throw.h')
-rw-r--r-- | libguile/throw.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/throw.h b/libguile/throw.h index be971a576..99d8ff692 100644 --- a/libguile/throw.h +++ b/libguile/throw.h @@ -83,10 +83,12 @@ extern SCM scm_body_thunk SCM_P ((void *, SCM)); extern SCM scm_handle_by_proc SCM_P ((void *, SCM, SCM)); extern SCM scm_handle_by_message SCM_P ((void *, SCM, SCM)); +extern int scm_exit_status SCM_P ((SCM args)); extern SCM scm_catch SCM_P ((SCM tag, SCM thunk, SCM handler)); extern SCM scm_lazy_catch SCM_P ((SCM tag, SCM thunk, SCM handler)); extern SCM scm_ithrow SCM_P ((SCM key, SCM args, int noreturn)); + extern SCM scm_throw SCM_P ((SCM key, SCM args)); extern void scm_init_throw SCM_P ((void)); #endif /* THROWH */ |