From 61836bc69a43fd79ffb5ffc421c9f7d1bb59bfa9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 23 Nov 2008 00:14:04 -0600
Subject: [PATCH] Alarms don't start to lag if the alarm takes longer to
 execute than the interval itself

---
 basis/alarms/alarms.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/alarms/alarms.factor b/basis/alarms/alarms.factor
index 7fdeca9ae6..ad1838b3df 100644
--- a/basis/alarms/alarms.factor
+++ b/basis/alarms/alarms.factor
@@ -35,7 +35,7 @@ ERROR: bad-alarm-frequency frequency ;
     [ time>> ] dip before=? ;
 
 : reschedule-alarm ( alarm -- )
-    dup [ swap interval>> time+ ] change-time register-alarm ;
+    dup [ swap interval>> time+ now max ] change-time register-alarm ;
 
 : call-alarm ( alarm -- )
     [ entry>> box> drop ]