Problemas con clojure Cotización en paren `(...) macro

Question

Para la práctica, he definido

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

que tiene la transformación esperada (quote-paren body) =>` `(cuerpo)`. Se parece satisfacer algunas pruebas básicas:

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")) 

Sin embargo, he estado probando con este do-while macro (modificado de here):

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

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

pero el resultado es

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

No entiendo esto, porque por lo que puedo ver, la macro `quote-paren 'funciona bien (con ~ @ cuerpo enchufado):

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))) 

Pero al intentar macroexpandir do-while provoca un "unbound fn". ¿Hay algo sutil que me estoy perdiendo?

Answer 1

falta la sintaxis de la cotización antes quote-paren

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

que luego se expande adecuadamente:

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

y parece que funciona:

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