Clojure: how to evaluate a quoted form in the local scope?
(equal-chance
  (println "1")
  (println "2"))

(defmacro equal-chance
  [& exprs]
    `(rand-nth '~exprs))

(let [x 10] (eval '(println x)))

(defmacro equal-chance [& exprs]
  `((rand-nth [~@(map (fn [e] `(fn [] ~e)) exprs)])))

(defmacro equal-chance
  [& exprs]
    (rand-nth exprs))