From 8ee25fb9f8ee291af6a1f0e49308bbc7d12e2e31 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 9 Oct 2002 22:37:29 +0000 Subject: [PATCH] * root.h (scm_root_state): Added 'block_async' slot. (scm_active_asyncs): Removed abbrev. * root.c (scm_make_root): Initialize 'block_asyncs' slot. --- libguile/root.c | 1 + libguile/root.h | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/libguile/root.c b/libguile/root.c index 93405f8a2..3017a16c0 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -131,6 +131,7 @@ scm_make_root (SCM parent) } root_state->active_asyncs = SCM_EOL; + root_state->block_asyncs = 0; SCM_REDEFER_INTS; SCM_NEWSMOB (root, scm_tc16_root, root_state); diff --git a/libguile/root.h b/libguile/root.h index f332d0054..6d7658d9e 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -109,6 +109,8 @@ typedef struct scm_root_state SCM active_asyncs; /* The thunks to be run at the next safe point */ + unsigned int block_asyncs; /* Non-zero means that asyncs should + not be run. */ } scm_root_state; #define scm_stack_base (scm_root->stack_base) @@ -126,7 +128,6 @@ typedef struct scm_root_state #define scm_cur_outp (scm_root->cur_outp) #define scm_cur_errp (scm_root->cur_errp) #define scm_cur_loadp (scm_root->cur_loadp) -#define scm_active_asyncs (scm_root->active_asyncs) #ifdef USE_THREADS #define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA)