diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index 653c458a2..280e92b7d 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -42,8 +42,11 @@ #include "libguile/validate.h" #include "libguile/debug.h" + +#include "libguile/private-options.h" + /* {Run time control of the debugging evaluator} */ @@ -59,10 +62,10 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, scm_dynwind_begin (0); scm_dynwind_critical_section (SCM_BOOL_F); - ans = scm_options (setting, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); + ans = scm_options (setting, scm_debug_opts, FUNC_NAME); 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_options (ans, scm_debug_opts, FUNC_NAME); SCM_OUT_OF_RANGE (1, setting); } SCM_RESET_DEBUG_MODE; @@ -74,6 +77,7 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, } #undef FUNC_NAME + static void with_traps_before (void *data) { @@ -112,7 +116,6 @@ SCM_DEFINE (scm_with_traps, "with-traps", 1, 0, 0, #undef FUNC_NAME - SCM_SYMBOL (scm_sym_procname, "procname"); SCM_SYMBOL (scm_sym_dots, "..."); SCM_SYMBOL (scm_sym_source, "source"); @@ -526,7 +529,7 @@ SCM_DEFINE (scm_debug_hang, "debug-hang", 0, 1, 0, void scm_init_debug () { - scm_init_opts (scm_debug_options, scm_debug_opts, SCM_N_DEBUG_OPTIONS); + scm_init_opts (scm_debug_options, scm_debug_opts); scm_tc16_memoized = scm_make_smob_type ("memoized", 0); scm_set_smob_print (scm_tc16_memoized, memoized_print); |