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

2009-11-21 17:46:10 -06:00 · 2009-11-21 17:46:10 -06:00 · d001e0176a
parent bbb95db5e6
commit d001e0176a
1 changed files with 2 additions and 5 deletions
--- a/basis/alarms/alarms.factor
+++ b/basis/alarms/alarms.factor
@ -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