From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Feb 1999 05:43:24 +0000 (+0000)
Subject: Implement FRESH-LINE operation for generic, file, and console ports.
X-Git-Tag: 20090517-FFI~4627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b06714e5a4a03f8cea43a6ee4adff326a820c7d7;p=mit-scheme.git

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 4c890c69b..ae9ed3199 100644
--- a/v7/src/runtime/ttyio.scm
+++ b/v7/src/runtime/ttyio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ttyio.scm,v 1.7 1999/02/16 05:39:29 cph Exp $
+$Id: ttyio.scm,v 1.8 1999/02/16 05:43:24 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -183,7 +183,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define (operation/fresh-line port)
   (if (not (output-buffer/line-start? (port/output-buffer port)))
-      (operation/write-char port #\newline)))
+      (begin
+	(operation/write-char port #\newline)
+	(if transcript-port
+	    (operation/write-char transcript-port #\newline)))))
 
 (define (operation/flush-output port)
   (output-buffer/drain-block (port/output-buffer port))
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index afbebd20e..5a2d15f75 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.314 1999/02/16 05:23:07 cph Exp $
+$Id: runtime.pkg,v 14.315 1999/02/16 05:39:45 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -944,6 +944,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  operation/discard-chars
 	  operation/eof?
 	  operation/flush-output
+	  operation/fresh-line
 	  operation/input-blocking-mode
 	  operation/input-buffer-size
 	  operation/input-channel
@@ -1864,6 +1865,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/channel
 	  output-buffer/close
 	  output-buffer/drain-block
+	  output-buffer/line-start?
 	  output-buffer/open?
 	  output-buffer/set-size
 	  output-buffer/size
@@ -1893,6 +1895,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  output-buffer/buffered-chars
 	  output-buffer/channel
 	  output-buffer/drain-block
+	  output-buffer/line-start?
 	  output-buffer/set-size
 	  output-buffer/size
 	  output-buffer/write-char-block