From d001e0176a0c666b381cbad4bde29195c5770cd9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 21 Nov 2009 17:46:10 -0600
Subject: [PATCH] alarms: pass correct parameter to sleep-until, fixes 100% CPU
 usage in UI

---
 basis/alarms/alarms.factor | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 basis/alarms/alarms.factor

diff --git a/basis/alarms/alarms.factor b/basis/alarms/alarms.factor
old mode 100644
new mode 100755
index dc56852c23..251d82eec8
--- 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