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

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



(defn find-closest-parent
  [path path-parents]
  (if-let [parent (path-parents path)]
    parent
    (when-not (or (nil? path) (empty? path))
