 ;;
 
 
-(defn match? [actual expected looseness]
+(defn- match? [actual expected looseness]
   (let [comparison (compare-results  actual expected looseness)]
     (or (total-match? comparison)
         (apply noted-falsehood

(ns midje.util.checkers
  (:use [clojure.set :only [difference union subset?]]
        [clojure.contrib.seq :only [rotations]]
        [clojure.contrib.def :only [defmacro-]]
        [clojure.contrib.pprint :only [cl-format]]
        [clojure.contrib.combinatorics :only [permutations]]
        [midje.util.form-utils :only [regex? vector-without-element-at-index

          keys))


(defn- compare-one-seq-permutation
  "Compare actual elements to expected, which is one of perhaps many
   permutations of the original expected list. looseness is a subset of
   #{:gaps-ok :in-any-order}."
