diff options
Diffstat (limited to 'src')
| -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*)] |