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)) (enqueue! queue (receive in-channel))
(loop)) (loop))
(select (select
(list (wrap (receive-rv in-channel)
(wrap (receive-rv in-channel) (lambda (message)
(lambda (message) (enqueue! queue message)
(enqueue! queue message) (loop)))
(loop))) (wrap (send-rv out-channel (queue-front queue))
(wrap (send-rv out-channel (queue-front queue)) (lambda (ignore)
(lambda (ignore) (dequeue! queue)
(dequeue! queue) (loop)))))))))
(loop))))))))))
(really-make-async-channel in-channel (really-make-async-channel in-channel
out-channel))) out-channel)))