diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-19 20:16:36 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-19 20:16:36 +0000 |
commit | f83e27370c827773722739fdf764cb231bd9d330 (patch) | |
tree | b11073d2331c063b1694d2b6f73cbef8ec2a45ba /libguile/debug.c | |
parent | c3e09ef939bd0bb783e58bf257db2787f28ab89d (diff) | |
download | guile-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.c | 14 |
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; } |