alarms: pass correct parameter to sleep-until, fixes 100% CPU usage in UI
parent
bbb95db5e6
commit
d001e0176a
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue