   (:use [midje.ideas.metadata :only [fact-source]]
         [midje.util.ecosystem :only [fact-namespaces]]
         [midje.ideas.reporting.string-format :only [report-strings-summary]])
-  (:require [midje.ideas.rerunning-facts :as rerun]
+  (:require midje.sweet
+            [midje.ideas.rerunning-facts :as rerun]
             [midje.clojure-test-facade :as ctf]))
 
 

  []
  ((last-fact-checked)))

(defn check-facts
  "With no argument, checks all known facts.
   With arguments (namespaces or symbols), only runs facts
   in those namespaces. Returns true iff all facts check out."

     (rerun/compendium-contents)
     (mapcat rerun/namespace-facts namespaces))))

(declare report-results)

(defmacro ^{:private true} report-check-group [& body]
  `(do (ctf/zero-counters)
       ~@body
       (report-results)))

(defn check-facts [& args]
  (report-check-group 
   (apply unobtrusive-check-facts args)))

(defn forget-facts
  "After this, `check-facts` does nothing until new facts are defined."
  ([]
     (forget-facts *ns*))
  ([& namespaces]
     (if (= namespaces [:all])
       (rerun/reset-compendium)
       (dorun (map rerun/forget-facts-in-namespace namespaces)))
     :done))

(defn fetch-matching-facts
  "Returns a sequence of all facts matching
