Create a public varargs factory builder
This commit is contained in:
parent
dc4013f7d4
commit
e72d57c10f
1 changed files with 7 additions and 0 deletions
|
|
@ -649,6 +649,13 @@
|
|||
(function-descriptor args ret))
|
||||
(downcall-fn args ret)))
|
||||
|
||||
(defn make-varargs-factory
|
||||
[symbol required-args ret]
|
||||
(memoize
|
||||
(fn [& types]
|
||||
(let [args (concat required-args types)]
|
||||
(make-downcall symbol args ret)))))
|
||||
|
||||
(s/def ::defcfn-args
|
||||
(s/cat :name simple-symbol?
|
||||
:doc (s/? string?)
|
||||
|
|
|
|||
Loading…
Reference in a new issue