Move ==' to racket/match'.

original commit: 81dd112f5709b2b603363899e74b140ce91f5122
2011-11-13 22:09:49 -05:00 · 2011-11-13 22:09:49 -05:00 · 8e83505012
commit 8e83505012
parent 9d81fc2593
1 changed files with 1 additions and 9 deletions
--- a/collects/unstable/match.rkt
+++ b/collects/unstable/match.rkt
@ -5,15 +5,7 @@
         (for-syntax racket/base)
         (for-syntax syntax/parse))

-(provide == match? as object)
-
-(define-match-expander
-  ==
-  (lambda (stx)
-    (syntax-case stx ()
-      [(_ val comp)
-       #'(? (lambda (x) (comp val x)))]
-      [(_ val) #'(== val equal?)])))
+(provide match? as object)

 (define-syntax-rule (match? e p ...)
  (match e [p #t] ... [_ #f]))