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))"))))