From a8ba1dbdec6976596e005b7ffe2d06355280a10f Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Fri, 4 Aug 2006 23:43:39 +0000 Subject: added AnArray --- src/cli/runtime/Tuple.cs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/cli/runtime/Tuple.cs') diff --git a/src/cli/runtime/Tuple.cs b/src/cli/runtime/Tuple.cs index 07560fbf..fa6dfda1 100644 --- a/src/cli/runtime/Tuple.cs +++ b/src/cli/runtime/Tuple.cs @@ -15,7 +15,7 @@ using System; namespace clojure.lang { -public class Tuple : IArray{ +public class Tuple : AnArray{ readonly Object[] array; @@ -29,20 +29,20 @@ public Tuple(params Object[] init){ this.array = init; } -public int count() { +override public int count() { return array.Length; } -public int length() { +override public int length() { return array.Length; } -public Object nth(int i){ +override public Object nth(int i){ return array[i]; } -public IArray assocN(int i, Object val) { +override public IArray assocN(int i, Object val) { Object[] newArray = (Object[])array.Clone(); newArray[i] = val; return new Tuple(newArray); @@ -83,7 +83,7 @@ private bool equalKey(Object k1,Object k2){ return k1.Equals(k2); } -public ISeq seq() { +override public ISeq seq() { return ArraySeq.create(array); } } -- cgit v1.2.3-18-g5258