diff --git a/src/babashka/impl/pprint.clj b/src/babashka/impl/pprint.clj index 1c813192..06b6e6f5 100644 --- a/src/babashka/impl/pprint.clj +++ b/src/babashka/impl/pprint.clj @@ -72,7 +72,7 @@ (def pprint-namespace {'pprint (copy-var pprint pprint-ns) - 'print-table (copy-var pprint/print-table pprint-ns) + 'print-table (copy-var print-table pprint-ns) '*print-right-margin* print-right-margin 'cl-format (copy-var pprint/cl-format pprint-ns) }) diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj index f5f3ffd0..e043b7cf 100644 --- a/test/babashka/main_test.clj +++ b/test/babashka/main_test.clj @@ -437,7 +437,9 @@ (is (= "(0 1 2 3 4 5 6 7 8 9)\n" (bb nil " (let [sw (java.io.StringWriter.)] (binding [clojure.pprint/*print-right-margin* 50] - (clojure.pprint/pprint (range 10) sw)) (str sw))"))))) + (clojure.pprint/pprint (range 10) sw)) (str sw))")))) + (testing "print-table writes to sci/out" + (is (str/includes? (test-utils/bb "(with-out-str (clojure.pprint/print-table [{:a 1} {:a 2}]))") "----")))) (deftest read-string-test (testing "namespaced keyword via alias"