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

fix

Browse source
This commit is contained in:
Michiel Borkent 2021-03-04 12:34:46 +01:00
parent 67a8c8d4cf
commit 7baae299a6
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -11,17 +11,11 @@
(let [subsets (rest (combo/subsets (seq methods)))]
(reduce (fn [opts classes]
(assoc opts
(set (cons (list 'quote 'sci.impl.types.IReified)
(map (fn [[class _]]
(list 'quote class))
classes)))
(set (map (fn [[class _]]
(list 'quote class))
classes))
(list 'fn ['methods]
(list* 'reify
'sci.impl.types.IReified
'(getMethods [this]
((get-in methods '[sci.impl.types.IReified getMethods]) this))
'(getInterfaces [this]
((get-in methods '[sci.impl.types.IReified getInterfaces]) this))
(mapcat
(fn [[clazz methods]]
(cons clazz