From e54c41c7caebec838019e99f479aea7318d173de Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Jan 2000 03:35:47 +0000
Subject: [PATCH] Move another call to newline.

---
 v7/src/runtime/global.scm | 27 +++++++++++----------------
 v7/src/runtime/load.scm   | 15 +++++++--------
 2 files changed, 18 insertions(+), 24 deletions(-)

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 3e179c112..f45e2a10d 100644
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: global.scm,v 14.51 1999/01/02 06:06:43 cph Exp $
+$Id: global.scm,v 14.52 2000/01/10 03:35:47 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
@@ -145,13 +145,13 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	((and (primitive-procedure? procedure)
 	      (primitive-procedure-documentation procedure))
 	 => (lambda (documentation)
-	      (newline)
-	      (display documentation)))
+	      (display documentation)
+	      (newline)))
 	(else
-	 (newline)
 	 (display "No documentation or debugging info for ")
 	 (display procedure)
-	 (display "."))))
+	 (display ".")
+	 (newline))))
 
 (define (pwd)
   (working-directory-pathname))
@@ -162,12 +162,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
         (user-homedir-pathname)
  	pathname)))
 
-#|
-;; Compatibility.
-(define %pwd pwd)
-(define %cd cd)
-|#
-
 (define (show-time thunk)
   (let ((process-start (process-time-clock))
 	(process-start/nogc (runtime))
@@ -179,7 +173,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	     (process-time (- process-end process-start))
 	     (process-time/nogc
 	      (round->exact (* 1000 (- process-end/nogc process-start/nogc)))))
-	(newline)
 	(write-string "process time: ")
 	(write process-time)
 	(write-string " (")
@@ -187,9 +180,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	(write-string " RUN + ")
 	(write (- process-time process-time/nogc))
 	(write-string " GC); real time: ")
-	(write (- real-end real-start)))
+	(write (- real-end real-start))
+	(newline))
       value)))
-
+
 (define (wait-interval ticks)
   (let ((end (+ (real-time-clock) ticks)))
     (let wait-loop ()
@@ -276,7 +270,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		   (write-string ";Dumping " port)
 		   (write (enough-namestring filename) port))
 		 (lambda ()
-		   (write-string " -- done" port))))
+		   (write-string " -- done" port)
+		   (newline port))))
 	(do-it no-print no-print))))
 
 (define (undefined-value? object)
diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index a8ed66a04..fc52b3056 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.54 1999/12/20 23:11:01 cph Exp $
+$Id: load.scm,v 14.55 2000/01/10 03:35:36 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
@@ -92,10 +92,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 				       purify?
 				       load-noisily?))))
 			(cond (last-file? (load-it))
-			      (load-noisily?
-			       (let ((value (load-it)))
-				 (newline)
-				 (write value)))
+			      (load-noisily? (write-line (load-it)))
 			      (else (load-it) unspecific)))))))))
 	 (if (pair? filename/s)
 	     (let loop ((filenames filename/s))
@@ -285,6 +282,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	(write (enough-namestring pathname) port)
 	(let ((value (do-it)))
 	  (write-string " -- done" port)
+	  (newline port)
 	  value))))
 
 (define *purification-root-marker*)
@@ -606,8 +604,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	(let ((port (notification-output-port)))
 	  (fresh-line port)
 	  (write-string kind port)
-	  (write-string (->namestring (->pathname fname)))
-	  (write-string "..."))))
+	  (write-string (->namestring (->pathname fname)) port)
+	  (write-string "..." port)
+	  (newline port))))
 
   (with-binary-input-file (->truename pathname)
     (lambda (channel)
-- 
2.25.1