InternalReduce

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

3 files changed, 12 insertions, 12 deletions

diff --git a/src/jvm/clojure/lang/ArraySeq.java b/src/jvm/clojure/lang/ArraySeq.java
index 117dd4f5..3517eab4 100644
--- a/src/jvm/clojure/lang/ArraySeq.java
+++ b/src/jvm/clojure/lang/ArraySeq.java
@@ -15,7 +15,7 @@ package clojure.lang;
 import java.lang.reflect.Array;
 
 public class ArraySeq extends ASeq implements IndexedSeq, IReduce{
-final Object array;
+public final Object array;
 final int i;
 final Object[] oa;
 //ISeq _rest;
@@ -164,7 +164,7 @@ public int lastIndexOf(Object o) {
 //////////////////////////////////// specialized primitive versions ///////////////////////////////
 
 static public class ArraySeq_int extends ASeq implements IndexedSeq, IReduce{
-	final int[] array;
+	public final int[] array;
 	final int i;
 
 	ArraySeq_int(IPersistentMap meta, int[] array, int i){
@@ -240,7 +240,7 @@ static public class ArraySeq_int extends ASeq implements IndexedSeq, IReduce{
 
 
 static public class ArraySeq_float extends ASeq implements IndexedSeq, IReduce{
-	final float[] array;
+	public final float[] array;
 	final int i;
 
 	ArraySeq_float(IPersistentMap meta, float[] array, int i){
@@ -315,7 +315,7 @@ static public class ArraySeq_float extends ASeq implements IndexedSeq, IReduce{
 }
 
 static public class ArraySeq_double extends ASeq implements IndexedSeq, IReduce{
-	final double[] array;
+	public final double[] array;
 	final int i;
 
 	ArraySeq_double(IPersistentMap meta, double[] array, int i){
@@ -390,7 +390,7 @@ static public class ArraySeq_double extends ASeq implements IndexedSeq, IReduce{
 }
 
 static public class ArraySeq_long extends ASeq implements IndexedSeq, IReduce{
-	final long[] array;
+	public final long[] array;
 	final int i;
 
 	ArraySeq_long(IPersistentMap meta, long[] array, int i){
@@ -465,7 +465,7 @@ static public class ArraySeq_long extends ASeq implements IndexedSeq, IReduce{
 }
 
 static public class ArraySeq_byte extends ASeq implements IndexedSeq, IReduce{
-	final byte[] array;
+	public final byte[] array;
 	final int i;
 
 	ArraySeq_byte(IPersistentMap meta, byte[] array, int i){
@@ -540,7 +540,7 @@ static public class ArraySeq_byte extends ASeq implements IndexedSeq, IReduce{
 }
 
 static public class ArraySeq_char extends ASeq implements IndexedSeq, IReduce{
-	final char[] array;
+	public final char[] array;
 	final int i;
 
 	ArraySeq_char(IPersistentMap meta, char[] array, int i){
@@ -615,7 +615,7 @@ static public class ArraySeq_char extends ASeq implements IndexedSeq, IReduce{
 }
 
 static public class ArraySeq_boolean extends ASeq implements IndexedSeq, IReduce{
-	final boolean[] array;
+	public final boolean[] array;
 	final int i;
 
 	ArraySeq_boolean(IPersistentMap meta, boolean[] array, int i){
diff --git a/src/jvm/clojure/lang/PersistentVector.java b/src/jvm/clojure/lang/PersistentVector.java
index e93052e4..a521eaa8 100644
--- a/src/jvm/clojure/lang/PersistentVector.java
+++ b/src/jvm/clojure/lang/PersistentVector.java
@@ -233,10 +233,10 @@ public ISeq seq(){
 
 static public final class ChunkedSeq extends ASeq implements IChunkedSeq{
 
-	final PersistentVector vec;
+	public final PersistentVector vec;
 	final Object[] node;
 	final int i;
-	final int offset;
+	public final int offset;
 
 	public ChunkedSeq(PersistentVector vec, int i, int offset){
 		this.vec = vec;
diff --git a/src/jvm/clojure/lang/StringSeq.java b/src/jvm/clojure/lang/StringSeq.java
index aa70617b..bcb269d5 100644
--- a/src/jvm/clojure/lang/StringSeq.java
+++ b/src/jvm/clojure/lang/StringSeq.java
@@ -13,8 +13,8 @@
 package clojure.lang;
 
 public class StringSeq extends ASeq implements IndexedSeq{
-final CharSequence s;
-final int i;
+public final CharSequence s;
+public final int i;
 
 static public StringSeq create(CharSequence s){
 	if(s.length() == 0)