From 69373fb445b00523d8b38d10de548b4a67e2bb99 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sat, 11 Mar 2023 23:38:16 +0100
Subject: [PATCH] Support clojure.lang.MapEntry/create

---
 sci                            | 2 +-
 src/babashka/impl/classes.clj  | 6 ++++--
 test/babashka/interop_test.clj | 5 +++++
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/sci b/sci
index 8d9f1d2e..617bf809 160000
--- a/sci
+++ b/sci
@@ -1 +1 @@
-Subproject commit 8d9f1d2e29b5d359f92b976d45786f7d5e415468
+Subproject commit 617bf809d1810b48cab24980864b85249c2a9d8b
diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj
index 223a4f08..ffaa6f4a 100644
--- a/src/babashka/impl/classes.clj
+++ b/src/babashka/impl/classes.clj
@@ -165,7 +165,10 @@
                {:name "getResourceAsStream"}
                {:name "getParent"}]}
     clojure.lang.ARef
-    {:methods [{:name "getWatches"}]}})
+    {:methods [{:name "getWatches"}]}
+    clojure.lang.MapEntry
+    {:allPublicConstructors true
+     :methods [{:name "create"}]}})
 
 (def custom-map
   (cond->
@@ -530,7 +533,6 @@
           ~@(when features/yaml? '[org.yaml.snakeyaml.error.YAMLException])
           ~@(when features/hsqldb? '[org.hsqldb.jdbcDriver])]
     :constructors [clojure.lang.Delay
-                   clojure.lang.MapEntry
                    clojure.lang.LineNumberingPushbackReader
                    java.io.EOFException]
     :methods [borkdude.graal.LockFix] ;; support for locking
diff --git a/test/babashka/interop_test.clj b/test/babashka/interop_test.clj
index a8e34824..1574091f 100644
--- a/test/babashka/interop_test.clj
+++ b/test/babashka/interop_test.clj
@@ -22,3 +22,8 @@
 
 (deftest domain-sockets-test
   (is (= :success (bb nil (slurp "test-resources/domain_sockets.bb")))))
+
+(deftest map-entry-create-test
+  (is (true? (bb nil "(= (first {1 2})
+                         (clojure.lang.MapEntry. 1 2)
+                         (clojure.lang.MapEntry/create 1 2))"))))