Added IPrintable support for PersistentVector, PersistentHashMap

Author: jolby

src/cljc/cljc/core.cljc

@@ -1450,6 +1450,8 @@ reduces them without incurring seq initialization"
   (-as-transient [coll]
     (TransientVector cnt shift (tv-editable-root root) (tv-editable-tail tail)))
 
+  IPrintable
+  (-pr-seq [coll opts] (pr-sequential pr-seq "[" " " "]" opts coll))
   ;; Not yet ported from ClojureScript
 
   ;; IHash
@@ -1633,7 +1635,10 @@ reduces them without incurring seq initialization"
 
   IEmptyableCollection
   (-empty [coll]
-    (-with-meta cljc.core.PersistentVector/EMPTY meta)))
+    (-with-meta cljc.core.PersistentVector/EMPTY meta))
+  
+  IPrintable
+  (-pr-seq [coll opts] (pr-sequential pr-seq "(" " " ")" opts coll)))
 
 (defn chunked-seq
   ([vec i off] (chunked-seq vec (array-for vec i) i off nil))
@@ -1701,6 +1706,9 @@ reduces them without incurring seq initialization"
   (-invoke [coll k not-found]
     (-lookup coll k not-found))
 
+  IPrintable
+  (-pr-seq [coll opts] (pr-sequential pr-seq "[" " " "]" opts coll))
+
   ;; IHash
   ;; (-hash [coll] (caching-hash coll hash-coll __hash))
 
@@ -2480,7 +2488,10 @@ reduces them without incurring seq initialization"
   (-equiv [coll other] (equiv-sequential coll other))
 
   IHash
-  (-hash [coll] (caching-hash coll hash-coll __hash)))
+  (-hash [coll] (caching-hash coll hash-coll __hash))
+
+  IPrintable
+  (-pr-seq [coll opts] (pr-sequential pr-seq "(" " " ")" opts coll)))
 
 (defn- create-inode-seq
   ([nodes]
@@ -2531,7 +2542,10 @@ reduces them without incurring seq initialization"
   (-equiv [coll other] (equiv-sequential coll other))
 
   IHash
-  (-hash [coll] (caching-hash coll hash-coll __hash)))
+  (-hash [coll] (caching-hash coll hash-coll __hash))
+  
+  IPrintable
+  (-pr-seq [coll opts] (pr-sequential pr-seq "(" " " ")" opts coll)))
 
 (defn- create-array-node-seq
   ([nodes] (create-array-node-seq nil nodes 0 nil))
@@ -2635,7 +2649,12 @@ reduces them without incurring seq initialization"
 
   IEditableCollection
   (-as-transient [coll]
-    (TransientHashMap. (EditSentinel.) root cnt has-nil? nil-val)))
+    (TransientHashMap. (EditSentinel.) root cnt has-nil? nil-val))
+
+  IPrintable
+  (-pr-seq [coll opts]
+    (let [pr-pair (fn [keyval opts] (pr-sequential pr-seq "" " " "" opts keyval))]
+      (pr-sequential pr-pair "{" ", " "}" opts coll))))
 
 (set! cljc.core.PersistentHashMap/EMPTY (PersistentHashMap. nil 0 nil false nil 0))
 

test/clojurec/core_test.clj

@@ -487,6 +487,8 @@
                         (pr \a \b) (pr " ")
                         (pr '(1 2 3)) (pr " ")
                         (pr (make-array 2)) (pr " ")
+                        (pr [1 2]) (pr " ")
+                        (pr {:a 1}) (pr " ")
                         (pr #{1 2 3})))
            [true false
             -1 0 1
@@ -496,6 +498,8 @@
             \a \b
             '(1 2 3)
             [nil nil]
+            [1 2]
+            {:a 1}
             #{1 2 3}]))))
 
 (deftest equality