From 9512af2d3ffb6a4af22b1da8988d6701ecbc49a8 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 4 Nov 1999 16:31:25 +0000
Subject: [PATCH] added set-port-handler! for set-port-buffering

---
 scheme/interfaces.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index 2ef078c..af3c53a 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -184,7 +184,7 @@
 (define-interface ports-interface
   (export port?
 	  make-port
-	  port-handler
+	  port-handler set-port-handler!
 	  port-lock set-port-lock!
 	  port-locked? set-port-locked?!
 	  port-status set-port-status!
@@ -576,7 +576,7 @@
   (export run-threads
 	  run-threads-with-housekeeper
 	  round-robin-event-handler
-
+ 
 	  make-counter            ; for thread counts
 	  counter-value
           increment-counter!