       (update-tree! tree-atom))
   v)
 
-
 (defn xpand-if-form
   [[_ test then else] path-sym]
   `(tr-if-ret ~path-sym

       (clojure.pprint/pprint trace/*trace-log-parent*)))

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

    (recur (inc a))
    a))

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

#_ (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f2
                  :meta' {:ns 'com.billpiel.sayid.inner-trace3
                          :name 'com.billpiel.sayid.inner-trace3/f1}
                 :ns' 'com.billpiel.sayid.inner-trace3})
