From 6fe00e8593330430a0f897496591f4cc0b74412f Mon Sep 17 00:00:00 2001
From: Eric Knauel <knauel@informatik.uni-tuebingen.de>
Date: Tue, 5 Oct 2004 15:16:12 +0000
Subject: [PATCH] SELECT actually gets an arbitrary number of rendezvous as its
 argument---not a list of rendezvous. Fix this.

---
 s48/cml/async-channels.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/s48/cml/async-channels.scm b/s48/cml/async-channels.scm
index 3313dd9..bb16569 100644
--- a/s48/cml/async-channels.scm
+++ b/s48/cml/async-channels.scm
@@ -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)))