             [midje.data.compendium :as compendium]
             [midje.parsing.1-to-explicit-form.future-facts :as parse-future-facts]
             [midje.parsing.1-to-explicit-form.metadata :as parse-metadata]
+            [midje.parsing.2-to-lexical-maps.fakes :as parse-fakes]
+            [midje.parsing.2-to-lexical-maps.examples :as parse-examples]
             [midje.parsing.2-to-lexical-maps.folded-fakes :as parse-folded-fakes]
             [midje.data.fact :as fact-data]))
 

    sequential?  (preserve-type form (eagerly (map midjcoexpand form)))
    :else        form))

(defn expand-fact-body [forms metadata]
  (-> forms
      annotate-embedded-arrows-with-line-numbers

      parse-folded-fakes/unfold-fakes
      surround-with-background-fakes
      midjcoexpand
      parse-expects
      (multiwrap (forms-to-wrap-around :facts))))


