This commit is contained in:
Michiel Borkent 2022-10-01 21:09:54 +02:00
parent 0ba951844d
commit 22adc3e118

View file

@ -1136,18 +1136,15 @@ Use bb run --help to show this help output.
(take depth (.getStackTrace (Thread/currentThread))))))) (take depth (.getStackTrace (Thread/currentThread)))))))
(alter-var-root #'require (alter-var-root #'require
(fn [old-req] (fn [_old-req]
(fn [& args] (fn [& args]
(prn :require-args args) (prn :require-args args)
(where-am-i 100) (System/exit 1))))
#_(System/exit 0)
#_(apply old-req args))))
(alter-var-root #'requiring-resolve (alter-var-root #'requiring-resolve
(fn [old-req] (fn [_old-req]
(fn [& args] (fn [& args]
(prn :requiring-resolve-args args) (prn :requiring-resolve-args args)
(stacktrace/print-stack-trace (-> (Thread/currentThread) #_(.getStackTrace))) (System/exit 1))))
(apply old-req args))))
(comment) (comment)