        (emit/fact-stream-summary ct-counters#)
        (all-test-failures-to-self-documenting-map ct-counters#))))
 
-(defmacro around-fact-function-stream [ffs-sym config-settings & body]
+(defmacro around-fact-stream [ffs-sym config-settings & body]
   `(config/with-augmented-config ~config-settings
      (emit/forget-everything)
      ~@body

(ns ^{:doc "Execution boundaries that have to do with checking of faces"}
  midje.emission.boundaries
  (:require [midje.clojure-test-facade :as ctf]
            [midje.emission.api :as emit]
            [midje.emission.state :as state]))



;; TODO: Note that both of the fact around functions need to check
;; failure counts. It would perhaps make sense to have the
;; `around-fact` wrap `around-top-level-fact`, but I
;; think it would surprise and annoy plugin-writers.

(defmacro around-top-level-fact [fact-sym & body]
  `(let [starting-failures# (state/output-counters:midje-failures)]
     (emit/possible-new-namespace (metadata/fact-namespace ~fact-sym))
     (emit/starting-to-check-top-level-fact ~fact-sym)
     ~@body
     (emit/finishing-top-level-fact ~fact-sym)
     (= starting-failures# (state/output-counters:midje-failures))))

(defmacro around-fact [fact-sym & body]
  `(let [starting-failures# (state/output-counters:midje-failures)]
     (emit/starting-to-check-fact ~fact-sym)
     (fact-context/adds (metadata/fact-description ~fact-sym)
                        ~@body)
     (emit/finishing-fact ~fact-sym)
     (= starting-failures# (state/output-counters:midje-failures))))


