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