diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-11-14 18:40:10 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-11-14 18:40:10 +0000 |
| commit | 6bb26646634156eedd24a2eb241df8497c0dad81 (patch) | |
| tree | 3cfce4762192d0f393f23b71576eadc91e9c3977 /src | |
| parent | c362926ed1e9cfb0f7b97491bef8a5624e41c226 (diff) | |
fixed print-dup on empty list
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core-print.clj | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/clj/clojure/core-print.clj b/src/clj/clojure/core-print.clj index b325d81e..05c8abc4 100644 --- a/src/clj/clojure/core-print.clj +++ b/src/clj/clojure/core-print.clj @@ -133,12 +133,14 @@ (print-sequential "(" pr-on " " ")" o w)) (defmethod print-dup clojure.lang.ISeq [o w] (print-method o w)) +(defmethod print-dup clojure.lang.IPersistentList [o w] (print-method o w)) +(prefer-method print-method clojure.lang.IPersistentList clojure.lang.ISeq) +(prefer-method print-dup clojure.lang.IPersistentList clojure.lang.ISeq) (defmethod print-method clojure.lang.IPersistentList [o, #^Writer w] (print-meta o w) (print-sequential "(" print-method " " ")" o w)) -(prefer-method print-method clojure.lang.IPersistentList clojure.lang.ISeq) (defmethod print-method java.util.Collection [o, #^Writer w] (print-ctor o #(print-sequential "[" print-method " " "]" %1 %2) w)) |