From 3d32891800675a344ef72155bd21f6efeea5327d Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Fri, 15 Feb 2008 04:19:00 +0000
Subject: [PATCH] When calling %MAYBE-TOGGLE-THREAD-TIMER from WAIT-FOR-IO,
 disregard the value of TIMER-INTERVAL, since we are waiting only until I/O or
 the next timer event.

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

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index 21215d20c..6d2a26f3e 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.48 2008/01/30 20:02:36 cph Exp $
+$Id: thread.scm,v 1.49 2008/02/15 04:19:00 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -955,7 +955,7 @@ USA.
 		   ((ucode-primitive request-interrupts! 1)
 		    interrupt-bit/timer)
 		   (start
-		    (if timer-interval
+		    (if (and consider-non-timers? timer-interval)
 			(min next-event-time (+ now timer-interval))
 			next-event-time)))))
 	    ((and consider-non-timers?
-- 
2.25.1