Macros 如何创建宏来定义clojure中的两个函数
下面的代码的行为与我预期的不同Macros 如何创建宏来定义clojure中的两个函数,macros,lisp,clojure,Macros,Lisp,Clojure,下面的代码的行为与我预期的不同 ; given a function name, its args and body, create 2 versions: ; i.e., (double-it foo []) should create 2 functions: foo and foo* (defmacro double-it [fname args & body] `(defn ~fname ~args ~@body) `(def
; given a function name, its args and body, create 2 versions:
; i.e., (double-it foo []) should create 2 functions: foo and foo*
(defmacro double-it
[fname args & body]
`(defn ~fname ~args ~@body)
`(defn ~(symbol (str fname "*")) ~args ~@body))
上面的代码并不像我预期的那样创建两个函数。它只创建最后一个
user=> (double-it deez [a b] (str b a))
#'user/deez*
如何让一个宏定义两个函数
; given a function name, its args and body, create 2 versions:
; ie (double-it foo [] ) should create 2 functions: foo and foo*
(defmacro double-it
[fname args & body]
`(do (defn ~fname ~args ~@body)
(defn ~(symbol (str fname "*")) ~args ~@body)))
(double-it afunc [str] (println str))
(afunc* "asd")
(afunc "asd")
无需单独报价