mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* debug.c, unif.c: use scm_out_of_range instead of

Browse source 
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.
This commit is contained in:
Gary Houston 1996-09-15 06:41:31 +00:00
parent 234f2da620
commit 52859adfb9
13 changed files with 234 additions and 170 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/debug.c
View file

@ -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;