diff options
author | Gary Houston <ghouston@arglist.com> | 1996-09-15 06:41:31 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-09-15 06:41:31 +0000 |
commit | 52859adfb96a7e0d23d36856d1189688f16b1863 (patch) | |
tree | 572dfa20c80e93b790855384a349563f38975214 /libguile/error.h | |
parent | 234f2da6204fe5202986f6511fc7e806b9593937 (diff) | |
download | guile-52859adfb96a7e0d23d36856d1189688f16b1863.tar.gz |
* debug.c, unif.c: use scm_out_of_range instead of
wta for range errors (ASSERT still needs work).
* error.c, error.h (scm_out_of_range): new procedure.
* error.c, error.h (scm_out_of_range_key): new key.
* posix.c (scm_sync): #else was missing.
* error.c, error.h: append _key to names scm_num_overflow and
scm_system_error.
* __scm.h (SCM_SYSMISSING, SCM_NUM_OVERFLOW): use SCM_BOOL_F instead
of consing an empty list.
(SCM_SYSERROR etc.): move into error.c, make them procedures instead
of macros, saves code and string space.
error.c, fports.c, numbers.c, posix.c, ioext.c, filesys.c, socket.c,
fdsocket.c, simpos.c: change names of SCM_SYSERROR etc., to
lower case. Rename scm_syserror_m to scm_syserror_msg.
error.h: prototypes for new procedures.
Diffstat (limited to 'libguile/error.h')
-rw-r--r-- | libguile/error.h | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/libguile/error.h b/libguile/error.h index 046a38f0d..8ca8e9606 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -47,13 +47,22 @@ extern int scm_ints_disabled; -extern SCM scm_system_error; -extern SCM scm_num_overflow; + +extern SCM scm_system_error_key; +extern SCM scm_num_overflow_key; +extern SCM scm_out_of_range_key; -extern void scm_error SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest)); -extern void (*scm_error_callback) SCM_P ((SCM key, char *subr, char *message, SCM args, SCM rest)); +extern void scm_error SCM_P ((SCM key, char *subr, char *message, + SCM args, SCM rest)); +extern void (*scm_error_callback) SCM_P ((SCM key, char *subr, + char *message, SCM args, SCM rest)); +extern void scm_syserror SCM_P ((char *subr)); +extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args)); +extern void scm_sysmissing SCM_P ((char *subr)); +extern void scm_num_overflow SCM_P ((char *subr)); +extern void scm_out_of_range SCM_P ((char *subr, SCM bad_value)); #ifdef __STDC__ extern int scm_handle_it (int i); |