mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* numbers.c: use SCM_NUM_OVERFLOW instead of scm_wta or ASSERT.

Browse source 
* error.c, error.h: setup scm_num_overflow key.

* __scm.h: SCM_NUM_OVERFLOW: macro for reporting numerical overflow.
Remove definition of SCM_OVSCM_FLOW.

* fports.c (scm_open_file): use SCM_SYSERROR_M.

* __scm.h: SCM_SYSERROR_M: new macro for system errors with an
explicit message and args.

* error.c, error.h, __scm.h: change system_error_sym to
scm_system_error.

* error.c (system_error_sym): remove leading %% from the Scheme name
"%%system-error".

* __scm.h (SCM_SYSMISSING): Redefine using lgh_error.

* boot-9.scm: remove leading %% from references to '%%system-error.
(%%handle-system-error): don't pass all the thrown arguments when
aborting, just the key and subr.
Remove the code to "Install default handlers for built-in errors."
Remove the definition of the syserror procedure.
Associate 'numerical-overflow with default handler.
This commit is contained in:
Gary Houston 1996-09-14 07:47:50 +00:00
parent 7d41a049f4
commit e1724d200d
8 changed files with 111 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/error.h
View file

@ -47,7 +47,8 @@
extern int scm_ints_disabled;
extern SCM system_error_sym;
extern SCM scm_system_error;
extern SCM scm_num_overflow;