summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2002-12-10 09:35:06 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2002-12-10 09:35:06 +0000
commitc7fabadfe0161ca9fd2989179a3b3f387d3f8258 (patch)
tree153d7856b0442c9046eb6dd2ed767425d767f1a2 /libguile/root.c
parent06babeccd19cbabf723853ec712df84f8f6b1f1b (diff)
downloadguile-c7fabadfe0161ca9fd2989179a3b3f387d3f8258.tar.gz
* async.c, error.h (scm_ints_disabled): Removed.
* gc.c (scm_gc_for_newcell), init.c (scm_init_guile_1), root.c (scm_internal_cwdr), gdbint.c (SCM_BEGIN_FOREIGN_BLOCK, SCM_END_FOREIGN_BLOCK): Don't touch scm_ints_disabled. (old_ints): Removed. * __scm.h (SCM_DEFER_INTS, SCM_ALLOW_INTS): Define as a recursive critical section. (SCM_REDEFER_INTS, SCM_ALLOW_INTS): Define as SCM_DEFER_INTS and SCM_ALLOW_INTS.
Diffstat (limited to 'libguile/root.c')
-rw-r--r--libguile/root.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/libguile/root.c b/libguile/root.c
index 041875a42..ff8be7094 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -234,7 +234,6 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
scm_t_catch_handler handler, void *handler_data,
SCM_STACKITEM *stack_start)
{
- int old_ints_disabled = scm_ints_disabled;
SCM old_rootcont, old_winds;
struct cwdr_handler_data my_handler_data;
SCM answer;
@@ -286,7 +285,6 @@ scm_internal_cwdr (scm_t_catch_body body, void *body_data,
#endif
scm_rootcont = old_rootcont;
SCM_REALLOW_INTS;
- scm_ints_disabled = old_ints_disabled;
/* Now run the real handler iff the body did a throw. */
if (my_handler_data.run_handler)