   (or (meta form)
       (-> form first meta)))
 
-(defn xpand-fn-form
+#_(defn xpand-fn-form
   [head form template]
   (cons (list `tr-fn
               '$$

                  (map-indexed (partial xpand-body
                                        parent-fn-meta))
                  prep-traced-bods)]
    `(let [~@(:templates bods)
           ~'$$p ~(:paths bods)]
       (fn ~@(:bods bods)))))

(defn get-fn

(declare xpand-form)

(defn xpand-all
  [form src-map fn-meta path path-parent]
  (when-not (nil? form)
    (util/back-into form
                    (doall (map-indexed #(xpand-form %2
                                                     src-map
                                                     fn-meta
                                                     (conj path %)
                                                     path-parent)
                                        form)))))

(defn get-form-meta-somehow
