diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-21 23:36:28 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-21 23:36:28 +0000 |
commit | 6587a966932df4748fc44b0543ce1abebfc2c7b4 (patch) | |
tree | 0069c3089892c1d00c4b68114c4dc329f58051bd /libguile/async.c | |
parent | 3920465b9cc4d6ced9f2c6c1833536ba82ab1ed5 (diff) | |
download | guile-6587a966932df4748fc44b0543ce1abebfc2c7b4.tar.gz |
Oops
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 5 |
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; |