   (if (nil? inner-path)
     (let [new-parent (get-temp-root-parent)]
       (assoc-to-recent-trees! new-parent
-                                nil
-                                recent-trees)
+                              nil
+                              recent-trees)
       new-parent)
     (let [new-grandparent (produce-recent-parent-tree-atom! inner-path
-                                                    recent-trees)
+                                                            recent-trees)
           new-parent (-> (trace/mk-tree :parent new-grandparent)
                          (assoc :inner-path inner-path)
                          atom)]
       (assoc-to-recent-trees! new-parent
-                                new-grandparent
-                                recent-trees)
+                              new-grandparent
+                              recent-trees)
       new-parent)))
 
 (defn produce-recent-tree-atom!
   [inner-path recent-trees]
   (if-let [tree-atom (get-recent-tree-at-inner-path inner-path
-                                                      recent-trees)]
+                                                    recent-trees)]
     tree-atom
     (mk-recent-tree-at-inner-path inner-path
-                                    recent-trees)))
+                                  recent-trees)))
 
 (defn produce-recent-parent-tree-atom!
   [inner-path recent-trees]


(defn xpand-fn
  [head form src-map fn-meta path parent-path]
  (xpand-fn-form head
                 (xpand-all form
                            src-map

       ~'$return)))

#(do
   (def form1 '(-> 1 inc str))

   (-/p (xpand form1 {:name "name1" :ns "ns1"} ))

