Slightly better error messages

This commit is contained in:
Tony Garnock-Jones 2021-06-18 14:57:05 +02:00
parent 28901e9d31
commit 6284fd6ebc
1 changed files with 3 additions and 3 deletions

View File

@ -57,15 +57,15 @@
['pattern
(syntax-case s ()
[(_ field-stxs ...) pattern-stx]
[_ (raise-syntax-error 'ctor-stx "Invalid pattern")])]
[_ (raise-syntax-error 'ctor-stx "Invalid pattern" s)])]
['match-pattern
(syntax-case s ()
[(_ field-stxs ...) #`(app parser-name (ctor-stx field-stxs ...))]
[_ (raise-syntax-error 'ctor-stx "Invalid match-pattern")])]
[_ (raise-syntax-error 'ctor-stx "Invalid match-pattern" s)])]
['bindings
(syntax-case s ()
[(_ field-stxs ...) bindings-stx]
[_ (raise-syntax-error 'ctor-stx "Invalid binding-pattern")])]))))
[_ (raise-syntax-error 'ctor-stx "Invalid binding-pattern" s)])]))))
(void))]))
;;---------------------------------------------------------------------------