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 ()
int
scm_asyncs_pending ()
{
SCM pos;
pos = scm_asyncs;
@ -238,7 +238,7 @@ scm_async_click ()
scm_run_asyncs (scm_asyncs);
SCM_DEFER_INTS;
if (asyncs_pending ())
if (scm_asyncs_pending ())
{
SCM_ALLOW_INTS_ONLY;
goto tail;

1
libguile/async.h
View file

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