From 7baae299a66d0e304293120a76dcdebfbf76d2f7 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Thu, 4 Mar 2021 12:34:46 +0100 Subject: [PATCH] fix --- src/babashka/impl/reify.clj | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/src/babashka/impl/reify.clj b/src/babashka/impl/reify.clj index 9ee45418..b1e11e8b 100644 --- a/src/babashka/impl/reify.clj +++ b/src/babashka/impl/reify.clj @@ -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