From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 05:21:27 +0000 (+0000)
Subject: Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently close
X-Git-Tag: 20090517-FFI~4631
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ecaccf159c8c0dd638838a96f6f63dc80ecfd6f;p=mit-scheme.git

Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently close
either side of an I/O port.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 558580a1e..7f48bc7e6 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.307 1999/02/16 05:17:58 cph Exp $
+$Id: runtime.pkg,v 14.308 1999/02/16 05:21:27 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1860,10 +1860,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/channel
 	  output-buffer/close
 	  output-buffer/drain-block
+	  output-buffer/open?
 	  output-buffer/set-size
 	  output-buffer/size
 	  output-buffer/write-char-block
-	  output-buffer/write-string-block
 	  output-buffer/write-substring
 	  output-buffer/write-substring-block
 	  set-channel-port!)
@@ -1889,7 +1889,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/buffered-chars
 	  output-buffer/channel
 	  output-buffer/drain-block
-	  output-buffer/open?
 	  output-buffer/set-size
 	  output-buffer/size
 	  output-buffer/write-char-block
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index b92937a70..08a230bd8 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.312 1999/02/16 00:49:36 cph Exp $
+$Id: runtime.pkg,v 14.313 1999/02/16 05:18:05 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1851,6 +1851,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  input-buffer/discard-char
 	  input-buffer/discard-until-delimiter
 	  input-buffer/eof?
+	  input-buffer/open?
 	  input-buffer/peek-char
 	  input-buffer/read-char
 	  input-buffer/read-substring
@@ -1863,10 +1864,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/channel
 	  output-buffer/close
 	  output-buffer/drain-block
+	  output-buffer/open?
 	  output-buffer/set-size
 	  output-buffer/size
 	  output-buffer/write-char-block
-	  output-buffer/write-string-block
 	  output-buffer/write-substring
 	  output-buffer/write-substring-block
 	  set-channel-port!)