summaryrefslogtreecommitdiff
path: root/src/cli/runtime/PerisistentArrayList.cs
diff options
context:
space:
mode:
Diffstat (limited to 'src/cli/runtime/PerisistentArrayList.cs')
-rw-r--r--src/cli/runtime/PerisistentArrayList.cs10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/cli/runtime/PerisistentArrayList.cs b/src/cli/runtime/PerisistentArrayList.cs
index 3c71312a..f22dd334 100644
--- a/src/cli/runtime/PerisistentArrayList.cs
+++ b/src/cli/runtime/PerisistentArrayList.cs
@@ -14,7 +14,7 @@ using System.Collections;
namespace clojure.lang
{
-public class PersistentArrayList : PersistentArray{
+public class PersistentArrayList : PersistentArray, IPersistentList{
int _count;
@@ -72,7 +72,13 @@ override public IPersistentCollection cons(Object val) {
return ret;
}
-public PersistentArrayList remove() {
+public Object peek(){
+ if(_count > 0)
+ return nth(_count - 1);
+ return null;
+}
+
+public IPersistentList pop() {
if(_count == 0)
throw new InvalidOperationException();
PersistentArrayList ret = new PersistentArrayList(data.master, data.rev, data.baseline, data.history, _count - 1);