Move another call to newline.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 7ba2194439defb68e1811ebad935f547c62fa6a9..e5bceb08e006b3c1c7ff20eca0e6190a15032745 100644 (file)
--- 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 994420f8a701fe7bf28b404fec9d140f405d88ed..2d22bc1fca51884f198800449bf1929d6fa5b12e 100644 (file)
--- 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 cbd63c028892d4bf205f435988858a390de00330..4cee2b987e2429a02a097c559ec214b54f23d1d1 100644 (file)
--- 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 16841c973364c309f03d4f2e6b2f698df5131554..cdd4193036a266494c0cadd2ce8772f21056c58b 100644 (file)
--- 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))