Move another call to newline.

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index ccb8d33db330a7ff9b9255ee37d33d7ff8d1b5e1..994420f8a701fe7bf28b404fec9d140f405d88ed 100644 (file)
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: edwin.sf,v 1.21 1999/12/22 02:48:37 cph Exp $
+;;; $Id: edwin.sf,v 1.22 2000/01/10 03:42:30 cph Exp $
 ;;;
-;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-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
@@ -63,8 +63,9 @@
        (let ((syntax-table
              (access class-syntax-table (->environment '(EDWIN)))))
         (lambda (filename)
-          (write-string "\nPre-loading class definitions from ")
+          (write-string "Pre-loading class definitions from ")
           (write filename)
+          (newline)
           (syntax* (read-file (string-append filename ".scm"))
                    syntax-table)
           (write-string " -- done")))))