From 5e3545d00e95e733732705c169ee80c49b3b0c0c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 7 Mar 2005 21:33:18 +0000 Subject: [PATCH] (scm_debug_options): Replace SCM_CRITICAL_SECTION_START/END with a frame and scm_frame_critical_section. --- libguile/debug.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/libguile/debug.c b/libguile/debug.c index 42790809e..56562a28c 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -19,6 +19,7 @@ #include "libguile/_scm.h" +#include "libguile/async.h" #include "libguile/eval.h" #include "libguile/list.h" #include "libguile/stackchk.h" @@ -54,7 +55,10 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, #define FUNC_NAME s_scm_debug_options { SCM ans; - SCM_CRITICAL_SECTION_START; + + scm_frame_begin (0); + scm_frame_critical_section (SCM_BOOL_F); + ans = scm_options (setting, scm_debug_opts, SCM_N_DEBUG_OPTIONS, FUNC_NAME); if (!(1 <= SCM_N_FRAMES && SCM_N_FRAMES <= SCM_MAX_FRAME_SIZE)) { @@ -64,7 +68,8 @@ SCM_DEFINE (scm_debug_options, "debug-options-interface", 0, 1, 0, SCM_RESET_DEBUG_MODE; scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; scm_debug_eframe_size = 2 * SCM_N_FRAMES; - SCM_CRITICAL_SECTION_END; + + scm_frame_end (); return ans; } #undef FUNC_NAME -- 2.20.1