(defn desugar-symbol [form env]
(let [sym-ns (namespace form)]
(if-let [target (and sym-ns
(not (resolve-ns (symbol sym-ns) env))
(maybe-class-literal sym-ns))] ;; Class/field
(with-meta (list '. target (symbol (str "-" (name form)))) ;; transform to (. Class -field)
(meta form))
form)))