Eliminate READ-CHARS input-port operation.

diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm
index 3b7b243776e3ecb109582514306ac3449fcd8942..408bc8f8303cd1f8ee5c0459a2c6a9fef6653efe 100644 (file)
--- 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 53d547dbd154c57f7d84eb6b591c4865939f3bf5..87918d67ad2269c530fb96feb77636824c14454f 100644 (file)
--- 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 fb33f43fdbf81d4cfafe4bcf66c0c59b103def94..e250057fc82fb5e84e45d39ecfdbc0d63d20d89d 100644 (file)
--- 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 7ec535ca9fde7e3d9d2be15b20dc460803a60a19..8fba96d36f04dca377c8458d550b9dd6c92f814e 100644 (file)
--- 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