From f158e3943bf4b1ac1b2852a8dd7ac8f1fc7e8885 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Nov 1995 07:32:27 +0000
Subject: [PATCH] Change log merger to accept a single directory argument, and
 to scan down that directory tree looking for files under RCS control.  It
 additionally indirects through symbolic links, finding the RCS files for the
 linked files in their home directories.

---
 etc/update-rcs-log.in | 61 +++++++++++++++----------------------------
 1 file changed, 21 insertions(+), 40 deletions(-)

diff --git a/etc/update-rcs-log.in b/etc/update-rcs-log.in
index f54ed750c..5097e1523 100644
--- a/etc/update-rcs-log.in
+++ b/etc/update-rcs-log.in
@@ -3,44 +3,25 @@
 (begin
   (cd "/scheme/8.0/700/rcs")
   (load-latest "make")
-  (let ((rcs-directory-log (access rcs-directory-log (->environment '(RCS)))))
-    (define (make-log directory . subdirectories)
-      (with-working-directory-pathname directory
-	(lambda ()
-	  (apply rcs-directory-log
-		 "RCS.log"
-		 (cons "RCS"
-		       (map (lambda (subdirectory)
-			      (string-append subdirectory "/RCS"))
-			    subdirectories))))))
+  (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"
 
-    ;;(make-log "/scheme/8.0/src/6001")
-    (make-log "/scheme/8.0/src/compiler" "back" "base" "documentation" "etc"
-	      "machines/i386" "machines/spectrum"
-	      "rtlbase" "rtlopt")
-    (make-log "/scheme/8.0/src/cref")
-    (make-log "/scheme/8.0/src/edwin")
-    (make-log "/scheme/8.0/src/microcode"
-	      "cmpauxmd" "cmpintmd" "dosutl" "m" "ntutl" "s" "unxutl")
-    (make-log "/scheme/8.0/src/rcs")
-    (make-log "/scheme/8.0/src/runtime")
-    (make-log "/scheme/8.0/src/sf")
-    ;;(make-log "/scheme/8.0/src/sicp")
-    (make-log "/scheme/8.0/src/win32" "dibutils")
-    (make-log "/scheme/8.0/src/bench")
-
-    ;;(make-log "/scheme/7.4/src/6001")
-    (make-log "/scheme/7.4/src/compiler" "back" "base" "documentation" "etc" "fggen"
-	      "fgopt" "machines/C" "machines/alpha" "machines/bobcat"
-	      "machines/i386" "machines/mips" "machines/sparc"
-	      "machines/spectrum" "machines/vax" "rtlbase" "rtlgen" "rtlopt")
-    ;;(make-log "/scheme/7.4/src/cref")
-    ;;(make-log "/scheme/7.4/src/edwin")
-    (make-log "/scheme/7.4/src/microcode"
-	      "cmpauxmd" "cmpintmd" "dosutl" "m" "ntutl" "s" "unxutl")
-    ;;(make-log "/scheme/7.4/src/rcs")
-    (make-log "/scheme/7.4/src/runtime")
-    (make-log "/scheme/7.4/src/sf")
-    ;;(make-log "/scheme/7.4/src/sicp")
-    ;;(make-log "/scheme/7.4/src/win32" "dibutils")
-    ))
\ No newline at end of file
+     "/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
-- 
2.25.1