diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-10-27 20:16:18 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-10-27 20:16:18 +0000 |
commit | 1ceead47c4e4bbc734a19f51a14502eabfa6bac6 (patch) | |
tree | 45972421d8ef37d653e270fc589bdf75fc5d15a6 /libguile/root.h | |
parent | 2132f0d2a50b554776177650f4dd02050766fdf9 (diff) | |
download | guile-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.h | 4 |
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) |