From 5e120d324093bf3d7d56d0fd47b5716fb775d947 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sat, 6 Mar 2021 01:00:15 +0100
Subject: [PATCH] fixed

---
 src/babashka/impl/reify.clj | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/babashka/impl/reify.clj b/src/babashka/impl/reify.clj
index 6c97dac0..2a4d70d2 100644
--- a/src/babashka/impl/reify.clj
+++ b/src/babashka/impl/reify.clj
@@ -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