From 5fa1f157d3d3b222a9f259c38a4b070603111568 Mon Sep 17 00:00:00 2001 From: Joshua Suskalo Date: Wed, 13 Oct 2021 15:51:49 -0500 Subject: [PATCH] Fix broken defcfn with native-sym --- src/clj/coffi/ffi.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/clj/coffi/ffi.clj b/src/clj/coffi/ffi.clj index 5910ea1..ebb8094 100644 --- a/src/clj/coffi/ffi.clj +++ b/src/clj/coffi/ffi.clj @@ -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)