From 55ca1270eab53ebd041991b15b62f82c5bed4be4 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Wed, 29 Apr 2009 18:34:55 +0000
Subject: [PATCH] Call %MAYBE-TOGGLE-THREAD-TIMER after registering a timer
 event.

---
 v7/src/runtime/thread.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index dc2de327a..c539bfc83 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.50 2008/09/12 10:26:18 riastradh Exp $
+$Id: thread.scm,v 1.51 2009/04/29 18:34:55 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -853,7 +853,8 @@ USA.
 		 (if prev
 		     (set-timer-record/next! prev new-record)
 		     (set! timer-records new-record)))
-	       (loop (timer-record/next record) record)))))
+	       (loop (timer-record/next record) record)))
+	 (%maybe-toggle-thread-timer)))
       new-record)))
 
 (define (sleep-current-thread interval)
-- 
2.25.1