diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-01-30 21:06:31 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-01-30 21:06:31 +0000 |
commit | 5e569ca831986626579c78bc6b309e9fead22d6f (patch) | |
tree | f03af7b9167e036871a77a481749752aa9e04a4a /libguile | |
parent | c72cc5fbe440b7806099b41b32b8b8729798a6f2 (diff) | |
download | guile-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.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)); |