From: Chris Hanson Date: Mon, 12 Dec 2022 09:03:25 +0000 (-0800) Subject: Fix update-copyright to handle top-level Tags.sh. X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=004e2f4b7cc2f34426f57c470cf00acd5f4a4721;p=mit-scheme.git Fix update-copyright to handle top-level Tags.sh. --- diff --git a/Tags.sh b/Tags.sh index 3996fdbb0..09b092e17 100755 --- 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. # diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm index 12dac769a..2a6c4092f 100644 --- a/dist/update-copyright.scm +++ b/dist/update-copyright.scm @@ -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"