Fix some issues with tags generation.

diff --git a/src/compiler/Tags.sh b/src/compiler/Tags.sh
index ca17fb4d0a4dbe3d18c39f61df080a22ffce56b7..41a80b1296411be3437a3adfdf8a36d05ce6916a 100755 (executable)
--- a/src/compiler/Tags.sh
+++ b/src/compiler/Tags.sh
@@ -26,13 +26,6 @@
 # Utility to make TAGS file for the MIT/GNU Scheme compiler directory.
 # The working directory must be the compiler directory.
 
-set -e
-
-if [[ -d machine ]]; then
-    MACHINES=(machine/*.scm machine/*.pkg)
-else
-    MACHINES=(machines/*/*.scm machines/*/*.pkg)
-fi
-
 etags back/*.scm base/*.scm fggen/*.scm fgopt/*.scm \
-      rtlbase/*.scm rtlgen/*.scm rtlopt/*.scm "${MACHINES[@]}"
+      rtlbase/*.scm rtlgen/*.scm rtlopt/*.scm \
+      machines/*/*.scm machines/*/*.pkg

diff --git a/src/libraries/Tags.sh b/src/libraries/Tags.sh
new file mode 100755 (executable)
index 0000000..669d8c9
--- /dev/null
+++ b/src/libraries/Tags.sh
@@ -0,0 +1,29 @@
+#!/bin/bash
+#
+# 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 Massachusetts Institute of
+#     Technology
+#
+# This file is part of MIT/GNU Scheme.
+#
+# MIT/GNU Scheme is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# MIT/GNU Scheme is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with MIT/GNU Scheme; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+# 02110-1301, USA.
+
+# Utility to make TAGS file for an MIT/GNU Scheme build directory.
+# The working directory must be the build directory.
+
+etags *.scm