Доступ к локальному из одного макроса в другом выполняется в области let

Question

Будь нежным, так как мой макрофу слаб.

Я хотел бы сделать что-то вроде этого:

(defmacro foo [x] `(dosync (alter x# conj x)))
(defmacro bar [] `(let [x# (ref [])] (foo 3)))

Возможно ли это? Я не могу просто (let [x ..] ..) из-за захвата символов.

ПРИМЕЧАНИЕ: я знаю, что этот пример тривиален и не достоин макросов, но это самый простой пример, который я могу придумать.

Answer 1

Мне нужно было форсировать захват символов.

(defmacro foo [x] `(dosync (alter ~'x conj x)))
(defmacro bar [] `(let [~'x (ref [])] (foo 3)))

Хотя это опасно, если вы не разбираетесь в макросах полностью, это работает.