 
 (defn f1
   [a]
-  (for [b [a (inc a)]]
+  (let [b (inc a)]
     b))
 
 #_ (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f1

                [a (take (inc a) lazy-recur)]))
     nil ~'$$return))

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

      (let [head (first form)]
        (cond
          (= 'fn* head) {:form form}
          (= 'let head) (apply xpand-let args)
          (util/macro? head) (apply xpand-macro head args)
          (= 'loop head) (apply xpand-loop args)
          (= 'recur head) (apply xpand-recur args)
