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

Ensure that arglists are quoted in the resulting code

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-16 14:09:54 -05:00
parent db9f3b5209
commit 268e1cb598
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/coffi/ffi.clj
View file

@ -455,7 +455,6 @@
(s/cat :arglist (s/coll-of simple-symbol? :kind vector?) (s/cat :arglist (s/coll-of simple-symbol? :kind vector?)
:body (s/* any?))))) :body (s/* any?)))))
;; TODO(Joshua): Finish this
(defmacro defcfn (defmacro defcfn
{:arglists '([name docstring? symbol arg-types ret-type arglist & body])} {:arglists '([name docstring? symbol arg-types ret-type arglist & body])}
[& args] [& args]
@ -480,11 +479,13 @@
~(vary-meta (:name args) ~(vary-meta (:name args)
update :arglists update :arglists
(fn [old-list] (fn [old-list]
(list
'quote
(or old-list (or old-list
(list (list
(or (-> args :fn-tail :arglist) (or (-> args :fn-tail :arglist)
(mapv (comp symbol name) (mapv (comp symbol name)
(:native-arglist args))))))) (:native-arglist args))))))))
~@(list (:doc args)) ~@(list (:doc args))
fun#)))) fun#))))