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)))))))
(alter-var-root #'require
(fn [old-req]
(fn [_old-req]
(fn [& args]
(prn :require-args args)
(where-am-i 100)
#_(System/exit 0)
#_(apply old-req args))))
(System/exit 1))))
(alter-var-root #'requiring-resolve
(fn [old-req]
(fn [_old-req]
(fn [& args]
(prn :requiring-resolve-args args)
(stacktrace/print-stack-trace (-> (Thread/currentThread) #_(.getStackTrace)))
(apply old-req args))))
(System/exit 1))))
(comment)