From 807025427bb14d7349952ef79644ccbf66449b1f Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 11 Oct 2012 16:48:28 +0200 Subject: [PATCH] Make PersistentVector$ChunkedSeq implement Counted. Fixes CLJ-1084. --- src/jvm/clojure/lang/PersistentVector.java | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/jvm/clojure/lang/PersistentVector.java b/src/jvm/clojure/lang/PersistentVector.java index eb56d0f..ac99757 100644 --- a/src/jvm/clojure/lang/PersistentVector.java +++ b/src/jvm/clojure/lang/PersistentVector.java @@ -273,7 +273,7 @@ public Object kvreduce(IFn f, Object init){ return init; } -static public final class ChunkedSeq extends ASeq implements IChunkedSeq{ +static public final class ChunkedSeq extends ASeq implements IChunkedSeq,Counted{ public final PersistentVector vec; final Object[] node; @@ -334,6 +334,10 @@ static public final class ChunkedSeq extends ASeq implements IChunkedSeq{ return new ChunkedSeq(vec, node, i, offset + 1); return chunkedNext(); } + + public int count(){ + return vec.cnt - (i + offset); + } } public IPersistentCollection empty(){ -- 1.7.12