              child))))
 
 (defn get-temp-root-tree
-  []
+  [path]
   (-> trace/*trace-log-parent*
       (select-keys [:depth :path])
       (assoc :children (atom [])
-             :inner-path nil)
+             :inner-path path)
       atom))
 
 (defn push-to-tree-atom!

    tree-atom))

(defn record-trace-tree!
  [tree-atom]
  (let [children (some-> (@tree-atom nil)
                         deref-children
                         :children
                         deref)]

                   {:outer true})
                 idx
                 parent-fn-meta)
           :body-idx idx
           :args args)))

#_(defn xpand-fn*
  [form parent-fn-meta]
