                             :name (if (seq? form) (first form) form)
                             :form form
                             :path' path
-                            :parent-name "outer-func" ;; TODO outer func name
-                            :ns nil                   ;;TODO
+                            :parent-name (:name fn-meta)
+                            :ns (-> fn-meta :ns str symbol)
                             :args []                  ;;TODO
                             :arg-map {}               ;;TODO
                                         ; :src-map src-map


(defn tree1->trace-tree
  [tree parent src-map]
  (let [{:keys [form return children tags path]} tree
        trace-tree (if (-> tags
                           first
                           #{:fn})

      (cond (util/macro? head) (xpand-macro head
                                            (xpand* (macroexpand form) path)
                                            path')
            (= 'if head) (xpand-if (xpand** form path')  ;; TODO the rest of the special forms
                                   path')
            (special-symbol? head) (xpand** form path')
            :else (xpand-fn head
