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

      (seq? form)
      (let [head (first form)]
        (cond
          (util/macro? head) (apply xpand-macro head args)
          (= 'loop head) (apply xpand-loop args)
          (= 'recur head) (apply xpand-recur args)
          (= 'if head) (apply xpand-if args)
          :else (apply xpand-fn head args)))

      (coll? form) (apply xpand-all args)

                                               (:form xmap)
                                               (path->sym path))})))

(defn dot-sym?
  [sym]
  (-> sym
      str
      (.startsWith ".")))

(defn xpand-form
  [form src-map fn-meta path path-parent]
  (let [args [form src-map fn-meta path path-parent]]
