diff options
author | Gary Houston <ghouston@arglist.com> | 1997-03-13 00:22:20 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-03-13 00:22:20 +0000 |
commit | c37e0e559f5cd2fe69948c48b72bd03b2287c901 (patch) | |
tree | 4ab11e91834acdc07f387231cdfdb8b8d197b012 /libguile/error.h | |
parent | b1d24656ea3f43423006e65dbd108def93e5f131 (diff) | |
download | guile-c37e0e559f5cd2fe69948c48b72bd03b2287c901.tar.gz |
* backtrace.c (scm_display_error_message): don't segv if message
is an immediate.
* error.h: prototype for scm_error_scm.
* error.c (scm_error_scm): new procedure, reimplements scm-error
in C and uses scm_error.
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 f71019bb1..c8c12c88b 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -66,6 +66,8 @@ extern void scm_error SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest)) SCM_NORETURN; extern void (*scm_error_callback) SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest)); +extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message, + SCM args, SCM rest)) SCM_NORETURN; extern void scm_syserror SCM_P ((char *subr)) SCM_NORETURN; extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args, int eno)) SCM_NORETURN; |