Problemi con clojure quote-paren `(...) macro

Question

Per fare pratica, ho definito

(defmacro quote-paren 
    "body -> `(body)" 
    [& body] 
    `(~@body)) 

che ha la trasformazione previsto (quote-paren body) =>` `(corpo)`. Sembra di soddisfare alcuni test di base:

user=> (macroexpand-1 `(quote-paren 3 4 5)) 
(3 4 5) 
user=> (macroexpand-1 `(quote-paren println "hi")) 
(clojure.core/println "hi") 
user=> (macroexpand-1 `(quote-paren (println "hi"))) 
((clojure.core/println "hi")) 

Tuttavia, ho provato con questo do-while macro (modificato da here):

(defmacro do-while 
    [test & body] 
    (quote-paren loop [] 
    ~@body 
    (when ~test 
     (recur)))) 

(def y 4) 
(do-while (> y 0) 
    (def y (dec y))) 

ma il risultato è

IllegalStateException Attempting to call unbound fn: #'clojure.core/unquote-splicing clojure.lang.Var$Unbound.throwArity (Var.java:43) 

Non lo capisco, perché da quello che posso vedere la macro `quote-paren 'funziona bene (con ~ @ body plug-in):

user=> (macroexpand-1 
     `(quote-paren loop [] 
      (def y (dec y)) 
      (when ~test 
       (recur)))) 

(clojure.core/loop [] (def user/y (clojure.core/dec user/y)) (clojure.core/when #<core$test clojure.core$test@1f07f672> (recur))) 

Ma provare a macroexpand do-while causa uno "unbound fn". C'è qualcosa di sottile che mi manca?

Answer 1

manca la sintassi-citazione prima quote-paren

user> (defmacro do-while 
    [test & body] 
    `(quote-paren loop [] 
    ~@body 
    (when ~test 
     (recur)))) 
#'user/do-while 

che poi si espande correttamente:

user> (macroexpand '(do-while (> y 0) 
         (def y (dec y)))) 
(loop* [] (def y (dec y)) (clojure.core/when (> y 0) (recur))) 

e sembra funzionare:

user> (def y 4) 
#'user/y 
user> (do-while (> y 0) 
    (def y (dec y))) 
nil 
user>