user=> (defmacro foo [] (into {} (for [[a b] &env] [(keyword a) a])))
#'user/foo
user=> (let [x 1] (foo))
{:x 1}
user=>