Seq/Iterator interop

1 files changed, 38 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/SeqIterator.java b/src/jvm/clojure/lang/SeqIterator.java
new file mode 100644
index 00000000..563e830c
--- /dev/null
+++ b/src/jvm/clojure/lang/SeqIterator.java
@@ -0,0 +1,38 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+ *   which can be found in the file CPL.TXT 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 Jun 19, 2007 */
+
+package clojure.lang;
+
+import java.util.Iterator;
+
+public class SeqIterator implements Iterator{
+
+ISeq seq;
+
+public SeqIterator(ISeq seq){
+	this.seq = seq;
+}
+
+public boolean hasNext(){
+	return seq != null;
+}
+
+public Object next(){
+	Object ret = RT.first(seq);
+	seq = RT.rest(seq);
+	return ret;
+}
+
+public void remove(){
+throw new UnsupportedOperationException();
+}
+}