From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 00:34:42 +0000 (+0000)
Subject: Eliminate WRITE-CHARS operation on output ports.
X-Git-Tag: 20090517-FFI~4638
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5de6ae78a7225fe310e06a0910f66e719506a517;p=mit-scheme.git

Eliminate WRITE-CHARS operation on output ports.
---

diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm
index a5c7f8447..3b7b24377 100644
--- 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 b498e9db1..53d547dbd 100644
--- 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 f61801485..fb33f43fd 100644
--- 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 b6fdf0e7f..7ec535ca9 100644
--- 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!)))