From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Jan 2000 21:33:46 +0000 (+0000)
Subject: Change to write newlines after the lines rather than before.
X-Git-Tag: 20090517-FFI~4364
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=686fee149560013d5b0ca7c522e5afc6aa13e055;p=mit-scheme.git

Change to write newlines after the lines rather than before.
---

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index 5d8ed1874..16841c973 100644
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.15 1999/01/02 06:06:43 cph Exp $
+$Id: toplev.scm,v 4.16 2000/01/09 21:33:46 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright (c) 1988-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
@@ -170,11 +170,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((start-date (get-decoded-time)))
     (if sf:noisy?
 	(begin
-	  (newline)
 	  (write-string "Syntax file: ")
 	  (write (enough-namestring input-pathname))
 	  (write-string " ")
-	  (write (enough-namestring bin-pathname))))
+	  (write (enough-namestring bin-pathname))
+	  (newline)))
     (fasdump (make-comment
 	      `((SOURCE-FILE . ,(->namestring input-pathname))
 		(DATE ,(decoded-time/year start-date)
@@ -339,10 +339,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (end-phase)
   (if sf:noisy?
       (begin
-	(newline)
 	(write-string "    ")
 	(write-string this-name)
-	(write-string "...")))
+	(write-string "...")
+	(newline)))
   (set! previous-name this-name)
   unspecific)
 
@@ -362,10 +362,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (time-report prefix process-time real-time)
   (if sf:noisy?
       (begin
-	(newline)
 	(write-string prefix)
 	(write-string ": ")
 	(write (/ (exact->inexact process-time) 1000))
 	(write-string " (process time); ")
 	(write (/ (exact->inexact real-time) 1000))
-	(write-string " (real time)"))))
\ No newline at end of file
+	(write-string " (real time)")
+	(newline))))
\ No newline at end of file