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
nil))]
`(let [~address (find-symbol ~(name (:symbol args)))
~native-sym (-> (make-downcall ~address ~(:native-arglist args) ~(:return-type args))
(make-serde-wrapper ~(:native-arglist args) ~(:return-type args)))
~(or (-> args :wrapper :native-fn)
native-sym)
(-> (make-downcall ~address ~(:native-arglist args) ~(:return-type args))
(make-serde-wrapper ~(:native-arglist args) ~(:return-type args)))
fun# ~(if (:wrapper args)
`(fn ~(:name args)
~@fn-tail)