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

SELECT actually gets an arbitrary number of rendezvous as its argument---not a list of rendezvous. Fix this.

This commit is contained in:
Eric Knauel 2004-10-05 15:16:12 +00:00
parent 8cc870c126
commit 6fe00e8593
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
s48/cml/async-channels.scm
View File

@ -16,15 +16,14 @@
(enqueue! queue (receive in-channel))
(loop))
(select
(list
(wrap (receive-rv in-channel)
(lambda (message)
(enqueue! queue message)
(loop)))
(wrap (send-rv out-channel (queue-front queue))
(lambda (ignore)
(dequeue! queue)
(loop))))))))))
(wrap (receive-rv in-channel)
(lambda (message)
(enqueue! queue message)
(loop)))
(wrap (send-rv out-channel (queue-front queue))
(lambda (ignore)
(dequeue! queue)
(loop)))))))))
(really-make-async-channel in-channel
out-channel)))