Move another call to newline.

diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index 2a1b68085597fae62e7afe6b676597ef3f1f537c..b255b0971e6c12c8fa08e5a974d95eef4139b4b8 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.sf
+++ b/v7/src/compiler/machines/i386/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.9 1999/01/02 06:06:43 cph Exp $
+$Id: compiler.sf,v 1.10 2000/01/10 03:54:28 cph Exp $
 
-Copyright (c) 1992-1999 Massachusetts Institute of Technology
+Copyright (c) 1992-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -45,7 +45,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                         (load (string-append file ".bin") package))
                       files))))
       (load-option 'HASH-TABLE)
-      (write-string "\n\n---- Loading compile-time files ----")
+      (fresh-line)
+      (newline)
+      (write-string "---- Loading compile-time files ----")
+      (newline)
       (sf-and-load '("base/switch") '(COMPILER))
       (sf-and-load '("base/macros") '(COMPILER MACROS))
       ((access initialize-package! (->environment '(COMPILER MACROS))))
@@ -79,7 +82,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
           (null? early-instructions))
       (fluid-let ((load-noisily? false)
                  (load/suppress-loading-message? false))
-       (write-string "\n\n---- Pre-loading instruction sets ----")
+       (fresh-line)
+       (newline)
+       (write-string "---- Pre-loading instruction sets ----")
+       (newline)
        (for-each (lambda (name)
                    (load (string-append "machines/i386/" name ".scm")
                          '(COMPILER LAP-SYNTAXER)

diff --git a/v7/src/compiler/machines/i386/decls.scm b/v7/src/compiler/machines/i386/decls.scm
index 17fcb58a971e92ab515c1730761d1a3e57982219..92a1bd0ef5c13961b1a83dbf962bd109be68c610 100644 (file)
--- a/v7/src/compiler/machines/i386/decls.scm
+++ b/v7/src/compiler/machines/i386/decls.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.8 1999/01/02 06:06:43 cph Exp $
+$Id: decls.scm,v 1.9 2000/01/10 03:54:25 cph Exp $
 
-Copyright (c) 1992-1999 Massachusetts Institute of Technology
+Copyright (c) 1992-2000 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -190,8 +190,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
              (and binary (< source binary) binary))))
      (set-source-node/modification-time! node modification-time)
      (if (not modification-time)
-        (begin (write-string "\nSource file newer than binary: ")
-               (write (source-node/filename node))))))
+        (begin
+          (fresh-line)
+          (write-string "Source file newer than binary: ")
+          (write (source-node/filename node))
+          (newline)))))
    source-nodes)
   (if compiler:enable-integration-declarations?
       (begin
@@ -208,10 +211,12 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                                       (> time* time)))))
                            (if newer?
                                (begin
-                                 (write-string "\nBinary file ")
+                                 (fresh-line)
+                                 (write-string "Binary file ")
                                  (write (source-node/filename node))
                                  (write-string " newer than dependency ")
-                                 (write (source-node/filename node*))))
+                                 (write (source-node/filename node*))
+                                 (newline)))
                            newer?))))
                 (set-source-node/modification-time! node false))))
         source-nodes)
@@ -221,10 +226,12 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
               (for-each (lambda (node*)
                           (if (source-node/modification-time node*)
                               (begin
-                                (write-string "\nBinary file ")
+                                (fresh-line)
+                                (write-string "Binary file ")
                                 (write (source-node/filename node*))
                                 (write-string " depends on ")
-                                (write (source-node/filename node))))
+                                (write (source-node/filename node))
+                                (newline)))
                           (set-source-node/modification-time! node* false))
                         (source-node/forward-closure node))))
         source-nodes)))
@@ -233,7 +240,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
                  (pathname-delete!
                   (pathname-new-type (source-node/pathname node) "ext"))))
            source-nodes/by-rank)
-  (write-string "\n\nBegin pass 1:")
+  (fresh-line)
+  (newline)
+  (write-string "Begin pass 1:")
+  (newline)
   (for-each (lambda (node)
              (if (not (source-node/modification-time node))
                  (source-node/syntax! node)))
@@ -243,7 +253,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          (and (not (source-node/modification-time node))
               (source-node/circular? node))))
       (begin
-       (write-string "\n\nBegin pass 2:")
+       (fresh-line)
+       (newline)
+       (write-string "Begin pass 2:")
+       (newline)
        (for-each (lambda (node)
                    (if (not (source-node/modification-time node))
                        (if (source-node/circular? node)
@@ -264,15 +277,19 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (pathname-touch! pathname)
   (if (file-exists? pathname)
       (begin
-       (write-string "\nTouch file: ")
+       (fresh-line)
+       (write-string "Touch file: ")
        (write (enough-namestring pathname))
+       (newline)
        (file-touch pathname))))
 
 (define (pathname-delete! pathname)
   (if (file-exists? pathname)
       (begin
-       (write-string "\nDelete file: ")
+       (fresh-line)
+       (write-string "Delete file: ")
        (write (enough-namestring pathname))
+       (newline)
        (delete-file pathname))))
 
 (define (sc filename)