scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace call to channel-has-waiter? by channel-check-waiter.

This commit is contained in:
mainzelm 2002-09-17 21:22:41 +00:00
parent f0e7b6a43f
commit 5cb76fd27b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/rts/channel-io.scm
View File

@ -99,8 +99,8 @@
(define (wait-for-channels read-channels write-channels timeout) (define (wait-for-channels read-channels write-channels timeout)
;; check if we're borked from the outset ;; check if we're borked from the outset
(for-each channel-has-waiter? read-channels) (for-each channel-check-waiter read-channels)
(for-each channel-has-waiter? write-channels) (for-each channel-check-waiter write-channels)
(let ((thread-cell (make-cell (current-thread))) (let ((thread-cell (make-cell (current-thread)))
(ready-channels-cell (make-cell (cons '() '()))) (ready-channels-cell (make-cell (cons '() '())))