From 8ecaccf159c8c0dd638838a96f6f63dc80ecfd6f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 16 Feb 1999 05:21:27 +0000 Subject: [PATCH] Allow CLOSE-INPUT-PORT and CLOSE-OUTPUT-PORT to independently close either side of an I/O port. --- v7/src/runtime/runtime.pkg | 5 ++--- v8/src/runtime/runtime.pkg | 5 +++-- 2 files changed, 5 insertions(+), 5 deletions(-) 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!) -- 2.25.1