From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Jan 2000 03:48:20 +0000 (+0000)
Subject: Move another call to newline.
X-Git-Tag: 20090517-FFI~4358
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48441f99a7870d21a096087ea93b4f0c7706e947;p=mit-scheme.git

Move another call to newline.
---

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 7ba219443..e5bceb08e 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.58 2000/01/10 03:39:30 cph Exp $
+$Id: toplev.scm,v 4.59 2000/01/10 03:47:47 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -54,6 +54,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 				 #f)))))))))
 	  (if (not (null? reasons))
 	      (begin
+		(fresh-line)
 		(write-string ";Generating ")
 		(write (->namestring output-file))
 		(write-string " because of:")
@@ -158,6 +159,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 			   output-pathname))))
 		(if compiler:noisy?
 		    (begin
+		      (fresh-line)
 		      (write-string "Compile File: ")
 		      (write (enough-namestring input-pathname))
 		      (write-string " => ")
@@ -266,6 +268,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     (set! *recursive-compilation-count* (1+ my-number))
     (if output?
 	(begin
+	  (fresh-line)
 	  (newline)
 	  (write-string *output-prefix*)
 	  (write-string "*** Recursive compilation ")
@@ -307,6 +310,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		      (do-it))))))))
       (if output?
 	  (begin
+	    (fresh-line)
 	    (write-string *output-prefix*)
 	    (write-string "*** Done with recursive compilation ")
 	    (write my-number)
@@ -560,6 +564,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define (compiler-phase/visible name thunk)
   (fluid-let ((*output-prefix* (string-append "    " *output-prefix*)))
+    (fresh-line)
     (write-string *output-prefix*)
     (write-string name)
     (write-string "...")
diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index 994420f8a..2d22bc1fc 100644
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: edwin.sf,v 1.22 2000/01/10 03:42:30 cph Exp $
+;;; $Id: edwin.sf,v 1.23 2000/01/10 03:43:54 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -65,10 +65,10 @@
 	 (lambda (filename)
 	   (write-string "Pre-loading class definitions from ")
 	   (write filename)
-	   (newline)
 	   (syntax* (read-file (string-append filename ".scm"))
 		    syntax-table)
-	   (write-string " -- done")))))
+	   (write-string " -- done")
+	   (newline)))))
   (read-class-definitions "window")
   (read-class-definitions "utlwin")
   (read-class-definitions "modwin")
diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index cbd63c028..4cee2b987 100644
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: error.scm,v 14.49 1999/01/02 06:11:34 cph Exp $
+$Id: error.scm,v 14.50 2000/01/10 03:46:12 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -584,7 +584,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	(let ((port (notification-output-port)))
 	  (fresh-line port)
 	  (write-string ";Warning: " port)
-	  (write-condition-report condition port)))))
+	  (write-condition-report condition port)
+	  (newline port)))))
 
 (define standard-error-hook false)
 (define standard-warning-hook false)
diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index 16841c973..cdd419303 100644
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.16 2000/01/09 21:33:46 cph Exp $
+$Id: toplev.scm,v 4.17 2000/01/10 03:48:20 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -170,6 +170,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((start-date (get-decoded-time)))
     (if sf:noisy?
 	(begin
+	  (fresh-line)
 	  (write-string "Syntax file: ")
 	  (write (enough-namestring input-pathname))
 	  (write-string " ")
@@ -339,6 +340,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (end-phase)
   (if sf:noisy?
       (begin
+	(fresh-line)
 	(write-string "    ")
 	(write-string this-name)
 	(write-string "...")
@@ -362,6 +364,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (time-report prefix process-time real-time)
   (if sf:noisy?
       (begin
+	(fresh-line)
 	(write-string prefix)
 	(write-string ": ")
 	(write (/ (exact->inexact process-time) 1000))