                                 (:expected-found comparison))))
          "] (in that order)")))
     
-(defn- best-map-match-actual [comparison]
-  (str "Best match found: {"
-       (apply str
-              (interpose ", "
-                         (sort (map (fn [[k v]] (str (pr-str k) " " (pr-str v)))
-                                    (:actual-found comparison)))))
-       "}."))
-
 (defn- best-map-match-expected [comparison expected]
   (if (or (some extended-fn? (vals expected))
           (some regex? (vals expected)))

	:else
	[actual expected kind]))


(defn- best-seq-match-actual [comparison]
  (str "Best match found: " (pr-str (:actual-found comparison))))

(defn- best-seq-match-expected [comparison expected]
  (if (or (some extended-fn? expected)

(defn full-sequence-match? [actual expected kind]
  (let [comparison (seq-comparison actual expected kind)
        mismatch-description (fn [comparison expected]
                               (remove nil? [ (best-match-actual comparison)
                                              (best-seq-match-expected comparison expected) ]))]
    (or (total-match? comparison)
        (tag-as-chatty-falsehood
