 
   ISeqable
   (-seq [coll]
-    (when (> cnt 0)
+    (when (pos? cnt)
       (let [vector-seq
              (fn vector-seq [i]
                (lazy-seq

(defn- new-path [level node]
  (loop [ll level
         ret node]
         (if (= 0 ll)
           ret
           (let [embed ret
                 r (aclone cljs.core.PersistentVector/EMPTY_NODE)

  (-pop [coll]
    (cond
     (zero? cnt) (throw (js/Error. "Can't pop empty vector"))
     (== 1 cnt) (-with-meta cljs.core.PersistentVector/EMPTY meta)
     (< 1 (- cnt (tail-off coll)))
      (PersistentVector. meta (dec cnt) shift root (aclone tail))
      :else (let [new-tail (array-for coll (- cnt 2))
