typo
This commit is contained in:
parent
8041c4cae3
commit
f71272a8a5
|
@ -26,7 +26,7 @@
|
||||||
(catch FunctionNotFoundException ex
|
(catch FunctionNotFoundException ex
|
||||||
false)))
|
false)))
|
||||||
|
|
||||||
(defn- make-aliases-array [aliases]
|
(defn- make-aliased-array [aliases]
|
||||||
(let [n (count aliases)
|
(let [n (count aliases)
|
||||||
array (make-array String n)]
|
array (make-array String n)]
|
||||||
(doseq [index (range n)]
|
(doseq [index (range n)]
|
||||||
|
@ -46,7 +46,7 @@
|
||||||
(clojure->java (apply f (map java->clojure arguments)))
|
(clojure->java (apply f (map java->clojure arguments)))
|
||||||
(catch Exception ex
|
(catch Exception ex
|
||||||
(throw (new FunctionException ex))))))]
|
(throw (new FunctionException ex))))))]
|
||||||
(.add @functions handler name (make-aliases-array aliases))
|
(.add @functions handler name (make-aliased-array aliases))
|
||||||
(.retrieve @functions name)))
|
(.retrieve @functions name)))
|
||||||
|
|
||||||
(defmacro deftwigfn
|
(defmacro deftwigfn
|
||||||
|
|
Reference in a new issue