steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alarms don't start to lag if the alarm takes longer to execute than the interval itself

db4
Slava Pestov 2008-11-23 00:14:04 -06:00
parent 303b3f2f83
commit 61836bc69a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alarms/alarms.factor
View File

@ -35,7 +35,7 @@ ERROR: bad-alarm-frequency frequency ;
[ time>> ] dip before=? ; [ time>> ] dip before=? ;
: reschedule-alarm ( alarm -- ) : reschedule-alarm ( alarm -- )
dup [ swap interval>> time+ ] change-time register-alarm ; dup [ swap interval>> time+ now max ] change-time register-alarm ;
: call-alarm ( alarm -- ) : call-alarm ( alarm -- )
[ entry>> box> drop ] [ entry>> box> drop ]