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

Move another call to newline.
---

diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index ccb8d33db..994420f8a 100644
--- 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")))))