Call %MAYBE-TOGGLE-THREAD-TIMER after registering a timer event.

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index dc2de327a24f6d855579cc3b969cad47b562ab55..c539bfc83faa47450ee65417e98b2aae9b065aea 100644 (file)
--- 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)