Clojure 1.2.1 reveals a bug.

marick · Dec 6, 2012 · f4a3756 · f4a3756
1 parent f452ac2
commit f4a3756
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/midje/doc.clj b/src/midje/doc.clj
@@ -124,7 +124,11 @@
   :print-facts        (2)  -- print fact descriptions in addition to namespaces.
 "} midje-print-levels)
 
-(def midje-print-level midje-print-levels)
+(defn alternate-doc-source [copy original]
+  (intern *ns* (vary-meta copy assoc :doc (:doc (meta (resolve original))))))
+
+(alternate-doc-source 'midje-print-level 'midje-print-levels)
+
 
 (def ^{:doc "
   * A common form:
@@ -143,8 +147,8 @@
     (fact :integration ...)
     (fact {:priority 5} ...)
 "} midje-facts)
-(def midje-fact midje-facts)
 
+(alternate-doc-source 'midje-fact 'midje-facts)
 
 (def ^{:doc "
   (facts \"about checkers\"
@@ -224,8 +228,7 @@
        ...)
 "} midje-setup)
 
-(def midje-teardown midje-setup)
-
+(alternate-doc-source 'midje-teardown 'midje-setup)
 
 (def ^{:doc "
   * For checks