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 558580a1efa925bb760eed7c06ae9ba8a94f1aa6..7f48bc7e6a1ce97f1f4ccb89dc09a847a2426b96 100644 (file)
--- 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 b92937a70fbde638a88fba90cb156a9be6d20bad..08a230bd835b6ae3a326f4074435304cb405cf7e 100644 (file)
--- 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!)