From 5de6ae78a7225fe310e06a0910f66e719506a517 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 16 Feb 1999 00:34:42 +0000 Subject: [PATCH] Eliminate WRITE-CHARS operation on output ports. --- v7/src/runtime/fileio.scm | 3 +-- v7/src/runtime/genio.scm | 6 +----- v7/src/runtime/runtime.pkg | 3 +-- v8/src/runtime/runtime.pkg | 3 +-- 4 files changed, 4 insertions(+), 11 deletions(-) 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!))) -- 2.25.1