syntax/parse: fixed obsolete test cases
This commit is contained in:
parent
e8eea05afc
commit
2e2bc02303
|
@ -17,6 +17,7 @@
|
||||||
#rx"^define-literal-set: "
|
#rx"^define-literal-set: "
|
||||||
#rx"expected identifier")
|
#rx"expected identifier")
|
||||||
|
|
||||||
|
#|
|
||||||
(tcerr "parse-rhs: no variants"
|
(tcerr "parse-rhs: no variants"
|
||||||
(let () (define-syntax-class x) 0)
|
(let () (define-syntax-class x) 0)
|
||||||
#rx"^define-syntax-class: "
|
#rx"^define-syntax-class: "
|
||||||
|
@ -26,6 +27,7 @@
|
||||||
(let () (define-splicing-syntax-class x) 0)
|
(let () (define-splicing-syntax-class x) 0)
|
||||||
#rx"^define-splicing-syntax-class: "
|
#rx"^define-splicing-syntax-class: "
|
||||||
#rx"expected at least one variant")
|
#rx"expected at least one variant")
|
||||||
|
|#
|
||||||
|
|
||||||
(tcerr "parse-rhs: commit and not delimit-cut"
|
(tcerr "parse-rhs: commit and not delimit-cut"
|
||||||
(let ()
|
(let ()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user