mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +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 #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_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
(SCM list_of_a), (SCM list_of_a),

1
libguile/async.h
View file

@ -61,6 +61,7 @@ SCM_API SCM scm_async (SCM thunk);
SCM_API SCM scm_system_async (SCM thunk); SCM_API SCM scm_system_async (SCM thunk);
SCM_API SCM scm_async_mark (SCM a); SCM_API SCM scm_async_mark (SCM a);
SCM_API SCM scm_system_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_run_asyncs (SCM list_of_a);
SCM_API SCM scm_noop (SCM args); SCM_API SCM scm_noop (SCM args);
SCM_API SCM scm_set_tick_rate (SCM n); SCM_API SCM scm_set_tick_rate (SCM n);