mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-12 18:30:33 +00:00
parent 67673f7594
commit f12677062e
48 changed files with 191 additions and 191 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/async.c
View file

@ -390,7 +390,7 @@ SCM_DEFINE (scm_set_tick_rate, "set-tick-rate", 1, 0, 0,
old_n = scm_tick_rate;
scm_desired_tick_rate = SCM_BITS (SCM_INUM (n));
scm_desired_tick_rate = SCM_UNPACK (SCM_INUM (n));
scm_async_rate = 1 + scm_async_rate - scm_async_clock;
scm_async_clock = 1;
return SCM_MAKINUM (old_n);
@ -408,7 +408,7 @@ SCM_DEFINE (scm_set_switch_rate, "set-switch-rate", 1, 0, 0,
unsigned int old_n;
SCM_VALIDATE_INUM (1,n);
old_n = scm_switch_rate;
scm_desired_switch_rate = SCM_BITS (SCM_INUM (n));
scm_desired_switch_rate = SCM_UNPACK (SCM_INUM (n));
scm_async_rate = 1 + scm_async_rate - scm_async_clock;
scm_async_clock = 1;
return SCM_MAKINUM (old_n);