From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 Feb 2000 01:59:51 +0000 (+0000)
Subject: Another tweak.
X-Git-Tag: 20090517-FFI~4280
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c8b9def4ceef485a1b16c5495467eca0995a9c15;p=mit-scheme.git

Another tweak.
---

diff --git a/v7/src/rcs/logmer.scm b/v7/src/rcs/logmer.scm
index 3a4c780f6..f794c0ec1 100644
--- a/v7/src/rcs/logmer.scm
+++ b/v7/src/rcs/logmer.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: logmer.scm,v 1.18 2000/02/01 01:58:14 cph Exp $
+$Id: logmer.scm,v 1.19 2000/02/01 01:59:51 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -34,7 +34,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     (write-string "regenerating log for directory: " port)
     (write (->namestring directory))
     (write-string "..." port)
-    (newline port)
     (let ((pathnames (rcs-directory-read directory)))
       (if (let ((time (file-modification-time-indirect output-file)))
 	    (or (not time)
@@ -42,6 +41,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		  (lambda (w.r)
 		    (> (file-modification-time-indirect (cdr w.r)) time)))))
 	  (begin
+	    (newline port)
 	    (write-string "total files: " port)
 	    (write (length pathnames) port)
 	    (newline port)