From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 12 Nov 1995 05:47:09 +0000 (+0000)
Subject: Use "rcs/mklogs" file to run the log-regeneration program.
X-Git-Tag: 20090517-FFI~5736
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3978126f140082fd9b4e894602a0f556b6cd8132;p=mit-scheme.git

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 5097e1523..11cb05a6e 100644
--- 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