summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-01-30 21:06:31 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-01-30 21:06:31 +0000
commit5e569ca831986626579c78bc6b309e9fead22d6f (patch)
treef03af7b9167e036871a77a481749752aa9e04a4a /libguile
parentc72cc5fbe440b7806099b41b32b8b8729798a6f2 (diff)
downloadguile-5e569ca831986626579c78bc6b309e9fead22d6f.tar.gz
* async.c, async.h (asyncs_pending): Renamed asyncs_pending -->
scm_asyncs_pending and made it global.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/async.c6
-rw-r--r--libguile/async.h1
2 files changed, 4 insertions, 3 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 72f23e2ef..a24dfc7e8 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -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;
diff --git a/libguile/async.h b/libguile/async.h
index 6f9458983..76a603194 100644
--- a/libguile/async.h
+++ b/libguile/async.h
@@ -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));