empty for sorted-map and sorted-set now maintain comparator. Fixes #128

Chouser · richhickey · commit 89ad4ab42652 · 2009-12-23T08:56:21.000-05:00
Signed-off-by: Rich Hickey &lt;richhickey@gmail.com&gt;
diff --git a/src/jvm/clojure/lang/PersistentTreeMap.java b/src/jvm/clojure/lang/PersistentTreeMap.java
@@ -137,7 +137,7 @@ public ISeq seq(){
 }
 
 public IPersistentCollection empty(){
-	return EMPTY.withMeta(meta());	
+	return new PersistentTreeMap(meta(), comp);	
 }
 
 public ISeq rseq() throws Exception{
diff --git a/src/jvm/clojure/lang/PersistentTreeSet.java b/src/jvm/clojure/lang/PersistentTreeSet.java
@@ -53,7 +53,7 @@ public IPersistentSet cons(Object o){
 }
 
 public IPersistentCollection empty(){
-	return EMPTY.withMeta(meta());	
+	return new PersistentTreeSet(meta(),(PersistentTreeMap)impl.empty());
 }
 
 public ISeq rseq() throws Exception{

Original file line number	Diff line number	Diff line change
`@@ -137,7 +137,7 @@ public ISeq seq(){`
`137`	`137`	`}`
`138`	`138`
`139`	`139`	`public IPersistentCollection empty(){`
`140`		`- return EMPTY.withMeta(meta());`
	`140`	`+ return new PersistentTreeMap(meta(), comp);`
`141`	`141`	`}`
`142`	`142`
`143`	`143`	`public ISeq rseq() throws Exception{`
Original file line number	Diff line number	Diff line change
`@@ -53,7 +53,7 @@ public IPersistentSet cons(Object o){`
`53`	`53`	`}`
`54`	`54`
`55`	`55`	`public IPersistentCollection empty(){`
`56`		`- return EMPTY.withMeta(meta());`
	`56`	`+ return new PersistentTreeSet(meta(),(PersistentTreeMap)impl.empty());`
`57`	`57`	`}`
`58`	`58`
`59`	`59`	`public ISeq rseq() throws Exception{`