Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently close

either side of an I/O port.

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index 16c4deaaf49418f42b3b594f2460f6461cfad393..acd4f2bae5b029a4876272dc184dda673fc356fc 100644 (file)
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: io.scm,v 14.56 1999/02/16 05:21:39 cph Exp $
+$Id: io.scm,v 14.57 1999/02/16 05:25:17 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -576,7 +576,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   position
   line-translation                     ; string that newline maps to
   logical-size
-  (closed? #f))
+  closed?)
 
 (define (output-buffer-sizes translation buffer-size)
   (let ((logical-size
@@ -608,7 +608,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                                  (make-string string-size))
                             0
                             translation
-                            logical-size)))))
+                            logical-size
+                            #f)))))
 
 (define (output-buffer/close buffer associated-buffer)
   (output-buffer/drain-block buffer)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 08a230bd835b6ae3a326f4074435304cb405cf7e..afbebd20e8d868b3bfa96cf67da8b124bf0b8aa4 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.313 1999/02/16 05:18:05 cph Exp $
+$Id: runtime.pkg,v 14.314 1999/02/16 05:23:07 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -1896,7 +1896,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)