summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-09 22:37:29 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-09 22:37:29 +0000
commit8ee25fb9f8ee291af6a1f0e49308bbc7d12e2e31 (patch)
treed98734207754183ce636c0ff6a960860613dbdea
parentde46f022e4a130c7b4d95ef1f8f3bae9b1c760a6 (diff)
downloadguile-8ee25fb9f8ee291af6a1f0e49308bbc7d12e2e31.tar.gz
* root.h (scm_root_state): Added 'block_async' slot.
(scm_active_asyncs): Removed abbrev. * root.c (scm_make_root): Initialize 'block_asyncs' slot.
-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)