From f8672d83f2f12a3d7c96b2f73cf015f982a7777f Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Mon, 26 Dec 2022 13:35:13 +0100
Subject: [PATCH] hmm [skip ci]

---
 project.clj           | 6 +++---
 src/babashka/main.clj | 7 +++++++
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/project.clj b/project.clj
index 807f2068..5e385544 100644
--- a/project.clj
+++ b/project.clj
@@ -97,9 +97,9 @@
                     {:dependencies [[com.clojure-goes-fast/clj-async-profiler "0.5.0"]
                                     [com.opentable.components/otj-pg-embedded "0.13.3"]
                                     [nubank/matcher-combinators "3.6.0"]]}]
-             :uberjar {:global-vars {*assert* false}
-                       :jvm-opts ["-Dclojure.compiler.direct-linking=true"
-                                  "-Dclojure.spec.skip-macros=true"
+             :uberjar {;; :global-vars {*assert* false}
+                       :jvm-opts [#_"-Dclojure.compiler.direct-linking=true"
+                                  #_"-Dclojure.spec.skip-macros=true"
                                   "-Dborkdude.dynaload.aot=true"]
                        :main babashka.main
                        :aot [babashka.main]}
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 99ff3bbc..f529a232 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -1138,6 +1138,13 @@ Use bb run --help to show this help output.
     (let [exit-code (run args)]
       (System/exit exit-code))))
 
+;; disable graalvm bloat
+(alter-var-root #'require (constantly (fn [& args] (prn :req args))))
+(alter-var-root #'resolve (constantly (fn [& args] (prn :resolve args))))
+(alter-var-root #'requiring-resolve (constantly (fn [& args] (prn :req-resolve args))))
+(alter-var-root #'find-var (constantly (fn [& args] (prn :find-var args))))
+(alter-var-root #'find-ns (constantly (fn [& args] (prn :find-ns args))))
+
 ;;;; Scratch
 
 (comment)