क्लोजर में अनुक्रमिक बाइंडिंग करने का कोई तरीका है?

Question

मैं binding मैक्रो का उपयोग करना चाहता हूं, लेकिन यह let में अनुक्रमिक होना चाहता है।

मुझे लगता है कि मैं इसे इस तरह लिख सकते हैं ...

 
(binding [a 1] 
    (binding [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])))