]> birchwood-abbey.net Git - mit-scheme.git/commitdiff
Fix update-copyright to handle top-level Tags.sh.
authorChris Hanson <org/chris-hanson/cph>
Mon, 12 Dec 2022 09:03:25 +0000 (01:03 -0800)
committerChris Hanson <org/chris-hanson/cph>
Mon, 12 Dec 2022 09:03:56 +0000 (01:03 -0800)
Tags.sh
dist/update-copyright.scm

diff --git a/Tags.sh b/Tags.sh
index 3996fdbb014fabbc45bc9c5af6f914f551f28b95..09b092e17985d91d4ad2df2a0593a9683c87949c 100755 (executable)
--- a/Tags.sh
+++ b/Tags.sh
@@ -3,8 +3,8 @@
 # Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
 #     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
 #     2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
-#     2015, 2016, 2017, 2018, 2019, 2020 Massachusetts Institute of
-#     Technology
+#     2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 Massachusetts
+#     Institute of Technology
 #
 # This file is part of MIT/GNU Scheme.
 #
index 12dac769a3b91416bea9e869cd66a9cb66c6b962..2a6c4092f2278a818514271af3bb3c440172d3a7 100644 (file)
@@ -35,6 +35,10 @@ USA.
                               (string-pad-left (number->string
                                                 (random-integer 10000))
                                                4 #\0))))
+    (let ((input (merge-pathnames "Tags.sh" root-dir)))
+      (let ((results (translation (read-file-leader input))))
+       (if (pair? results)
+           (translate-file input suffix results))))
     (for-each (lambda (dir)
                (translate-directory (merge-pathnames dir root-dir)
                                     suffix
@@ -198,6 +202,7 @@ USA.
              "dist/make-upload-files"
              "dist/scheme-inst.nsi"
              "doc/ffi/Makefile.in"
+             "doc/bootstrap"
              "doc/index.html"
              "doc/info-dir"
              "doc/mit-scheme.1"