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

minimatch: add match-lambda

Browse Source
This commit is contained in:
Ryan Culpepper 2018-07-25 14:51:42 +02:00
parent 34e7c8f556
commit 8a4bab5c3e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,18 @@
#lang racket/base #lang racket/base
(require (for-syntax racket/base racket/struct-info)) (require (for-syntax racket/base racket/struct-info))
(provide match ?) (provide match match-lambda ?)
(define-syntax (match-lambda stx)
(syntax-case stx ()
[(match-lambda clause ...)
#`(lambda (x)
(match-c x
clause ...
[_ (error 'minimatch-lambda "match at ~s:~s:~s failed: ~e"
'#,(syntax-source stx)
'#,(syntax-line stx)
'#,(syntax-column stx)
x)]))]))
(define-syntax (match stx) (define-syntax (match stx)
(syntax-case stx () (syntax-case stx ()