[lazy] added Seqable

Author: richhickey

src/jvm/clojure/lang/APersistentVector.java

@@ -72,7 +72,7 @@ static boolean doEquals(IPersistentVector v, Object obj){
 		{
 		if(!(obj instanceof Sequential))
 			return false;
-		ISeq ms = ((IPersistentCollection) obj).seq();
+		ISeq ms = RT.seq(obj);
 		for(int i = 0; i < v.count(); i++, ms = ms.rest())
 			{
 			if(ms == null || !Util.equals(v.nth(i), ms.first()))
@@ -115,7 +115,7 @@ static boolean doEquiv(IPersistentVector v, Object obj){
 		{
 		if(!(obj instanceof Sequential))
 			return false;
-		ISeq ms = ((IPersistentCollection) obj).seq();
+		ISeq ms = RT.seq(obj);
 		for(int i = 0; i < v.count(); i++, ms = ms.rest())
 			{
 			if(ms == null || !Util.equiv(v.nth(i), ms.first()))

src/jvm/clojure/lang/IPersistentCollection.java

@@ -11,12 +11,10 @@
  */
 
 
-public interface IPersistentCollection {
+public interface IPersistentCollection extends Seqable {
 
 int count();
 
-ISeq seq();
-
 IPersistentCollection cons(Object o);
 
 IPersistentCollection empty();

src/jvm/clojure/lang/ISeq.java

@@ -1,5 +1,3 @@
-package clojure.lang;
-
 /**
  * Copyright (c) Rich Hickey. All rights reserved.
  * The use and distribution terms for this software are covered by the
@@ -10,6 +8,8 @@
  * You must not remove this notice, or any other, from this software.
  */
 
+package clojure.lang;
+
 /**
  * A persistent, functional, sequence interface
  * <p/>

src/jvm/clojure/lang/PersistentQueue.java

@@ -41,7 +41,7 @@ public boolean equiv(Object obj){
 
 	if(!(obj instanceof Sequential))
 		return false;
-	ISeq ms = ((IPersistentCollection) obj).seq();
+	ISeq ms = RT.seq(obj);
 	for(ISeq s = seq(); s != null; s = s.rest(), ms = ms.rest())
 		{
 		if(ms == null || !Util.equiv(s.first(), ms.first()))
@@ -55,7 +55,7 @@ public boolean equals(Object obj){
 
 	if(!(obj instanceof Sequential))
 		return false;
-	ISeq ms = ((IPersistentCollection) obj).seq();
+	ISeq ms = RT.seq(obj);
 	for(ISeq s = seq(); s != null; s = s.rest(), ms = ms.rest())
 		{
 		if(ms == null || !Util.equals(s.first(), ms.first()))

src/jvm/clojure/lang/RT.java

@@ -447,8 +447,8 @@ static public ISeq seq(Object coll){
 		return null;
 	else if(coll instanceof ISeq)
 		return (ISeq) coll;
-	else if(coll instanceof IPersistentCollection)
-		return ((IPersistentCollection) coll).seq();
+	else if(coll instanceof Seqable)
+		return ((Seqable) coll).seq();
 	else
 		return seqFrom(coll);
 }
@@ -722,7 +722,7 @@ else if(n == 1)
 
 	else if(coll instanceof Sequential)
 		{
-		ISeq seq = ((IPersistentCollection) coll).seq();
+		ISeq seq = RT.seq(coll);
         coll = null;
         for(int i = 0; i <= n && seq != null; ++i, seq = seq.rest())
 			{
@@ -785,7 +785,7 @@ else if(n == 1)
 		}
 	else if(coll instanceof Sequential)
 		{
-		ISeq seq = ((IPersistentCollection) coll).seq();
+		ISeq seq = RT.seq(coll);
         coll = null;
         for(int i = 0; i <= n && seq != null; ++i, seq = seq.rest())
 			{

src/jvm/clojure/lang/Seqable.java

@@ -0,0 +1,17 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Jan 28, 2009 */
+
+package clojure.lang;
+
+public interface Seqable {
+    ISeq seq();
+}