mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(scm_system_async_mark_from_signal_handler): New.

Browse source
This commit is contained in:
Marius Vollmer 2001-11-25 15:04:56 +00:00
parent 0f633e6683
commit da6129a67e
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/async.c
View file

@ -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),