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

fixed

Browse source
This commit is contained in:
Michiel Borkent 2021-03-06 01:00:15 +01:00
parent 2761f73b0d
commit 5e120d3240
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/babashka/impl/reify.clj
View file

@ -23,25 +23,25 @@
prelude)]
(assoc opts
(cond-> (set (map #(list 'quote %)
classes))
(map first classes)))
protocols?
(conj (list 'quote 'sci.impl.IReified)))
(list 'fn ['interfaces 'methods 'protocols]
(concat prelude
(mapcat
(fn [[clazz methods]]
(cons clazz
(mapcat
(fn [[meth arities]]
(map
(fn [arity]
(list meth arity
(list*
(list 'get 'methods (list 'quote meth))
arity)))
arities))
methods)))
classes))))))
(fn [[clazz methods]]
(cons clazz
(mapcat
(fn [[meth arities]]
(map
(fn [arity]
(list meth arity
(list*
(list 'get 'methods (list 'quote meth))
arity)))
arities))
methods)))
classes))))))
{}
(concat (map (fn [subset bool]
[subset bool])
@ -53,7 +53,7 @@
(repeat false))))))
#_(prn (macroexpand '(gen-reify-combos
{java.io.FileFilter {accept [[this f]]}})))
{java.io.FileFilter {accept [[this f]]}})))
#_:clj-kondo/ignore
(def reify-opts