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

diff --git a/basis/alarms/alarms.factor b/basis/alarms/alarms.factor
old mode 100644 (file)
new mode 100755 (executable)
index dc56852..251d82e
--- 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