Clojure: come valutare un modulo quotato nell'ambito locale?

Question

Voglio definire una macro che sceglie casualmente una delle espressioni specificate e la valuta. Ad esempio,

(equal-chance 
    (println "1") 
    (println "2")) 

deve stampare "1" metà del tempo e "2" l'altra metà.

Ho provato ad utilizzare,

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

ma questo restituisce una delle forme citate, piuttosto che valutarla (vale a dire che sarebbe tornato (println "1") piuttosto che in realtà la stampa di "1"). Non riesco a utilizzare eval perché non conserva i binding. Ad esempio,

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

si lamenta che non è in grado di risolvere il simbolo x.

Esiste un modo per valutare un modulo quotato nell'ambito locale? O forse c'è un modo migliore per farlo?

Answer 1

Non si può valutare un valore di run-time in un ambiente lessicale che esiste solo in fase di compilazione. La soluzione è quella di utilizzare fn anziché quote e una chiamata di funzione invece di eval:

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

il modo in cui funziona è espandendo (equal-chance e1 e2 ...) in ((rand-nth [(fn [] e1) (fn [] e2) ...])).

Answer 2

Basta non citare la chiamata a rand-nth o le espressioni. Questo farà quello che vuoi:

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