12 lines
297 B
Racket
12 lines
297 B
Racket
(#rx"before underscore"
|
|
([not-a-non-term Z_1])
|
|
(term not-a-non-term #:lang syn-err-lang))
|
|
|
|
(#rx"before underscore"
|
|
([not-a-non-term AA_1])
|
|
(term (Q_1 Q_2 (Q_3 not-a-non-term)) #:lang syn-err-lang))
|
|
|
|
(#rx".*define-language.*boglang"
|
|
([bogus-language boglang])
|
|
(term 5 #:lang bogus-language))
|