diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-04-12 00:26:19 +0000 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-04-12 00:26:19 +0000 |
| commit | 253ff594c38a21bab517a18cd5219ebf38f2a3da (patch) | |
| tree | f273cc26e0f5705514f1b9342509b95c8f5b0760 | |
| parent | 648a477581af40afd66a2ae8e461779374c13e7b (diff) | |
Handle ArraySeqs
| -rw-r--r-- | src/clojure/contrib/pprint/dispatch.clj | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/clojure/contrib/pprint/dispatch.clj b/src/clojure/contrib/pprint/dispatch.clj index bfd5bb1a..93497408 100644 --- a/src/clojure/contrib/pprint/dispatch.clj +++ b/src/clojure/contrib/pprint/dispatch.clj @@ -68,6 +68,7 @@ (dosync (alter *simple-dispatch* conj [list? pprint-list])) (dosync (alter *simple-dispatch* conj [#(instance? clojure.lang.Cons %) pprint-list])) (dosync (alter *simple-dispatch* conj [#(instance? clojure.lang.LazySeq %) pprint-list])) +(dosync (alter *simple-dispatch* conj [#(instance? clojure.lang.ArraySeq %) pprint-list])) (def pprint-vector (formatter "~<[~;~@{~w~^ ~_~}~;]~:>")) (dosync (alter *simple-dispatch* conj [vector? pprint-vector])) @@ -314,6 +315,7 @@ (dosync (alter *code-dispatch* conj [list? pprint-code-list])) (dosync (alter *code-dispatch* conj [#(instance? clojure.lang.Cons %) pprint-code-list])) (dosync (alter *code-dispatch* conj [#(instance? clojure.lang.LazySeq %) pprint-code-list])) +(dosync (alter *code-dispatch* conj [#(instance? clojure.lang.ArraySeq %) pprint-code-list])) (defn pprint-code-symbol [writer sym] (if-let [arg-num (sym *symbol-map*)] |