Remove warning message "Warning: dropping ignored channel i/o result"

because it can be legitimately triggered by WAIT-FOR-CHANNELS.
This commit is contained in:
sperber 2002-12-11 12:40:29 +00:00
parent a3332290c6
commit 3a1439a16e
1 changed files with 11 additions and 6 deletions

View File

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