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

* error.c, error.h (scm_error_callback): Removed (see NEWS).

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-08-25 12:33:50 +00:00
parent 0b89e78ee7
commit 88482b31af
4 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
NEWS
View file

@ -208,6 +208,13 @@ value for NAME.
* Changes to the scm_ interface * Changes to the scm_ interface
** The hook scm_error_callback has been removed. It was originally
intended as a way for the user to install his own error handler. But
that method works badly since it intervenes between throw and catch,
thereby changing the semantics of expressions like (catch #t ...).
The correct way to do it is to use one of the C level catch functions
in throw.c: scm_internal_catch/lazy_catch/stack_catch.
Changes in Guile 1.2 (released Tuesday, June 24 1997): Changes in Guile 1.2 (released Tuesday, June 24 1997):

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
Mon Aug 25 13:47:25 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* error.c, error.h (scm_error_callback): Removed (see NEWS).
Sun Aug 24 01:25:35 1997 Mikael Djurfeldt <mdj@kenneth> Sun Aug 24 01:25:35 1997 Mikael Djurfeldt <mdj@kenneth>
* regex-posix.c: If <regex.h> can't be found, try <rxposix.h> or * regex-posix.c: If <regex.h> can't be found, try <rxposix.h> or

5
libguile/error.c
View file

@ -60,8 +60,6 @@
extern int errno; extern int errno;
void (*scm_error_callback) () = 0;
/* All errors should pass through here. */ /* All errors should pass through here. */
void void
scm_error (key, subr, message, args, rest) scm_error (key, subr, message, args, rest)
@ -72,9 +70,6 @@ scm_error (key, subr, message, args, rest)
SCM rest; SCM rest;
{ {
SCM arg_list; SCM arg_list;
if (scm_error_callback)
(*scm_error_callback) (key, subr, message, args, rest);
arg_list = scm_listify (subr ? scm_makfrom0str (subr) : SCM_BOOL_F, arg_list = scm_listify (subr ? scm_makfrom0str (subr) : SCM_BOOL_F,
message ? scm_makfrom0str (message) : SCM_BOOL_F, message ? scm_makfrom0str (message) : SCM_BOOL_F,
args, args,

2
libguile/error.h
View file

@ -61,8 +61,6 @@ extern int scm_ints_disabled;
extern void scm_error SCM_P ((SCM key, char *subr, char *message, extern void scm_error SCM_P ((SCM key, char *subr, char *message,
SCM args, SCM rest)) SCM_NORETURN; 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, extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message,
SCM args, SCM rest)) SCM_NORETURN; SCM args, SCM rest)) SCM_NORETURN;
extern SCM scm_strerror (SCM err); extern SCM scm_strerror (SCM err);