summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-03-07 21:33:18 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-03-07 21:33:18 +0000
commit5e3545d00e95e733732705c169ee80c49b3b0c0c (patch)
tree10646632033a819276160ca11fc42d95924744e1 /libguile/debug.c
parentaeba601d56fa611cbdef6131b8127bd35b9cacdd (diff)
downloadguile-5e3545d00e95e733732705c169ee80c49b3b0c0c.tar.gz
(scm_debug_options): Replace SCM_CRITICAL_SECTION_START/END with a
frame and scm_frame_critical_section.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c9
1 files 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