From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 05:25:17 +0000 (+0000)
Subject: Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently close
X-Git-Tag: 20090517-FFI~4629
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=13b5b64f144bf36481c5805effd4d49299ea5a87;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/io.scm b/v7/src/runtime/io.scm
index 16c4deaaf..acd4f2bae 100644
--- 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 08a230bd8..afbebd20e 100644
--- 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)