(-emit-form* {:keys [form], :as ast} opts)
Extension point for custom emit-form implementations, should be rebound
to a multimethod with custom emit-form :opts.
Source
(defn ^:dynamic -emit-form*
"Extension point for custom emit-form implementations, should be rebound
to a multimethod with custom emit-form :opts."
[{:keys [form] :as ast} opts]
(let [expr (-emit-form ast opts)]
(if-let [m (and (instance? clojure.lang.IObj expr)
(meta form))]
(with-meta expr (merge m (meta expr)))
expr)))