 ;;; PersistentQueue ;;;
 
 (deftype PersistentQueueSeq [meta front rear]
+  Object
+  (toString [this]
+    (pr-str this))
+  
   IWithMeta
   (-with-meta [coll meta] (PersistentQueueSeq. meta front rear))
 

; collisions. A bucket is an array of alternating keys (not their hashes) and
; vals.
(deftype HashMap [meta count hashobj]
  IWithMeta
  (-with-meta [coll meta] (HashMap. meta count hashobj))


;;; DEPRECATED
;;; in favor of PersistentVector
(deftype Vector [meta array]
  Object
  (toString [this]
    (pr-str this))

  IWithMeta
  (-with-meta [coll meta] (Vector. meta array))

