                (:x sub-src-map))]
     {:parent-path parent-path
      :name (if (seq? form)
-              (first form)
-              form)
+             (first form)
+             form)
      :form form
      :macro? macro?
      :inner-path path

  (swap! recent-trees
         assoc
         (:inner-path @tree-atom)
         tree-atom)
  #spy/d @recent-trees)

(defn mk-recent-tree-at-inner-path
  [inner-path recent-trees]

(defn tr-fn
  [inner-path [recent-trees src-map] template f]
  (fn [& args]
    (let [this (-> @(produce-recent-tree-atom! inner-path
                                               recent-trees)
                   (merge template)
                   (assoc :args (vec args)
                          :arg-map (delay (zipmap (:arg-forms template)
                                                  args))
