From: Taylor R. Campbell <net/mumble/campbell>
Date: Wed, 29 Apr 2009 18:34:55 +0000 (+0000)
Subject: Call %MAYBE-TOGGLE-THREAD-TIMER after registering a timer event.
X-Git-Tag: 20090517-FFI~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=55ca1270eab53ebd041991b15b62f82c5bed4be4;p=mit-scheme.git

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 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)