From 3a1439a16e3bff1edec74483b2b6dc3fad0a1909 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 11 Dec 2002 12:40:29 +0000
Subject: [PATCH] Remove warning message "Warning: dropping ignored channel i/o
 result" because it can be legitimately triggered by WAIT-FOR-CHANNELS.

---
 scheme/rts/channel-io.scm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/scheme/rts/channel-io.scm b/scheme/rts/channel-io.scm
index 7ec8522..850aae4 100644
--- a/scheme/rts/channel-io.scm
+++ b/scheme/rts/channel-io.scm
@@ -39,12 +39,17 @@
 	 => (lambda (thread)
 	      (decrement-channel-wait-count!)
 	      (make-ready thread status)))
-	(else
-	 (debug-message "Warning: dropping ignored channel i/o result {Channel "
-			(channel-os-index channel)
-			" "
-			(channel-id channel)
-			"}")))
+	;; The problem with the debug message is that
+	;; WAIT-FOR-CHANNELS can trigger this warning in a perfectly
+	;; legimitate situation because of a race I don't know how to
+	;; avoid. --Mike
+;	(else
+;	 (debug-message "Warning: dropping ignored channel i/o result {Channel "
+;			(channel-os-index channel)
+;			" "
+;			(channel-id channel)
+;			"}"))
+	)
        (cond
 	((and maybe-ready-cell
 	      (cell-ref maybe-ready-cell))