mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* async.c, async.h (asyncs_pending): Renamed asyncs_pending -->

Browse source 
scm_asyncs_pending and made it global.
This commit is contained in:
Mikael Djurfeldt 1998-01-30 21:06:31 +00:00
parent c72cc5fbe4
commit 5e569ca831
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/async.c
View file

@ -106,8 +106,8 @@ static long scm_tc16_async;
static int asyncs_pending SCM_P ((void)); static int asyncs_pending SCM_P ((void));
static int int
asyncs_pending () scm_asyncs_pending ()
{ {
SCM pos; SCM pos;
pos = scm_asyncs; pos = scm_asyncs;
@ -238,7 +238,7 @@ scm_async_click ()
scm_run_asyncs (scm_asyncs); scm_run_asyncs (scm_asyncs);
SCM_DEFER_INTS; SCM_DEFER_INTS;
if (asyncs_pending ()) if (scm_asyncs_pending ())
{ {
SCM_ALLOW_INTS_ONLY; SCM_ALLOW_INTS_ONLY;
goto tail; goto tail;

1
libguile/async.h
View file

@ -63,6 +63,7 @@ extern unsigned int scm_mask_ints;
extern SCM scm_gc_async; extern SCM scm_gc_async;
extern int scm_asyncs_pending SCM_P ((void));
extern void scm_async_click SCM_P ((void)); extern void scm_async_click SCM_P ((void));
extern void scm_switch SCM_P ((void)); extern void scm_switch SCM_P ((void));
extern SCM scm_async SCM_P ((SCM thunk)); extern SCM scm_async SCM_P ((SCM thunk));