added val to add(), throws exception if key present

1 files changed, 17 insertions, 4 deletions

diff --git a/src/cli/runtime/PersistentArrayMap.cs b/src/cli/runtime/PersistentArrayMap.cs
index 6cc42aad..df874d1a 100644
--- a/src/cli/runtime/PersistentArrayMap.cs
+++ b/src/cli/runtime/PersistentArrayMap.cs
@@ -62,10 +62,23 @@ public IMapEntry find(Object key) {
     return null;

 }

 

-public IPersistentMap add(Object key) {

-

-    return put(key,null);

-}

+public IPersistentMap add(Object key, Object val) {

+    int i = indexOf(key);

+    Object[] newArray;

+    if(i >= 0)

+        {

+		throw new Exception("Key already present");

+        }

+    else //didn't have key, grow

+        {

+        newArray = new Object[array.Length + 2];

+        if(array.Length > 0)

+            Array.Copy(array,0,newArray,2,array.Length);

+        newArray[0] = key;

+        newArray[1] = val;

+        }

+    return create(newArray);

+    }

 

 public IPersistentMap put(Object key, Object val) {

     int i = indexOf(key);