Move another call to newline.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 3e179c1128d592bc6d23f85f276bf0b1a12a58cc..f45e2a10d0a103b2ac13cc1a0b99d72328e1fef6 100644 (file)
--- 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)))
-
+\f
 (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 a8ed66a046c83bfec3f2b0a24a5a327b1c129449..fc52b30568c8b27193a7f5ede98604b1fb69985f 100644 (file)
--- 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)