From add53c431c3cbb63b10f652b5fb04f467b2a7e03 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 16 Jan 2004 20:32:40 +0000 Subject: [PATCH] Eliminate use of obsolete OUTPUT-PORT/OPERATION. --- v7/src/edwin/tterm.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm index 1b8e79ac7..d3e85669e 100644 --- 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) -- 2.25.1