summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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));