summaryrefslogtreecommitdiff
path: root/admin
diff options
context:
space:
mode:
authorEric Ludlam <zappo@gnu.org>2019-07-14 13:51:20 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-07-14 13:51:20 +0200
commitba51c80c304c4241d7971c6d4734c57b8864d776 (patch)
treed307466dced5a180a3a0224acb463499c2ec370e /admin
parent8603a7d4eda60731e94ae8dae5584d8289eb7ac7 (diff)
downloademacs-ba51c80c304c4241d7971c6d4734c57b8864d776.tar.gz
Allow bad tags in Scheme
* admin/grammars/scheme.by (scheme-in-list): Allow bad tags in Scheme (bug#36521).
Diffstat (limited to 'admin')
-rw-r--r--admin/grammars/scheme.by2
1 files changed, 2 insertions, 0 deletions
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