#| -*-Scheme-*-
-$Id: logmer.scm,v 1.25 2000/03/31 14:51:21 cph Exp $
+$Id: logmer.scm,v 1.26 2000/07/09 01:44:54 cph Exp $
Copyright (c) 1988-2000 Massachusetts Institute of Technology
(merge-pathnames (or (find-option options 'OUTPUT-FILE #f)
(if changelog? "ChangeLog" "RCS.log"))
(pathname-as-directory directory))))
+ (fresh-line port)
(write-string "regenerating log for directory: " port)
(write (->namestring directory))
(write-string "..." port)