From fcd502a2f5cab8ad1bf6a9bf7f03451433e8c83d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 12 Nov 1995 05:55:42 +0000 Subject: [PATCH] Generate more output to describe what is happening. --- v7/src/rcs/logmer.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/v7/src/rcs/logmer.scm b/v7/src/rcs/logmer.scm index 44e0a967d..c2da63297 100644 --- a/v7/src/rcs/logmer.scm +++ b/v7/src/rcs/logmer.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: logmer.scm,v 1.11 1995/11/12 05:52:22 cph Exp $ +$Id: logmer.scm,v 1.12 1995/11/12 05:55:42 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -47,6 +47,7 @@ MIT in each case. |# (newline port) (write-string "regenerating log for directory: " port) (write (->namestring directory)) + (write-string "..." port) (let ((pathnames (rcs-directory-read directory))) (if (let ((time (file-modification-time-indirect output-file))) (or (not time) @@ -67,11 +68,7 @@ MIT in each case. |# (call-with-output-file output-file (lambda (port) (format/entries entries port)))))) - (begin - (newline port) - (write-string "directory " port) - (write (->namestring directory) port) - (write-string " is up to date." port)))))) + (write-string " log is up to date" port))))) (define (format/entries entries port) (let ((groups (compress-entries entries))) -- 2.25.1