mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* Removed some unused identifiers and commented code.

Browse source
This commit is contained in:
Dirk Herrmann 2000-06-29 15:06:31 +00:00
parent acf4331fa5
commit 9b166f1273
3 changed files with 11 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/async.c
View file

@ -142,14 +142,6 @@ 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 ()
@ -228,10 +220,6 @@ scm_async_click ()
}
}
/*
if (owe_tick)
scm_async_mark (system_signal_asyncs[SCM_SIG_ORD(SCM_TICK_SIGNAL)]); */
SCM_DEFER_INTS;
if (scm_tick_rate && scm_switch_rate)
{