From e585b97f187d0aed7837b3ab1649a607718f7513 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 16 Feb 1999 05:44:54 +0000 Subject: [PATCH] Implement FRESH-LINE operation for generic, file, and console ports. --- v7/src/runtime/ttyio.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/ttyio.scm b/v7/src/runtime/ttyio.scm index ae9ed3199..b2e731925 100644 --- a/v7/src/runtime/ttyio.scm +++ b/v7/src/runtime/ttyio.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ttyio.scm,v 1.8 1999/02/16 05:43:24 cph Exp $ +$Id: ttyio.scm,v 1.9 1999/02/16 05:44:54 cph Exp $ Copyright (c) 1991-1999 Massachusetts Institute of Technology @@ -183,10 +183,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (define (operation/fresh-line port) (if (not (output-buffer/line-start? (port/output-buffer port))) - (begin - (operation/write-char port #\newline) - (if transcript-port - (operation/write-char transcript-port #\newline))))) + (operation/write-char port #\newline))) (define (operation/flush-output port) (output-buffer/drain-block (port/output-buffer port)) -- 2.25.1