 (intern *ns* 'after #'background/after)
 (intern *ns* 'around #'background/around)
 
-(defmacro background [& forms]
+(defmacro background 
+  ""
+  [& forms]
   (when (user-desires-checking?)
     (put-wrappers-into-effect (background/background-wrappers forms))))
 
-(defmacro against-background [background-forms & foreground-forms]
+(defmacro against-background 
+  "Runs facts against setup code whch is run before :contents, :facts or :checks."
+  [background-forms & foreground-forms]
   (if (user-desires-checking?)
     (midjcoexpand `(against-background ~background-forms ~@foreground-forms))
     `(do ~@foreground-forms)))
     
-(defmacro fact [& forms]
+(defmacro fact 
+  ""
+  [& forms]
   (when (user-desires-checking?)
     (try
       (set-fallback-line-number-from &form)

        [midje.internal-ideas.wrapping :only [put-wrappers-into-effect]]
        [midje.internal-ideas.file-position :only [set-fallback-line-number-from]]
        [midje.ideas.tabular :only [tabular*]]
        [midje.ideas.facts :only [midjcoexpand
                                  complete-fact-transformation]])
  (:require [midje.ideas.background :as background])

                                 :position (midje.internal-ideas.file-position/line-number-known ~(:line (meta &form)))})
           false)))))

(defmacro facts 
  "Alias for fact."
  [& forms]
  (with-meta `(fact ~@forms) (meta &form)))

(defn- future-fact* [forms]
  (let [lineno (reader-line-number forms)
        description (if (string? (second forms))
                      (str (second forms) " ")
