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

alarms: pass correct parameter to sleep-until, fixes 100% CPU usage in UI

db4
Slava Pestov 2009-11-21 17:46:10 -06:00
parent bbb95db5e6
commit d001e0176a
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/alarms/alarms.factor Normal file → Executable file
View File

@ -59,11 +59,8 @@ SYMBOL: alarm-thread
: trigger-alarms ( alarms -- ) : trigger-alarms ( alarms -- )
nano-count (trigger-alarms) ; nano-count (trigger-alarms) ;
: next-alarm ( alarms -- timestamp/f ) : next-alarm ( alarms -- nanos/f )
dup heap-empty? [ drop f ] [ dup heap-empty? [ drop f ] [ heap-peek drop start>> ] if ;
heap-peek drop start>>
nano-count swap -
] if ;
: alarm-thread-loop ( -- ) : alarm-thread-loop ( -- )
alarms get-global alarms get-global