diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-05-09 05:30:41 +0000 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-05-09 05:30:41 +0000 |
| commit | c7bb828e73017a98eaa1a69edda9ea26bb71e4db (patch) | |
| tree | 9b1f79098657647bb3869865fc9fb75c19bc191c /src/clojure/contrib/pprint/cl-format.clj | |
| parent | 85b811fc404ed3c0b291cd17fe4fa2ee502e5384 (diff) | |
Got rid of some debug code that doesn't work across namespaces
Diffstat (limited to 'src/clojure/contrib/pprint/cl-format.clj')
| -rw-r--r-- | src/clojure/contrib/pprint/cl-format.clj | 6 |
1 files changed, 2 insertions, 4 deletions
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#))))))) |