macros - 宏想在 clojure 中使用符号而不是字符串

Question

所以尝试制作类似 haskell lambda 语法的东西，并使用宏，这就是我得到的:

(defmacro / [& all]
  (let [args (take-while #(not (= %1 "=>")) all)
        argCount (count args)
        expr (last (split-at (+ argCount 1) all))]
    `(fn ~(vec args) (~@expr))))

(reduce (/ x y "=>" + x y) [1 2 3])

这很好用，但我最不想做的就是让它成为我不需要 "=>" 但可以只使用 =>

关于如何使 => 成为我可以在我所指的上下文中解析的有效符号的任何提示？

Answer 1

将符号的 name 与字符串进行比较:

(defmacro / [& all]
  (let [args (take-while #(not (= (name %1) "=>")) all)
        argCount (count args)
        expr (last (split-at (+ argCount 1) all))]
    `(fn ~(vec args) (~@expr))))