              (apply merge))))
 
 (defn capture-fn
-  [path [log src-map] f fn-meta]
+  [path [log src-map fn-meta] f]
   (fn [& args]
     (let [sub-src-map (-> path path->sym src-map)
           form (:orig sub-src-map)

                                     :return val
                                     :path path
                                     :tags tags
                                     :src-map sub-map}))]
        (recur tail
               agg'))
      (-> agg


#_ (binding [trace/*trace-log-parent* (trace/mk-tree :id-prefix "root" :parent {})]
     (def tree trace/*trace-log-parent*)
     (-> (xpand '(let [a 1]
                   (-> a
                       inc
                       dec
                       nil?))
                {:name "ofunc" :ns "ns1"})
         eval))

#_ (binding [trace/*trace-log-parent* (trace/mk-tree :id-prefix "root" :parent {})]
