From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 00:41:03 +0000 (+0000)
Subject: Eliminate READ-CHARS input-port operation.
X-Git-Tag: 20090517-FFI~4636
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c17aa02f3426614015a5c19719d8c44898dba455;p=mit-scheme.git

Eliminate READ-CHARS input-port operation.
---

diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm
index 3b7b24377..408bc8f83 100644
--- a/v7/src/runtime/fileio.scm
+++ b/v7/src/runtime/fileio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fileio.scm,v 1.12 1999/02/16 00:34:36 cph Exp $
+$Id: fileio.scm,v 1.13 1999/02/16 00:40:59 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -41,7 +41,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	   (LENGTH ,operation/length)
 	   (PEEK-CHAR ,operation/peek-char)
 	   (READ-CHAR ,operation/read-char)
-	   (READ-CHARS ,operation/read-chars)
 	   (READ-STRING ,operation/read-string)
 	   (READ-SUBSTRING ,operation/read-substring)
 	   (REST->STRING ,operation/rest->string)
diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index 53d547dbd..87918d67a 100644
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.9 1999/02/16 00:34:42 cph Exp $
+$Id: genio.scm,v 1.10 1999/02/16 00:41:03 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -40,7 +40,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	   (INPUT-TERMINAL-MODE ,operation/input-terminal-mode)
 	   (PEEK-CHAR ,operation/peek-char)
 	   (READ-CHAR ,operation/read-char)
-	   (READ-CHARS ,operation/read-chars)
 	   (READ-STRING ,operation/read-string)
 	   (READ-SUBSTRING ,operation/read-substring)
 	   (SET-INPUT-BLOCKING-MODE ,operation/set-input-blocking-mode)
@@ -177,12 +176,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (operation/read-char port)
   (input-buffer/read-char (port/input-buffer port)))
 
-(define (operation/read-chars port result-buffer)
-  (input-buffer/read-substring (port/input-buffer port)
-			       result-buffer
-			       0
-			       (string-length result-buffer)))
-
 (define (operation/read-substring port string start end)
   (input-buffer/read-substring (port/input-buffer port) string start end))
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index fb33f43fd..e250057fc 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.304 1999/02/16 00:34:22 cph Exp $
+$Id: runtime.pkg,v 14.305 1999/02/16 00:40:48 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -952,7 +952,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  operation/output-terminal-mode
 	  operation/peek-char
 	  operation/read-char
-	  operation/read-chars
 	  operation/read-string
 	  operation/read-substring
 	  operation/set-input-blocking-mode
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 7ec535ca9..8fba96d36 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.310 1999/02/16 00:34:29 cph Exp $
+$Id: runtime.pkg,v 14.311 1999/02/16 00:40:53 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -956,7 +956,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  operation/output-terminal-mode
 	  operation/peek-char
 	  operation/read-char
-	  operation/read-chars
 	  operation/read-string
 	  operation/read-substring
 	  operation/set-input-blocking-mode