From eff41bdbcc3b6acfb1125518ecd647e087abc75d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 05:22:58 +0000
Subject: [PATCH] Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently
 close either side of an I/O port.

---
 v7/src/runtime/io.scm      | 4 ++--
 v7/src/runtime/runtime.pkg | 3 +--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index 147758a05..16c4deaaf 100644
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: io.scm,v 14.55 1999/02/16 05:13:55 cph Exp $
+$Id: io.scm,v 14.56 1999/02/16 05:21:39 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -614,7 +614,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (output-buffer/drain-block buffer)
   (without-interrupts
    (lambda ()
-     (set-output-buffer/closed? buffer #t)
+     (set-output-buffer/closed?! buffer #t)
      (let ((channel (output-buffer/channel buffer)))
        (if (not (and (input-buffer? associated-buffer)
 		     (eq? channel (input-buffer/channel associated-buffer))
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 7f48bc7e6..b1c7ef6f9 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.308 1999/02/16 05:21:27 cph Exp $
+$Id: runtime.pkg,v 14.309 1999/02/16 05:22:58 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1892,7 +1892,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/set-size
 	  output-buffer/size
 	  output-buffer/write-char-block
-	  output-buffer/write-string-block
 	  output-buffer/write-substring-block
 	  set-channel-port!)
   (export (runtime microcode-errors)
-- 
2.25.1