diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2010-04-29 22:24:08 -0700 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2010-04-29 22:24:08 -0700 |
| commit | 661dcfde7965c3e6650d169afca4a20ef146c940 (patch) | |
| tree | 75883f8fe5a6051cc01454ab99d1733e55eab7f0 /src/test/clojure/clojure/contrib | |
| parent | 78ee9b3e64c5ac6082fb223fc79292175e8e4f0c (diff) | |
Remove gen-class requirement from clojure.contrib.pprint. See #81
Diffstat (limited to 'src/test/clojure/clojure/contrib')
| -rw-r--r-- | src/test/clojure/clojure/contrib/pprint/test_cl_format.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj b/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj index ae9ce914..c1c997fd 100644 --- a/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj +++ b/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj @@ -445,14 +445,14 @@ (cl-format true "~%;; ~{~<~%;; ~:; ~A~>~}.~%" (into [] (.split "This function computes the circular thermodynamic coefficient of the thrombulator angle for use in determining the reaction distance." "\\s")))) (defn list-to-table [aseq column-width] - (let [stream (pretty-writer (java.io.StringWriter.))] + (let [stream (get-pretty-writer (java.io.StringWriter.))] (binding [*out* stream] (doseq [row aseq] (doseq [col row] (cl-format true "~4D~7,vT" col column-width)) (prn))) (.flush stream) - (.toString (.getWriter stream)))) + (.toString (:base @@(:base @@stream))))) (simple-tests column-writer-test (list-to-table (map #(vector % (* % %) (* % % %)) (range 1 21)) 8) |