From 5a602d664b724e22991933658a65b30f3e4d0ab5 Mon Sep 17 00:00:00 2001 From: Bronsa Date: Thu, 19 Apr 2012 10:46:21 +0200 Subject: [PATCH] fix persistentvector's pop --- src/cljs/cljs/core.cljs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/src/cljs/cljs/core.cljs b/src/cljs/cljs/core.cljs index 43f9062..c4155d5 100644 --- a/src/cljs/cljs/core.cljs +++ b/src/cljs/cljs/core.cljs @@ -2183,7 +2183,7 @@ reduces them without incurring seq initialization" (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)) + (PersistentVector. meta (dec cnt) shift root (.slice tail 0 -1)) :else (let [new-tail (array-for coll (- cnt 2)) nr (pop-tail shift root) new-root (if (nil? nr) cljs.core.PersistentVector/EMPTY_NODE nr) -- 1.7.5.4