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/debug.c | |
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/debug.c')
-rw-r--r-- | libguile/debug.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index a7a7704a7..e56a1b373 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -83,8 +83,7 @@ scm_debug_options (setting) if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE)) { scm_options (ans, scm_debug_opts, SCM_N_DEBUG_OPTIONS, s_debug_options); - /* *fixme* Should SCM_ALLOW_INTS be called here? */ - scm_wta (setting, (char *) SCM_OUTOFRANGE, "frames"); + scm_out_of_range (s_debug_options, setting); } #endif SCM_RESET_DEBUG_MODE; |