gistfile1.clj

;; I want to replace this:


(defn- unfinished* [names]
  (let [declarations (for [name names] 
                      `(do
                         (defn ~name [& args#] 
                           (throw (user-error (str "#'" '~name " has no implementation. It's used as a prerequisite in Midje tests."))))
                         ;; A reliable way of determining if an `unfinished` function
                         ;; has since been defined.
                         (alter-meta! (var ~name) assoc :midje/unfinished-fun ~name)))]
    `(do ~@declarations)))

;; with this:

(defn- unfinished* [names]
  (let [declarations (for [name names] 
                       ;; metadata's a reliable way of determining if an 
                       ;; `unfinished` function has since been defined.
                       `(defn ^{:midje/unfinished-fun ~name} ~name [& args#] 
                         (throw (user-error (str "#'" '~name " has no implementation. It's used as a prerequisite in Midje tests.")))))]
    `(do ~@declarations)))


;; doesn't seem to work.  any suggestions?