diff options
-rw-r--r-- | libguile/root.c | 1 | ||||
-rw-r--r-- | libguile/root.h | 3 |
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) |