From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 3 Apr 2001 03:44:02 +0000 (+0000)
Subject: Always start the thread timer when there are any input registrations.
X-Git-Tag: 20090517-FFI~2874
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=950d5fa4a51c6e94204f8fbff946a77a4c2ff49e;p=mit-scheme.git

Always start the thread timer when there are any input registrations.
The timer is necessary even if no threads are currently running.
---

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index 372d3d948..ab9ff16b6 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.33 1999/03/26 01:44:10 cph Exp $
+$Id: thread.scm,v 1.34 2001/04/03 03:44:02 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -862,10 +862,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define (%maybe-toggle-thread-timer)
   (cond ((and timer-interval
-	      (let ((current-thread first-running-thread))
-		(and current-thread
-		     (or (thread/next current-thread)
-			 input-registrations))))
+	      (or input-registrations
+		  (let ((current-thread first-running-thread))
+		    (and current-thread
+			 (thread/next current-thread)))))
 	 (%start-thread-timer timer-interval #t))
 	(timer-records
 	 (let ((next-event-time (timer-record/time timer-records)))