summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c5
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),