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/async.c | |
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/async.c')
-rw-r--r-- | libguile/async.c | 6 |
1 files changed, 3 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; |