diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-10 09:35:06 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-10 09:35:06 +0000 |
commit | c7fabadfe0161ca9fd2989179a3b3f387d3f8258 (patch) | |
tree | 153d7856b0442c9046eb6dd2ed767425d767f1a2 /libguile/root.c | |
parent | 06babeccd19cbabf723853ec712df84f8f6b1f1b (diff) | |
download | guile-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.c | 2 |
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) |