diff --git a/src/babashka/impl/error_handler.clj b/src/babashka/impl/error_handler.clj index f741c6b3..b48adb76 100644 --- a/src/babashka/impl/error_handler.clj +++ b/src/babashka/impl/error_handler.clj @@ -139,10 +139,6 @@ (ruler "Context") (println ec) (println)) - (when-let [locals (and (:debug opts) (not-empty (:locals d)))] - (ruler "Locals") - (print-locals locals) - (println)) (when sci-error? (when-let [st (let [st (with-out-str diff --git a/test/babashka/error_test.clj b/test/babashka/error_test.clj index d79d0ba9..fba11c14 100644 --- a/test/babashka/error_test.clj +++ b/test/babashka/error_test.clj @@ -208,9 +208,6 @@ Location: :1:12 1: (let [x 1] (/ x 0)) ^--- Divide by zero ------ Locals ------------------------------------------------------------------- -x: 1 - ----- Stack trace -------------------------------------------------------------- clojure.core// - user - :1:12 @@ -219,13 +216,13 @@ user - :1:12 clojure.lang.ExceptionInfo: Divide by zero {:type :sci/error, :line 1, :column 12, :message \"Divide by zero\","))))) -(deftest macro-locals-print-test - (testing "exception during macro call includes &form and &env locals" - (let [output (try (tu/bb nil "--debug" "(defmacro foo [x] (subs nil 1) `(do ~x ~x)) (foo 1)") - (is false) - (catch Exception e (ex-message e)))] - (is (str/includes? (tu/normalize output) - "----- Error -------------------------------------------------------------------- +(deftest macro-test + (let [output (try (tu/bb nil "--debug" "(defmacro foo [x] (subs nil 1) `(do ~x ~x)) (foo 1)") + (is false) + (catch Exception e (ex-message e))) + output (tu/normalize output)] + (is (str/includes? output + "----- Error -------------------------------------------------------------------- Type: java.lang.NullPointerException Location: :1:19 Phase: macroexpand @@ -234,11 +231,6 @@ Phase: macroexpand 1: (defmacro foo [x] (subs nil 1) `(do ~x ~x)) (foo 1) ^--- ------ Locals ------------------------------------------------------------------- -&form: (foo 1) -&env: {} -x: 1 - ----- Stack trace -------------------------------------------------------------- clojure.core/subs - user/foo - :1:19 @@ -247,7 +239,7 @@ user - :1:45 ----- Exception ---------------------------------------------------------------- clojure.lang.ExceptionInfo: null -{:type :sci/error, :line 1, :column 19,"))))) +{:type :sci/error, :line 1, :column 19")))) (deftest native-stacktrace-test (let [output (try (tu/bb nil "(merge 1 2 3)")