From 950d5fa4a51c6e94204f8fbff946a77a4c2ff49e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 3 Apr 2001 03:44:02 +0000 Subject: [PATCH] Always start the thread timer when there are any input registrations. The timer is necessary even if no threads are currently running. --- v7/src/runtime/thread.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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))) -- 2.25.1