                                     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 [])]

                        macroexpand
                        get-fn
                        (xpand-fn* meta'))]
    (util/eval-in-ns (-> ns' str symbol)
                     traced-form)))

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


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

          (or (special-symbol? head)
              (dot-sym? head)) ;; TODO better way to detect these?
          (xpand-all form src-map fn-meta path' parent-path)

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

