made cnt optional in PersistentTreeMap.Seq

1 files changed, 8 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/PersistentTreeMap.java b/src/jvm/clojure/lang/PersistentTreeMap.java
index 8383f4b4..4326a8e4 100644
--- a/src/jvm/clojure/lang/PersistentTreeMap.java
+++ b/src/jvm/clojure/lang/PersistentTreeMap.java
@@ -682,6 +682,12 @@ static public class Seq extends ASeq{
 	final boolean asc;
 	final int cnt;
 
+	public Seq(ISeq stack, boolean asc){
+		this.stack = stack;
+		this.asc = asc;
+		this.cnt = -1;
+	}
+
 	public Seq(ISeq stack, boolean asc, int cnt){
 		this.stack = stack;
 		this.asc = asc;
@@ -723,6 +729,8 @@ static public class Seq extends ASeq{
 	}
 
 	public int count(){
+		if(cnt < 0)
+			return super.count();
 		return cnt;
 	}