diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-08-13 14:54:49 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-08-13 14:54:49 +0000 |
| commit | 9538471795cf02ec8de3a6e861e626761d852909 (patch) | |
| tree | 4735a6fffe6a3c6009f5e80e2dfb674d53f49ae3 /libguile/throw.h | |
| parent | 468b2cf37d978c0ce879344ecfbd361032ce33e8 (diff) | |
* * gh_eval.c (catch_with_saved_stack): Removed. Replaced by:
throw.c (scm_internal_stack_catch): New sibling to the other catch
functions. Code moved from gh_eval.c.
throw.h: Added header.
gh_eval.c (gh_eval_str_with_stack_saving_handler): Renamed call to
scm_internal_stack_catch.
Diffstat (limited to 'libguile/throw.h')
| -rw-r--r-- | libguile/throw.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/throw.h b/libguile/throw.h index f74b53dfd..af518948f 100644 --- a/libguile/throw.h +++ b/libguile/throw.h @@ -64,6 +64,12 @@ extern SCM scm_internal_lazy_catch SCM_P ((SCM tag, scm_catch_handler_t handler, void *handler_data)); +extern SCM scm_internal_stack_catch SCM_P ((SCM tag, + scm_catch_body_t body, + void *body_data, + scm_catch_handler_t handler, + void *handler_data)); + /* The first argument to scm_body_thunk should be a pointer to one of these. See the implementation of catch in throw.c. */ struct scm_body_thunk_data |