diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2010-12-28 23:32:47 -0800 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-12-31 16:50:31 -0500 |
| commit | 9052ca1854b7b6202dba21fe2a45183a4534c501 (patch) | |
| tree | 9239039b7ecd40fa8d8ee7c32dc6de9b8ab7cf27 | |
| parent | 404110d0de559bede6eda4b3f14424059b8540b8 (diff) | |
Mark ~w as :pretty (meaning it requires a pretty-writer) #682
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/pprint/cl_format.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/pprint/cl_format.clj b/src/clj/clojure/pprint/cl_format.clj index 42594f07..0a74bbd5 100644 --- a/src/clj/clojure/pprint/cl_format.clj +++ b/src/clj/clojure/pprint/cl_format.clj @@ -1526,7 +1526,7 @@ not a pretty writer (which keeps track of columns), this function always outputs (\W [] - #{:at :colon :both} {} + #{:at :colon :both :pretty} {} (if (or (:at params) (:colon params)) (let [bindings (concat (if (:at params) [:level nil :length nil] []) |