From 5b47488938ddf75707f02a2fa035a5fdfd224ef0 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 19 Sep 2002 07:08:16 +0000
Subject: [PATCH] Include half-assed implementation of ADD-PENDING-CHANNEL.

---
 scheme/vm/s48-channel.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scheme/vm/s48-channel.scm b/scheme/vm/s48-channel.scm
index 6833207..19dbe32 100644
--- a/scheme/vm/s48-channel.scm
+++ b/scheme/vm/s48-channel.scm
@@ -108,6 +108,10 @@
   (set! *pending-channels* (delq channel *pending-channels*))
   0)
 
+(define (add-pending-channel channel input?)
+  (set! *pending-channels* (cons channel *pending-channels*))
+  #t)
+
 ;----------------
 ; Events
 ;
@@ -147,7 +151,7 @@
 	      *pending-channels*)
 	 => (lambda (channel)
 	      (set! *pending-channels* (delq channel *pending-channels*))
-	      (values (enum events io-completion-event)
+	      (values (enum events io-read-completion-event)
 		      channel
 		      0)))
 	(else