CLJ-1633: fix PersistentList/creator handling of ArraySeqs

bronsa · stuarthalloway · commit 241331d83b9e · 2015-01-10T09:14:20.000-05:00
Signed-off-by: Stuart Halloway &lt;stu@cognitect.com&gt;
diff --git a/src/jvm/clojure/lang/PersistentList.java b/src/jvm/clojure/lang/PersistentList.java
@@ -29,7 +29,7 @@ final protected Object doInvoke(Object args) {
 			{
 			Object[] argsarray = ((ArraySeq) args).array;
 			IPersistentList ret = EMPTY;
-			for(int i = argsarray.length - 1; i >= 0; --i)
+			for(int i = argsarray.length - 1; i >= ((ArraySeq)args).i; --i)
 				ret = (IPersistentList) ret.cons(argsarray[i]);
 			return ret;
 			}
diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj
@@ -1205,3 +1205,6 @@
     (float-array [2.0 -2.5]) [2.0 -2.5]
     (double-array [1.2 -3.5]) [1.2 -3.5]
     (char-array [\H \i]) [\H \i]))
+
+(deftest CLJ-1633
+  (is (= ((fn [& args] (apply (fn [a & b] (apply list b)) args)) 1 2 3) '(2 3))))

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,7 @@ final protected Object doInvoke(Object args) {`
`29`	`29`	`{`
`30`	`30`	`Object[] argsarray = ((ArraySeq) args).array;`
`31`	`31`	`IPersistentList ret = EMPTY;`
`32`		`- for(int i = argsarray.length - 1; i >= 0; --i)`
	`32`	`+ for(int i = argsarray.length - 1; i >= ((ArraySeq)args).i; --i)`
`33`	`33`	`ret = (IPersistentList) ret.cons(argsarray[i]);`
`34`	`34`	`return ret;`
`35`	`35`	`}`