Ärger mit clojure Zitat-paren `(...) Makro

Question

Für die Praxis habe ich

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

definiert, die die erwartete Transformation hat (quote-paren body) =>` `(Körper)`. Es scheint, ein paar grundlegende Tests zu erfüllen:

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

Allerdings habe ich es getestet mit dieser do-while-Makro (modifiziert nach here):

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

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

Aber das Ergebnis ist

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

Ich verstehe das nicht, denn von dem, was ich sehen kann, funktioniert das `quote-paren'-Makro gut (mit ~ @ Körper eingesteckt):

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

Aber versucht zu macroexpand do-while verursacht eine "unbound fn". Gibt es etwas Feines, das ich vermisse?

Answer 1

fehlt die Syntax-Zitat vor quote-paren

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

, die dann richtig erweitert:

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

und scheint zu funktionieren:

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