summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1996-09-15 06:41:31 +0000
committerGary Houston <ghouston@arglist.com>1996-09-15 06:41:31 +0000
commit52859adfb96a7e0d23d36856d1189688f16b1863 (patch)
tree572dfa20c80e93b790855384a349563f38975214 /libguile/debug.c
parent234f2da6204fe5202986f6511fc7e806b9593937 (diff)
downloadguile-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.c3
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;