summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/root.c1
-rw-r--r--libguile/root.h3
2 files changed, 3 insertions, 1 deletions
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)