From 1e76143f0fad331651561e9bbc2bc9752dd25689 Mon Sep 17 00:00:00 2001 From: "Greg J. Badros" Date: Fri, 7 Jan 2000 23:53:20 +0000 Subject: * scm_validate.h (SCM_OUT_OF_RANGE): Use scm_out_of_range_pos to report the position of the argument. * error.h, error.c (scm_out_of_range_pos): Added this function to take extra "pos" argument, the position number of the errant argument. * debug.c: Use SCM_OUT_OF_RANGE instead of scm_out_of_range. * snarf.h: Use SCM_HERE and SCM_INIT as names, not SCM_NOTSNARF and SCM_SNARFING. Also put the %%% in the SCM_INIT since Mikael prefers that and I'm reasonably indifferent. --- libguile/debug.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 06e7e6c6b..ad1be6a99 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -87,7 +87,7 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE)) { scm_options (ans, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); - scm_out_of_range (FUNC_NAME, setting); + SCM_OUT_OF_RANGE (1, setting); } #endif SCM_RESET_DEBUG_MODE; -- cgit v1.2.3