From 8e835050122dc189fcfee237422e141e17f25670 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Sun, 13 Nov 2011 22:09:49 -0500
Subject: [PATCH] Move `==' to `racket/match'.

original commit: 81dd112f5709b2b603363899e74b140ce91f5122
---
 collects/unstable/match.rkt | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/collects/unstable/match.rkt b/collects/unstable/match.rkt
index 3fb84b6f..9fdd8d72 100644
--- 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]))