mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* error.c (scm_error): declare scm_error_callback.

Browse source 
* 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.)
This commit is contained in:
Gary Houston 1996-09-07 20:48:45 +00:00
parent cceac91b8b
commit 7cb1d4d305
6 changed files with 111 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/error.h
View file

@ -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);