From c7bb828e73017a98eaa1a69edda9ea26bb71e4db Mon Sep 17 00:00:00 2001 From: Tom Faulhaber Date: Sat, 9 May 2009 05:30:41 +0000 Subject: Got rid of some debug code that doesn't work across namespaces --- src/clojure/contrib/pprint/cl-format.clj | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/clojure') diff --git a/src/clojure/contrib/pprint/cl-format.clj b/src/clojure/contrib/pprint/cl-format.clj index 293741a2..f7bb623c 100644 --- a/src/clojure/contrib/pprint/cl-format.clj +++ b/src/clojure/contrib/pprint/cl-format.clj @@ -1798,8 +1798,7 @@ format-in can be either a control string or a previously compiled format." [format-in] (let [cf (gensym "compiled-format")] `(let [format-in# ~format-in] - (do (defonce test-format# format-in#) - (defonce ~cf (if (string? format-in#) (compile-format format-in#) format-in#)) + (do (defonce ~cf (if (string? format-in#) (compile-format format-in#) format-in#)) (fn [stream# & args#] (let [navigator# (init-navigator args#)] (execute-format stream# ~cf navigator#))))))) @@ -1814,8 +1813,7 @@ format-in can be either a control string or a previously compiled format." [format-in] (let [cf (gensym "compiled-format")] `(let [format-in# ~format-in] - (do (defonce test-format# format-in#) - (defonce ~cf (if (string? format-in#) (compile-format format-in#) format-in#)) + (do (defonce ~cf (if (string? format-in#) (compile-format format-in#) format-in#)) (fn [& args#] (let [navigator# (init-navigator args#)] (execute-format ~cf navigator#))))))) -- cgit v1.2.3-70-g09d2