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 /libguile/async.c | |
parent | 0f633e66839f3cf89f7cf7f3eb16bffb1498b8bc (diff) | |
download | guile-da6129a67e1ccf785fe54ecc4deca44453276140.tar.gz |
(scm_system_async_mark_from_signal_handler): New.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 5 |
1 files changed, 5 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), |