 (defn f2
   [a]
   (inc a)
-  (loop [b a]
+  (loop [b (+ a 0)]
     (if (< b 2)
       (recur (inc b))
       b)))

      (push-to-tree-atom!  new-tree
                           tree-atom)
      new-tree)
    (let [parent (produce-recent-tree-atom! (path-parents path)
                                            path-parents
                                            tree-atom)
          new-tree (-> (trace/mk-tree :parent @parent)


#_ (binding [trace/*trace-log-parent* @com.billpiel.sayid.core/workspace]
     (let [f2 (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f2
                             :meta' {:ns 'com.billpiel.sayid.inner-trace3
                                     :name 'com.billpiel.sayid.inner-trace3/f2}
                             :ns' 'com.billpiel.sayid.inner-trace3})]
       (f2 1)
       (clojure.pprint/pprint trace/*trace-log-parent*)))
