Kłopoty z Clojure cytując-paren `(...) makro

Question

Dla praktyki, mam zdefiniowane

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

który ma oczekiwaną transformację (quote-paren body) =>` `(korpus)`. Wydaje spełniać kilka podstawowych badań:

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

Jednak ja testuje go z tym zrobić, natomiast makro (modyfikowany here):

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

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

Ale wynik jest

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

ja tego nie rozumiem, bo z tego co widzę macro `cytat-pAREN” działa prawidłowo (z ~ @ ciało podłączony):

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

Ale próby makroexpand do-while powoduje "unbound fn". Czy jest coś subtelnego, czego mi brakuje?

Answer 1

brakuje składni-quote przed quote-paren

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

który następnie rozszerza się odpowiednio:

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

i wydaje się działać:

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