suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: improve minimatch stx errors

Browse Source
This commit is contained in:
Ryan Culpepper 2016-12-07 16:28:50 -05:00
parent bcc8535b78
commit 8e5ccd3239
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/syntax/parse/private/minimatch.rkt
View File

@ -87,6 +87,8 @@
(let ([xps (cdr (vector->list (struct->vector x)))]) (let ([xps (cdr (vector->list (struct->vector x)))])
(match-p xps (list p ...) success failure)) (match-p xps (list p ...) success failure))
failure)))] failure)))]
[(match-p x pattern success failure)
(raise-syntax-error 'minimatch "bad pattern" #'pattern)]
)) ))
(define-syntax match-p* (define-syntax match-p*