From ba51c80c304c4241d7971c6d4734c57b8864d776 Mon Sep 17 00:00:00 2001
From: Eric Ludlam <zappo@gnu.org>
Date: Sun, 14 Jul 2019 13:51:20 +0200
Subject: [PATCH] Allow bad tags in Scheme

* admin/grammars/scheme.by (scheme-in-list): Allow bad tags in
Scheme (bug#36521).
---
 admin/grammars/scheme.by | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.39.2