clojure 模板可变参数宏

Question

我尝试了以下代码（学习宏）：

(require '[clojure.template :as temp])

(defn fna [x] (println "a" x) x)
(defn fnb [x] (println "b" x) x)

(temp/apply-template '[& fns]
                     '(fn [payload] (-> payload fns))
                     '[fna fnb])
;; returns (fn [payload] (-> payload fnb))

正如我所料，我对输出感到惊讶：

(fn [payload] (-> payload fna fnb))

为什么会产生这种输出，以及实现上述目标的方法是什么？我在文档中特别说：

argv 是一个参数列表，就像在 defn 中一样。

注意：可以这样写，但我想了解如何使用模板：

(defmacro wrap-fn-> [& fns]
  `(fn [~'x#]
     (-> ~'x
         ~@fns)))

Answer 1

这里的例子

• https://clojure.github.io/clojure/clojure.template-api.html
• https://clojuredocs.org/clojure.template/apply-template

不要像[& fns] 那样显示“rest args”的使用。我认为那是你出错的地方。试试这个：

(println
  (temp/apply-template
    '[x y]
    '(fn [payload] (-> payload x y))
    '[fna fnb]))

=> (fn [payload] (-> payload fna fnb))

顺便说一句，我以前从未见过 clojure.template 使用过 - 它看起来像是一个非常专业的工具。