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

Added unstable/cce/match macros to unstable/match.

Browse Source 
original commit: a22a1a4c1561389c320b297811ff29adda9b1f44
This commit is contained in:
Carl Eastlund 2010-05-29 01:21:53 -04:00
parent 544d9dd599
commit a5d6cf0cd4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/unstable/match.rkt
View File

@ -2,7 +2,7 @@
(require racket/match (for-syntax racket/base))
(provide ==)
(provide == match? as)
(define-match-expander
==
@ -11,3 +11,10 @@
[(_ val comp)
#'(? (lambda (x) (comp val x)))]
[(_ val) #'(== val equal?)])))
(define-syntax-rule (match? e p ...)
(match e [p #t] ... [_ #f]))
(define-match-expander as
(syntax-rules ()
[(as ([x e] ...) p ...) (and (app (lambda (y) e) x) ... p ...)]))