From 5cb76fd27beb1912ae4fa9fdf352a878a5ddadca Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 17 Sep 2002 21:22:41 +0000 Subject: [PATCH] Replace call to channel-has-waiter? by channel-check-waiter. --- scheme/rts/channel-io.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/rts/channel-io.scm b/scheme/rts/channel-io.scm index 77bce3b..b080d2c 100644 --- a/scheme/rts/channel-io.scm +++ b/scheme/rts/channel-io.scm @@ -99,8 +99,8 @@ (define (wait-for-channels read-channels write-channels timeout) ;; check if we're borked from the outset - (for-each channel-has-waiter? read-channels) - (for-each channel-has-waiter? write-channels) + (for-each channel-check-waiter read-channels) + (for-each channel-check-waiter write-channels) (let ((thread-cell (make-cell (current-thread))) (ready-channels-cell (make-cell (cons '() '())))