From 5eac4d2d9a64cf3fc698d286a5116e98f575b63b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 25 Oct 2006 17:32:56 +0000 Subject: [PATCH] Eliminate unnecessary semicolons in notification lines. --- v7/src/compiler/base/toplev.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.25.1