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

  (or (meta form)
      (-> form first meta)))

(defn tr-macro
  [template tree-atom mcro v]
  (let [tree @(produce-recent-tree-atom! (:inner-path template)


(defn f1
  [a]
  (for [b [a (inc a)]]
    b))

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