     (matcha/run-match matcha/nil? nil) ; => passes
     (matcha/run-match matcha/nil? 1) ; => fails"}
   nil?
-  {:match core/nil?
-   :description "nil"})
+  (make-record-matcher
+    core/nil?
+    "nil"))
 
 (def
   ^{:doc

    (matcha/run-match matcha/falsey? #{}) ; => passes
    (matcha/run-match matcha/falsey? nil) ; => fails"}
  falsey?
  {:match not
   :description "a falsey value"})

(def
  ^{:doc

  (matcha/run-match (matcha/every? (matcha/= 1)) [1]) ; => passes
  (matcha/run-match (matcha/every? (matcha/= 1)) [2]) ; => fails"
  [m]
  (make-record-matcher
    (fn [xs] (core/every? (:match m) xs))
    (str "every item is " (:description m))
    (fn [xs]
      (->> xs
        (filter (complement (:match m)))
        (map (:describe-mismatch m))
        (string/join "an item ")))))

(defn some
  "passes if some elements of the sequence received matches the matcher
