                           :name 'com.billpiel.sayid.inner-trace3/f1}
                             :ns' 'com.billpiel.sayid.inner-trace3})]
        (f1 2)
-       #_       (clojure.pprint/pprint trace/*trace-log-parent*)))
+       (clojure.pprint/pprint trace/*trace-log-parent*)))

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

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

