From 19ad756261da7187cdbe2b589ef9a3a1c5889e0f Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 8 Dec 2021 22:42:26 +0100
Subject: [PATCH] Support applyTo interop for clojure.spec

---
 src/babashka/impl/classes.clj | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj
index d53076b8..228d17e1 100644
--- a/src/babashka/impl/classes.clj
+++ b/src/babashka/impl/classes.clj
@@ -82,7 +82,9 @@
     java.net.Inet4Address
     {:methods [{:name "getHostAddress"}]}
     java.net.Inet6Address
-    {:methods [{:name "getHostAddress"}]}})
+    {:methods [{:name "getHostAddress"}]}
+    clojure.lang.IFn
+    {:methods [{:name "applyTo"}]}})
 
 (def custom-map
   (cond->
@@ -388,7 +390,6 @@
                       clojure.lang.Cycle
                       clojure.lang.IObj
                       clojure.lang.Fn ;; to distinguish fns from maps, etc.
-                      clojure.lang.IFn
                       clojure.lang.IPending
                       ;; clojure.lang.IDeref ;; implemented as protocol in sci
                       ;; clojure.lang.IAtom  ;; implemented as protocol in sci