From 1874221c88bc8507d07acb594e8605f981a20b2d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1996 00:53:56 +0000
Subject: [PATCH] Define new operations: CLOSE-INPUT, CLOSE-OUTPUT,
 INPUT-OPEN?, OUTPUT-OPEN?, and WRITE-CHARS.

---
 v7/src/runtime/runtime.pkg | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 3fa03546e..5a81bd4cf 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.269 1996/04/24 04:17:28 cph Exp $
+$Id: runtime.pkg,v 14.270 1996/05/14 00:53:56 cph Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -815,10 +815,12 @@ MIT in each case. |#
 	  operation/input-blocking-mode
 	  operation/input-buffer-size
 	  operation/input-channel
+	  operation/input-open?
 	  operation/input-terminal-mode
 	  operation/output-blocking-mode
 	  operation/output-buffer-size
 	  operation/output-channel
+	  operation/output-open?
 	  operation/output-terminal-mode
 	  operation/set-input-blocking-mode
 	  operation/set-input-buffer-size
@@ -832,6 +834,8 @@ MIT in each case. |#
 	  operation/char-ready?
 	  operation/chars-remaining
 	  operation/close
+	  operation/close-input
+	  operation/close-output
 	  operation/discard-char
 	  operation/discard-chars
 	  operation/eof?
@@ -839,10 +843,12 @@ MIT in each case. |#
 	  operation/input-blocking-mode
 	  operation/input-buffer-size
 	  operation/input-channel
+	  operation/input-open?
 	  operation/input-terminal-mode
 	  operation/output-blocking-mode
 	  operation/output-buffer-size
 	  operation/output-channel
+	  operation/output-open?
 	  operation/output-terminal-mode
 	  operation/peek-char
 	  operation/read-char
@@ -856,6 +862,7 @@ MIT in each case. |#
 	  operation/set-output-buffer-size
 	  operation/set-output-terminal-mode
 	  operation/write-char
+	  operation/write-chars
 	  operation/write-string
 	  operation/write-substring)
   (initialization (initialize-package!)))
@@ -1746,6 +1753,7 @@ MIT in each case. |#
 	  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!)
   (export (runtime file-i/o-port)
-- 
2.25.1