Slightly better error messages
This commit is contained in:
parent
28901e9d31
commit
6284fd6ebc
|
@ -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))]))
|
||||
|
||||
;;---------------------------------------------------------------------------
|
||||
|
|
Loading…
Reference in New Issue