From 547746db9f6341ee4923e66818fb0da3e36dab9c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 21 May 2010 13:28:03 -0500
Subject: [PATCH] Change alarm start variable to store nano-count of start time
 instead of (nano-count + interval)

---
 basis/alarms/alarms.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/alarms/alarms.factor b/basis/alarms/alarms.factor
index 1824e1efec..a352b8b436 100644
--- a/basis/alarms/alarms.factor
+++ b/basis/alarms/alarms.factor
@@ -30,12 +30,12 @@ M: duration >nanoseconds duration>nanoseconds >integer ;
 : <alarm> ( quot start interval -- alarm )
     alarm new
         swap >nanoseconds >>interval
-        swap >nanoseconds nano-count +
-            [ >>start ] [ >>iteration-scheduled ] bi
+        nano-count >>start
+        swap >nanoseconds over start>> + >>iteration-scheduled
         swap >>quot ; inline
 
 : register-alarm ( alarm -- )
-    dup start>> alarms get-global heap-push* drop
+    dup iteration-scheduled>> alarms get-global heap-push* drop
     notify-alarm-thread ;
 
 : alarm-expired? ( alarm n -- ? )