diff options
-rw-r--r-- | libguile/async.c | 6 | ||||
-rw-r--r-- | libguile/async.h | 1 |
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)); |