luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken defcfn with native-sym

Browse source
This commit is contained in:
Joshua Suskalo 2021-10-13 15:51:49 -05:00
parent a620752f2c
commit 5fa1f157d3
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/clj/coffi/ffi.clj
View file

@ -685,8 +685,10 @@
:multi-arity fn-tail :multi-arity fn-tail
nil))] nil))]
`(let [~address (find-symbol ~(name (:symbol args))) `(let [~address (find-symbol ~(name (:symbol args)))
~native-sym (-> (make-downcall ~address ~(:native-arglist args) ~(:return-type args)) ~(or (-> args :wrapper :native-fn)
(make-serde-wrapper ~(:native-arglist args) ~(:return-type args))) native-sym)
(-> (make-downcall ~address ~(:native-arglist args) ~(:return-type args))
(make-serde-wrapper ~(:native-arglist args) ~(:return-type args)))
fun# ~(if (:wrapper args) fun# ~(if (:wrapper args)
`(fn ~(:name args) `(fn ~(:name args)
~@fn-tail) ~@fn-tail)