clojure - 有没有办法在 Clojure 中进行顺序绑定(bind)？

Question

我想使用 binding宏，但希望它像 let 中的顺序.

我想我可以这样写...

(绑定(bind) [a 1]
(绑定(bind) [b (inc a)]
(println b)))

...但必须有更好的方法。有什么想法吗？

Answer 1

(defmacro binding* [bindings & body]
  (reduce (fn [acc [x y]]
            `(binding [~x ~y] ~acc))
          `(do ~@body)
          (reverse (partition 2 bindings))))

user> (declare ^:dynamic a ^:dynamic b)
#'user/b
user> (binding* [a 1 b (inc a)] [a b])
[1 2]

user> (macroexpand-1 '(binding* [a 1 b (inc a)] [a b]))
(clojure.core/binding [a 1]
 (clojure.core/binding [b (inc a)] 
  (do [a b])))