From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 2006 17:32:56 +0000 (+0000)
Subject: Eliminate unnecessary semicolons in notification lines.
X-Git-Tag: 20090517-FFI~869
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5eac4d2d9a64cf3fc698d286a5116e98f575b63b;p=mit-scheme.git

Eliminate unnecessary semicolons in notification lines.
---

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 37a90b62c..795cabe60 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.66 2006/10/25 05:42:21 cph Exp $
+$Id: toplev.scm,v 4.67 2006/10/25 17:32:56 cph Exp $
 
 Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright 1993,1994,1997,1999,2000,2001 Massachusetts Institute of Technology
@@ -64,7 +64,7 @@ USA.
 	      (begin
 		(write-notification-line
 		 (lambda (port)
-		   (write-string ";Generating " port)
+		   (write-string "Generating " port)
 		   (write (->namestring output-file) port)
 		   (write-string " because of:" port)
 		   (for-each (lambda (reason)
@@ -187,7 +187,7 @@ USA.
 		  (if compiler:noisy?
 		      (with-notification
 			  (lambda (port)
-			    (write-string ";Compile File: " port)
+			    (write-string "Compile File: " port)
 			    (write (enough-namestring input-pathname) port)
 			    (write-string " => " port)
 			    (write (enough-namestring output-pathname) port))