summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-21 23:36:28 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-21 23:36:28 +0000
commit6587a966932df4748fc44b0543ce1abebfc2c7b4 (patch)
tree0069c3089892c1d00c4b68114c4dc329f58051bd /libguile/async.c
parent3920465b9cc4d6ced9f2c6c1833536ba82ab1ed5 (diff)
downloadguile-6587a966932df4748fc44b0543ce1abebfc2c7b4.tar.gz
Oops
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/async.c b/libguile/async.c
index f95667100..af892db4c 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -133,12 +133,14 @@ scm_asyncs_pending ()
return 0;
}
+#if 0
static SCM
scm_sys_tick_async_thunk (void)
{
scm_deliver_signal (SCM_TICK_SIGNAL);
return SCM_BOOL_F;
}
+#endif
void
scm_async_click ()
@@ -364,8 +366,9 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
#ifdef GUILE_OLD_ASYNC_CLICK
if (scm_mask_ints)
return SCM_BOOL_F;
-#endif
+#else
scm_asyncs_pending_p = 0;
+#endif
while (list_of_a != SCM_EOL)
{
SCM a;