Eliminate WRITE-CHARS operation on output ports.

diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm
index a5c7f8447341db00e519297ff5c660b4de89d49c..3b7b243776e3ecb109582514306ac3449fcd8942 100644 (file)
--- a/v7/src/runtime/fileio.scm
+++ b/v7/src/runtime/fileio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fileio.scm,v 1.11 1999/01/02 06:11:34 cph Exp $
+$Id: fileio.scm,v 1.12 1999/02/16 00:34:36 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -61,7 +61,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
           (SET-OUTPUT-BUFFER-SIZE ,operation/set-output-buffer-size)
           (SET-OUTPUT-TERMINAL-MODE ,operation/set-output-terminal-mode)
           (WRITE-CHAR ,operation/write-char)
-          (WRITE-CHARS ,operation/write-chars)
           (WRITE-STRING ,operation/write-string)
           (WRITE-SUBSTRING ,operation/write-substring)))
        (other-operations

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index b498e9db19ab73580bf2e6b2977e83006f975b6e..53d547dbd154c57f7d84eb6b591c4865939f3bf5 100644 (file)
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.8 1999/01/02 06:11:34 cph Exp $
+$Id: genio.scm,v 1.9 1999/02/16 00:34:42 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -59,7 +59,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
           (SET-OUTPUT-BUFFER-SIZE ,operation/set-output-buffer-size)
           (SET-OUTPUT-TERMINAL-MODE ,operation/set-output-terminal-mode)
           (WRITE-CHAR ,operation/write-char)
-          (WRITE-CHARS ,operation/write-chars)
           (WRITE-STRING ,operation/write-string)
           (WRITE-SUBSTRING ,operation/write-substring)))
        (other-operations
@@ -239,9 +238,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (output-buffer/write-substring-block (port/output-buffer port)
                                       string start end))
 
-(define (operation/write-chars port string start end)
-  (output-buffer/write-substring (port/output-buffer port) string start end))
-
 (define (operation/output-buffer-size port)
   (output-buffer/size (port/output-buffer port)))
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index f6180148540a6b695669ec428970d141cc126491..fb33f43fdbf81d4cfafe4bcf66c0c59b103def94 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.303 1999/02/01 03:29:46 cph Exp $
+$Id: runtime.pkg,v 14.304 1999/02/16 00:34:22 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -962,7 +962,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          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!)))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index b6fdf0e7f5deb98599dfd1f0f8a4e6b11986d1f6..7ec535ca9fde7e3d9d2be15b20dc460803a60a19 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.309 1999/02/01 03:29:39 cph Exp $
+$Id: runtime.pkg,v 14.310 1999/02/16 00:34:29 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -966,7 +966,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          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!)))