From 73d466e7d6c45796bf56141330c3969bfea765f2 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Thu, 9 Dec 2021 22:38:38 +0100
Subject: [PATCH] Fix SCI#649 aget reflection (#1100)

Fix issue with aget reported in babashka/sci#649 by @MrEbbinghaus
---
 deps.edn                      | 2 +-
 src/babashka/impl/classes.clj | 4 +++-
 test/babashka/main_test.clj   | 3 +++
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/deps.edn b/deps.edn
index 69088949..30f4b111 100644
--- a/deps.edn
+++ b/deps.edn
@@ -54,7 +54,7 @@
            {:extra-paths ["process/src" "process/test" "test-resources/lib_tests"]
             :extra-deps {org.clj-commons/clj-http-lite {:mvn/version "0.4.392"}
                          org.babashka/spec.alpha {:git/url "https://github.com/babashka/spec.alpha"
-                                                  :sha "5012f0b11f0b59c928423982566c1e12b67f3ed1"}
+                                                  :sha "0dec1f88cbde74a0470b454396f09a03adb4ae39"}
                          lambdaisland/regal {:git/url "https://github.com/lambdaisland/regal"
                                              :sha "f902d2c43121f9e1c48603d6eb99f5900eb6a9f6"}
                          weavejester/medley {:git/url "https://github.com/weavejester/medley"
diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj
index 92528026..17c54be4 100644
--- a/src/babashka/impl/classes.clj
+++ b/src/babashka/impl/classes.clj
@@ -87,7 +87,9 @@
     {:methods [{:name "applyTo"}]}
     clojure.lang.MultiFn
     {:fields [{:name "dispatchFn"}]
-     :methods [{:name "getMethod"}]}})
+     :methods [{:name "getMethod"}]}
+    clojure.lang.RT
+    {:methods [{:name "aget"}]}})
 
 (def custom-map
   (cond->
diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj
index dd892032..7453d769 100644
--- a/test/babashka/main_test.clj
+++ b/test/babashka/main_test.clj
@@ -806,6 +806,9 @@ true")))
                                        (java.net.PasswordAuthentication. "bork"
                                                                          (char-array "dude")))))))))))
 
+(deftest aget-test
+  (is (= 1 (bb nil "(def array-2d (into-array [(int-array [1 2]) (int-array [3 4])])) (aget array-2d 0 0)"))))
+
 ;;;; Scratch
 
 (comment