diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:04:56 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:04:56 +0000 |
commit | da6129a67e1ccf785fe54ecc4deca44453276140 (patch) | |
tree | 0e3f385060ab9aa5b550f06507f45da90e0aa133 | |
parent | 0f633e66839f3cf89f7cf7f3eb16bffb1498b8bc (diff) | |
download | guile-da6129a67e1ccf785fe54ecc4deca44453276140.tar.gz |
(scm_system_async_mark_from_signal_handler): New.
-rw-r--r-- | libguile/async.c | 5 | ||||
-rw-r--r-- | libguile/async.h | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libguile/async.c b/libguile/async.c index b5c1f9e92..5d06c1f77 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -339,6 +339,11 @@ SCM_DEFINE (scm_system_async_mark, "system-async-mark", 1, 0, 0, } #undef FUNC_NAME +void +scm_system_async_mark_from_signal_handler (SCM a) +{ + SET_ASYNC_GOT_IT (a, scm_asyncs_pending_p = 1); +} SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0, (SCM list_of_a), diff --git a/libguile/async.h b/libguile/async.h index 7cdb81cd1..e27cd2ccb 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -61,6 +61,7 @@ SCM_API SCM scm_async (SCM thunk); SCM_API SCM scm_system_async (SCM thunk); SCM_API SCM scm_async_mark (SCM a); SCM_API SCM scm_system_async_mark (SCM a); +SCM_API void scm_system_async_mark_from_signal_handler (SCM a); SCM_API SCM scm_run_asyncs (SCM list_of_a); SCM_API SCM scm_noop (SCM args); SCM_API SCM scm_set_tick_rate (SCM n); |