                                     path
                                     parent-path)))
 
+(defn dot-sym?
+  [sym]
+  (-> sym
+       str
+       (.startsWith ".")))
+
 (defn xpand-form
   [form src-map fn-meta & [path parent-path]]
   (let [path' (or path [])]


          (= 'if head) (xpand-if form src-map fn-meta path' parent-path)

          (special-symbol? head) (xpand-all form src-map fn-meta path' parent-path)

          :else (xpand-fn head form src-map fn-meta path' parent-path)))


                        macroexpand
                        get-fn
                        (xpand-fn* meta'))]
    (try (util/eval-in-ns (-> ns' str symbol)
                          traced-form)
         (catch Exception e
           (clojure.pprint/pprint traced-form)
           (throw e)))))

(defn ^{::trace/trace-type :deep-fn} composed-tracer-fn
  [m _]
