Move ==' to racket/match'.

collects/racket/match/match.rkt

@@ -13,7 +13,7 @@
 (provide (for-syntax match-...-nesting)
          match-equality-test
          define-match-expander
-         struct*
+         struct* ==
          exn:misc:match?)
 
 (define-forms parse

collects/racket/match/struct.rkt

@@ -70,4 +70,12 @@
            (quasisyntax/loc stx
              (struct struct-name #,pats-in-order))))])))
 
-(provide struct*)
+(provide struct* ==)
+
+(define-match-expander
+  ==
+  (lambda (stx)
+    (syntax-case stx ()
+      [(_ val comp)
+       #'(? (lambda (x) (comp val x)))]
+      [(_ val) #'(? (lambda (x) (equal? val x)))])))

collects/scribblings/reference/match.scrbl

@@ -544,6 +544,26 @@ instead of @racket[match].}
 
 @section{Library Extensions}
 
+@defform*[[(== val comparator) (== val)]]{
+A @tech{match expander} 
+which checks if the matched value is the same as @racket[val] when
+compared by @racket[comparator].  If @racket[comparator] is
+not provided, it defaults to @racket[equal?].  
+
+@examples[#:eval match-eval
+(match (list 1 2 3)
+  [(== (list 1 2 3)) 'yes]
+  [_ 'no])
+(match (list 1 2 3)
+  [(== (list 1 2 3) eq?) 'yes]
+  [_ 'no])
+(match (list 1 2 3)
+  [(list 1 2 (== 3 =)) 'yes]
+  [_ 'no])
+]
+}
+
+
 @defform[(struct* struct-id ([field pat] ...))]{
  A @racket[match] pattern form that matches an instance of a structure
  type named @racket[struct-id], where the field @racket[field] in the

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]))

collects/unstable/scribblings/match.scrbl

@@ -9,27 +9,6 @@
 
 @defmodule[unstable/match]
 
-@unstable[@author+email["Sam Tobin-Hochstadt" "samth@ccs.neu.edu"]]
-
-@defform*[[(== val comparator) (== val)]]{
-A @tech[#:doc '(lib "scribblings/reference/reference.scrbl")]{match expander} 
-which checks if the matched value is the same as @racket[val] when
-compared by @racket[comparator].  If @racket[comparator] is
-not provided, it defaults to @racket[equal?].  
-
-@examples[#:eval the-eval
-(match (list 1 2 3)
-  [(== (list 1 2 3)) 'yes]
-  [_ 'no])
-(match (list 1 2 3)
-  [(== (list 1 2 3) eq?) 'yes]
-  [_ 'no])
-(match (list 1 2 3)
-  [(list 1 2 (== 3 =)) 'yes]
-  [_ 'no])
-]
-}
-
 @addition[@author+email["Carl Eastlund" "cce@racket-lang.org"]]
 
 @defform[(match? val-expr pat ...)]{