   (matcha/run-match (matcha/< 1) 2) ; => passes
   (matcha/run-match (matcha/< 1) 0) ; => fails"
   [a]
-  {:match (fn [b] (core/< a b))
-   :description (str "less than " (pr-str a))
-   :describe-mismatch standard-describe-mismatch})
+  (make-record-matcher
+    (fn [b] (core/< a b))
+    (str "less than " (pr-str a))
+    standard-describe-mismatch))
 
 (defn >
   "matches based if the value given is greater-than

    (matcha/run-match matcha/map? {}) ; => passes
    (matcha/run-match matcha/map? 1) ; => fails"}
  map?
  {:match core/map?
   :description "a map"})

(def
  ^{:doc

    (matcha/run-match matcha/vector? {}) ; => passes
    (matcha/run-match matcha/vector? 1) ; => fails"}
  vector?
  (make-record-matcher
    core/vector?
    "a vector"))

(def
  ^{:doc
