Merge branch 'master' into new

Author: richhickey

readme.txt

@@ -10,7 +10,7 @@
 Docs: http://clojure.org
 Feedback: http://groups.google.com/group/clojure
 
-To Run java -cp clojure.jar clojure.lang.Repl
+To Run: java -cp clojure.jar clojure.main
 To Build: ant
 
 --------------------------------------------------------------------------

src/jvm/clojure/lang/PersistentArrayMap.java

@@ -269,7 +269,7 @@ public ITransientMap asTransient(){
 static final class TransientArrayMap extends ATransientMap {
 	int len;
 	final Object[] array;
-	final Thread owner;
+	Thread owner;
 
 	public TransientArrayMap(Object[] array){
 		this.owner = Thread.currentThread();
@@ -330,6 +330,8 @@ int doCount() {
 	}
 
 	IPersistentMap doPersistent(){
+		ensureEditable();
+		owner = null;
 		Object[] a = new Object[len];
 		System.arraycopy(array,0,a,0,len);
 		return new PersistentArrayMap(a);
@@ -339,8 +341,8 @@ void ensureEditable(){
 		if(owner == Thread.currentThread())
 			return;
 		if(owner != null)
-			throw new IllegalAccessError("Mutable used by non-owner thread");
-		throw new IllegalAccessError("Mutable used after immutable call");
+			throw new IllegalAccessError("Transient used by non-owner thread");
+		throw new IllegalAccessError("Transient used after persistent! call");
 	}
 }
 }

src/jvm/clojure/lang/PersistentHashMap.java

@@ -270,8 +270,8 @@ void ensureEditable(){
 		if(owner == Thread.currentThread())
 			return;
 		if(owner != null)
-			throw new IllegalAccessError("Mutable used by non-owner thread");
-		throw new IllegalAccessError("Mutable used after immutable call");
+			throw new IllegalAccessError("Transient used by non-owner thread");
+		throw new IllegalAccessError("Transient used after persistent! call");
 	}
 }
 

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{

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{

src/jvm/clojure/lang/PersistentVector.java

@@ -402,8 +402,8 @@ void ensureEditable(){
 		if(owner == Thread.currentThread())
 			return;
 		if(owner != null)
-			throw new IllegalAccessError("Mutable used by non-owner thread");
-		throw new IllegalAccessError("Mutable used after immutable call");
+			throw new IllegalAccessError("Transient used by non-owner thread");
+		throw new IllegalAccessError("Transient used after persistent! call");
 
 //		root = editableRoot(root);
 //		tail = editableTail(tail);

test/clojure/test_clojure/sequences.clj

@@ -117,9 +117,15 @@
       {} {}
       {:a 1 :b 2} {}
 
+      (sorted-map) (sorted-map)
+      (sorted-map :a 1 :b 2) (sorted-map)
+
       #{} #{}
       #{1 2} #{}
 
+      (sorted-set) (sorted-set)
+      (sorted-set 1 2) (sorted-set)
+
       (seq ()) nil      ; (seq ()) => nil
       (seq '(1 2)) ()
 
@@ -140,6 +146,18 @@
       1.2 nil
       "abc" nil ))
 
+;Tests that the comparator is preservered
+;The first element should be the same in each set if preserved.
+(deftest test-empty-sorted
+  (let [inv-compare (comp - compare)]
+    (are [x y] (= (first (into (empty x) x)) 
+		  (first y))
+	 (sorted-set 1 2 3) (sorted-set 1 2 3)
+	 (sorted-set-by inv-compare 1 2 3) (sorted-set-by inv-compare 1 2 3)
+
+	 (sorted-map 1 :a 2 :b 3 :c) (sorted-map 1 :a 2 :b 3 :c)
+	 (sorted-map-by inv-compare 1 :a 2 :b 3 :c) (sorted-map-by inv-compare 1 :a 2 :b 3 :c))))
+
 
 (deftest test-not-empty
   ; empty coll/seq => nil