Rắc rối với clojure quote-paren `(...) vĩ mô

Question

Đối với thực tế, tôi đã xác định

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

trong đó có việc chuyển đổi dự kiến ​​(quote-paren body) =>` `(cơ thể)`. Dường như để đáp ứng một vài xét nghiệm cơ bản:

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

Tuy nhiên, tôi đã thử nghiệm nó với điều này do-while vĩ mô (sửa đổi từ here):

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

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

Nhưng kết quả là

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

Tôi không hiểu điều này, bởi vì từ những gì tôi có thể thấy macro 'trích dẫn-paren' hoạt động tốt (với ~ @ body được cắm vào):

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

Nhưng cố gắng macroexpand do-while gây ra một "unbound fn". Có cái gì đó tinh tế tôi đang thiếu?

Answer 1

mất tích cú pháp-quote trước quote-paren

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

mà sau đó mở rộng đúng cách:

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

và dường như làm việc:

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