Implement FRESH-LINE operation for generic, file, and console ports.

diff --git a/v7/src/runtime/ttyio.scm b/v7/src/runtime/ttyio.scm
index ae9ed3199211eb6432e328e9816083ecf82ca6a6..b2e7319256a62202d94dd5c748e9e5b29e912ce7 100644 (file)
--- 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))