From: Eric Ludlam <zappo@gnu.org>
Date: Sun, 14 Jul 2019 11:51:20 +0000 (+0200)
Subject: Allow bad tags in Scheme
X-Git-Tag: emacs-27.0.90~1920
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba51c80c304c4241d7971c6d4734c57b8864d776;p=emacs.git

Allow bad tags in Scheme

* admin/grammars/scheme.by (scheme-in-list): Allow bad tags in
Scheme (bug#36521).
---

diff --git a/admin/grammars/scheme.by b/admin/grammars/scheme.by
index 76ded7faf61..a2750dde457 100644
--- a/admin/grammars/scheme.by
+++ b/admin/grammars/scheme.by
@@ -72,6 +72,8 @@ scheme-in-list: DEFINE symbol expression
 		(INCLUDE-TAG (file-name-nondirectory (read $2)) (read $2) )
 	      | symbol sequence
 		(CODE-TAG $1 nil)
+	      | ;; No match, error
+		(TAG "Bad Tag in Sexp" 'error)
 	      ;
 
 name-args: semantic-list