gistfile1.clj

(use 'riddley.walk 'riddley.compiler)

(defmacro symbol-macrolet [bindings & body]
  `(let [~@(->> bindings
             (partition 2)
             (mapcat
               (fn [[k v]]
                 [(with-meta k {::symbol-macro v}) nil])))]
     ~@body))

(defn symbol-macroexpand-all [form]
  (walk-exprs
    symbol?
    (fn [sym]
      (prn sym (locals))
      (if-let [sym' (-> (locals) (find sym) key meta ::symbol-macro)]
        sym'
        sym))
    form))