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

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

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