[Emacs-diffs] master ba51c80 1/2: Allow bad tags in Scheme

[Lars Ingebrigtsen]

branch: master
commit ba51c80c304c4241d7971c6d4734c57b8864d776
Author: Eric Ludlam <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 76ded7f..a2750dd 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