From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Mar 2000 17:40:33 +0000 (+0000)
Subject: Update to reflect more conversion to CVS.
X-Git-Tag: 20090517-FFI~4173
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2882ef6a3719a81c18737d05ee690afc80da601f;p=mit-scheme.git

Update to reflect more conversion to CVS.
---

diff --git a/v7/src/rcs/mklogs.scm b/v7/src/rcs/mklogs.scm
index ad2f5f271..ccd2e7d6f 100644
--- a/v7/src/rcs/mklogs.scm
+++ b/v7/src/rcs/mklogs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mklogs.scm,v 1.16 2000/03/21 05:29:54 cph Exp $
+$Id: mklogs.scm,v 1.17 2000/03/21 17:40:33 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -21,37 +21,38 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;;; Update the RCS log files in the standard Scheme directories.
 
-(rcs-directory-log "/scheme/v7/src" #f #t
-		   '("zurich.ai.mit.edu"
-		     ("adams" "Stephen Adams")
-		     ("arthur" "Arthur Gleckler")
-		     ("bal" "Brian A. LaMacchia")
-		     ("boogles" "Brian K. Zuzga")
-		     ("cph" "Chris Hanson")
-		     ("gjr" "Guillermo J. Rozas")
-		     ("gjs" "Gerald Jay Sussman")
-		     ("hal" "Hal Abelson")
-		     ("jacob" "Jacob Katzenelson")
-		     ("jawilson" "Jason Wilson")
-		     ("jbank" "Joe Bank")
-		     ("jinx" "Guillermo J. Rozas" "gjr@zurich.ai.mit.edu")
-		     ("jmiller" "Jim Miller")
-		     ("jrm" "Joe Marshall")
-		     ("markf" "Mark Friedman")
-		     ("mhwu" "Henry M. Wu")
-		     ("nick" "Nick Papadakis")
-		     ("pas" "Panayotis Skordos")
-		     ("thanos" "Thanos Siapas")
-		     ("ziggy" "Michael R. Blair")))
-
+(let ((changelog-map
+       '("zurich.ai.mit.edu"
+	 ("adams" "Stephen Adams")
+	 ("arthur" "Arthur Gleckler")
+	 ("bal" "Brian A. LaMacchia")
+	 ("boogles" "Brian K. Zuzga")
+	 ("cph" "Chris Hanson")
+	 ("gjr" "Guillermo J. Rozas")
+	 ("gjs" "Gerald Jay Sussman")
+	 ("hal" "Hal Abelson")
+	 ("jacob" "Jacob Katzenelson")
+	 ("jawilson" "Jason Wilson")
+	 ("jbank" "Joe Bank")
+	 ("jinx" "Guillermo J. Rozas" "gjr@zurich.ai.mit.edu")
+	 ("jmiller" "Jim Miller")
+	 ("jrm" "Joe Marshall")
+	 ("markf" "Mark Friedman")
+	 ("mhwu" "Henry M. Wu")
+	 ("nick" "Nick Papadakis")
+	 ("pas" "Panayotis Skordos")
+	 ("thanos" "Thanos Siapas")
+	 ("ziggy" "Michael R. Blair"))))
+  (for-each (lambda (directory)
+	      (rcs-directory-log directory #f #t changelog-map))
+	    '("/scheme/v7/src"
+	      "/scheme/etc"
+	      "/scheme/documentation/ref-manual"
+	      "/scheme/documentation/user-manual"
+	      "/scheme/documentation/sos")))
 (for-each rcs-directory-log
 	  '("/scheme/v8/src/bench"
 	    "/scheme/v8/src/compiler"
 	    "/scheme/v8/src/microcode"
 	    "/scheme/v8/src/runtime"
-	    "/scheme/v8/src/sf"
-
-	    "/scheme/etc"
-	    "/scheme/documentation/ref-manual"
-	    "/scheme/documentation/user-manual"
-	    "/scheme/documentation/sos"))
\ No newline at end of file
+	    "/scheme/v8/src/sf"))
\ No newline at end of file