Use "rcs/mklogs" file to run the log-regeneration program.

diff --git a/etc/update-rcs-log.in b/etc/update-rcs-log.in
index 5097e15231d4ef39a989a7c63af30af76fba09f8..11cb05a6ee5a7e33e42430023b9aba3a10f5ba3c 100644 (file)
--- a/etc/update-rcs-log.in
+++ b/etc/update-rcs-log.in
@@ -3,25 +3,4 @@
 (begin
   (cd "/scheme/8.0/700/rcs")
   (load-latest "make")
-  (for-each
-   (let ((rcs-directory-log (access rcs-directory-log (->environment '(RCS)))))
-     (lambda (directory)
-       (rcs-directory-log
-       (merge-pathnames "RCS.log" (pathname-as-directory directory))
-       directory)))
-   '("/scheme/8.0/src/6001"
-     "/scheme/8.0/src/bench"
-     "/scheme/8.0/src/compiler"
-     "/scheme/8.0/src/cref"
-     "/scheme/8.0/src/edwin"
-     "/scheme/8.0/src/microcode"
-     "/scheme/8.0/src/rcs"
-     "/scheme/8.0/src/runtime"
-     "/scheme/8.0/src/sf"
-     "/scheme/8.0/src/win32"
-
-     "/scheme/7.4/src/compiler"
-     "/scheme/7.4/src/microcode"
-     "/scheme/7.4/src/runtime"
-     "/scheme/7.4/src/sf"
-     )))
\ No newline at end of file
+  (load-latest "mklogs"))
\ No newline at end of file