diff options
author | Gary Houston <ghouston@arglist.com> | 1996-09-07 20:48:45 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-09-07 20:48:45 +0000 |
commit | 7cb1d4d3059649fd611551e06c3c7aaae6d97397 (patch) | |
tree | 7e5190d3190d5b9e89c376d4fa4f776e5e3c6219 /libguile/error.h | |
parent | cceac91b8b8356ede44b8230813ee023da297a8d (diff) | |
download | guile-7cb1d4d3059649fd611551e06c3c7aaae6d97397.tar.gz |
* error.c (scm_error): declare scm_error_callback.
* error.h: prototype for scm_error_callback.
* __scm.h: define lgh_error.
(SCM_SYSERROR): redefine using lgh_error.
* boot-9.scm (%%handle-system-error): recognise errors thrown
by lgh-error (fill-message etc.)
Diffstat (limited to 'libguile/error.h')
-rw-r--r-- | libguile/error.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/error.h b/libguile/error.h index 705290b5f..a4a128bf6 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -53,6 +53,8 @@ extern SCM system_error_sym; +extern void scm_error PROTO ((SCM key, char *subr, char *message, SCM args, SCM rest)); +extern void (*scm_error_callback) PROTO ((SCM key, char *subr, char *message, SCM args, SCM rest)); #ifdef __STDC__ extern int scm_handle_it (int i); |