Eliminate use of obsolete OUTPUT-PORT/OPERATION.

diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index 1b8e79ac7a3d91daa122f129aa99d7b4d006df32..d3e85669ea08ab2ac83156e6e58080c79227e53a 100644 (file)
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: tterm.scm,v 1.38 2003/02/14 18:28:13 cph Exp $
+$Id: tterm.scm,v 1.39 2004/01/16 20:32:40 cph Exp $
 
 Copyright 1990,1991,1993,1994,1998,1999 Massachusetts Institute of Technology
-Copyright 2001,2002,2003 Massachusetts Institute of Technology
+Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -97,14 +97,11 @@ USA.
         (terminal-output-baud-rate channel))))
 
 (define (output-port/buffered-chars port)
-  (let ((operation (output-port/operation port 'BUFFERED-CHARS)))
+  (let ((operation (port/operation port 'BUFFERED-OUTPUT-CHARS)))
     (if operation
        (operation port)
        0)))
 
-(define (output-port/y-size port)
-  ((output-port/operation port 'Y-SIZE) port))
-
 (define (console-available?)
   (let ((description (console-termcap-description)))
     (and (termcap-description? description)