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

Add match*? to unstable/match

Browse Source 
original commit: 12e5bc645bf6e4c8c74cd6460efefccbf5a5680d
This commit is contained in:
Asumu Takikawa 2013-06-07 14:31:46 -04:00
parent a598ba1617
commit 154824c9af
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/unstable/match.rkt
View File

@ -5,7 +5,7 @@
(for-syntax racket/base)
(for-syntax syntax/parse))
(provide match? as object)
(provide match? match*? as object)
(define-syntax-rule (match? e p ...)
(match e [p #t] ... [_ #f]))
@ -14,6 +14,14 @@
(syntax-rules ()
[(as ([x e] ...) p ...) (and (app (lambda (y) e) x) ... p ...)]))
;; Added by asumu
;; Like match? but with match*
(define-syntax (match*? stx)
(syntax-parse stx
[(_ (e ...) (p ...) ...)
(with-syntax ([(?_ ...) (generate-temporaries #'(e ...))])
#'(match* (e ...) [(p ...) #t] ... [(?_ ...) #f]))]))
;; Added by asumu
;; Match expander for objects from racket/class
(define-match-expander object