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

Move another call to newline.
---

diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index 2a1b68085..b255b0971 100644
--- 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 17fcb58a9..92a1bd0ef 100644
--- 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)