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 76ded7faf61a87216461f039342c80f985da66da..a2750dde457863d3dabbb69f467835fe798b8dca 100644 (file)
--- 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