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

                `(~(:args m)
                  (let [~'$$ (atom {})
                        ~'$$return (do ~@(apply list (:form m)))]
                    (record-trace-tree! ~'$$)
                    ~'$$return)))
              traced-bods)})


                                                                     src-map
                                                                     fn-meta
                                                                     (conj path %)
                                                                     path #_path-parent)
                                                        form)))]
      (update-in xmap
                 [:form]
