changed max arity to 20

1 files changed, 10 insertions, 4 deletions

diff --git a/src/cli/runtime/ArraySeq.cs b/src/cli/runtime/ArraySeq.cs
index c0e450b4..bdfbc145 100644
--- a/src/cli/runtime/ArraySeq.cs
+++ b/src/cli/runtime/ArraySeq.cs
@@ -18,8 +18,9 @@ namespace clojure.lang
 public class ArraySeq : IndexedSeq{

 readonly Object[] array;

 readonly int i;

+ISeq _rest;

 

-static public ArraySeq create(Object[] array){

+static public ArraySeq create(params Object[] array){

 	if(array.Length == 0)

 		return null;

 	return new ArraySeq(array, 0);

@@ -28,6 +29,7 @@ static public ArraySeq create(Object[] array){
 ArraySeq(Object[] array, int i){

 	this.array = array;

 	this.i = i;

+    this._rest = this;

 }

 

 public Object first() {

@@ -35,9 +37,13 @@ public Object first() {
 }

 

 public ISeq rest() {

-	if(i+1 < array.Length)

-		return new ArraySeq(array, i + 1);

-	return null;

+    if(_rest == this)

+        {

+        if(i+1 < array.Length)

+		    _rest = new ArraySeq(array, i + 1);

+	    _rest = null;

+        }

+    return _rest;

 }

 

 public int index(){