summaryrefslogtreecommitdiff
path: root/libguile/root.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-27 20:16:18 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-27 20:16:18 +0000
commit1ceead47c4e4bbc734a19f51a14502eabfa6bac6 (patch)
tree45972421d8ef37d653e270fc589bdf75fc5d15a6 /libguile/root.h
parent2132f0d2a50b554776177650f4dd02050766fdf9 (diff)
downloadguile-1ceead47c4e4bbc734a19f51a14502eabfa6bac6.tar.gz
* __scm.h (SCM_ASYNC_CLICK): Check pending_asyncs instead of
active_asyncs. * root.h (scm_root_state): Added pending_asyncs and signal_asyncs fields. * root.c (root_mark): Mark them. (make_root): Initialize them.
Diffstat (limited to 'libguile/root.h')
-rw-r--r--libguile/root.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/root.h b/libguile/root.h
index 6d7658d9e..2795b171e 100644
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -109,8 +109,12 @@ typedef struct scm_root_state
SCM active_asyncs; /* The thunks to be run at the next
safe point */
+ SCM signal_asyncs; /* The pre-queued cells for signal handlers.
+ */
unsigned int block_asyncs; /* Non-zero means that asyncs should
not be run. */
+ unsigned int pending_asyncs; /* Non-zero means that asyncs might be pending.
+ */
} scm_root_state;
#define scm_stack_base (scm_root->stack_base)