summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-19 20:16:36 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-19 20:16:36 +0000
commitf83e27370c827773722739fdf764cb231bd9d330 (patch)
treeb11073d2331c063b1694d2b6f73cbef8ec2a45ba /libguile/debug.c
parentc3e09ef939bd0bb783e58bf257db2787f28ab89d (diff)
downloadguile-f83e27370c827773722739fdf764cb231bd9d330.tar.gz
* continuations.c (scm_make_cont), debug.c (scm_make_memoized,
scm_make_debugobj), eval.c (scm_makprom): SCM_DEFER/ALLOW_INTS --> A section. * __scm.h: Start the long-term project of moving to POSIX threads. Phase 1: Classification of all critical sections. (SCM_ENTER_A_SECTION, SCM_EXIT_A_SECTION): New macros: Delimiters for A sections. (See comments in __scm.h for details.)
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index a2d148587..4c95a8a92 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -154,14 +154,14 @@ scm_make_memoized (exp, env)
{
/* *fixme* Check that env is a valid environment. */
register SCM z, ans;
- SCM_DEFER_INTS;
+ SCM_ENTER_A_SECTION;
SCM_NEWCELL (z);
- SCM_SETCAR (z, exp);
SCM_SETCDR (z, env);
+ SCM_SETCAR (z, exp);
SCM_NEWCELL (ans);
- SCM_SETCAR (ans, scm_tc16_memoized);
SCM_SETCDR (ans, z);
- SCM_ALLOW_INTS;
+ SCM_SETCAR (ans, scm_tc16_memoized);
+ SCM_EXIT_A_SECTION;
return ans;
}
@@ -570,11 +570,11 @@ scm_make_debugobj (frame)
scm_debug_frame *frame;
{
register SCM z;
- SCM_DEFER_INTS;
SCM_NEWCELL (z);
- SCM_SETCAR (z, scm_tc16_debugobj);
+ SCM_ENTER_A_SECTION;
SCM_SET_DEBUGOBJ_FRAME (z, (SCM) frame);
- SCM_ALLOW_INTS;
+ SCM_SETCAR (z, scm_tc16_debugobj);
+ SCM_EXIT_A_SECTION;
return z;
}