added has(), made keys comparable

1 files changed, 12 insertions, 5 deletions

diff --git a/src/cli/runtime/Obj.cs b/src/cli/runtime/Obj.cs
index 7058ebe3..9a165e67 100644
--- a/src/cli/runtime/Obj.cs
+++ b/src/cli/runtime/Obj.cs
@@ -20,9 +20,9 @@ public class Obj
 {
 
 HybridDictionary attrs;
-public static int INITIAL_SIZE = 7;
-
-public Object put(Keyword key, Object val)
+public static int INITIAL_SIZE = 7;

+

+public Object put(IComparable key, Object val)
 	{
 	if(attrs == null)
 		attrs = new HybridDictionary(INITIAL_SIZE);
@@ -30,11 +30,18 @@ public Object put(Keyword key, Object val)
 	return val;
 	}

 

-public Object get(Keyword key)
+public Object get(IComparable key)
 	{
 	if(attrs == null)
 		return null;
 	return attrs[key];
-	}
+	}

+

+public bool has(IComparable key)

+    {

+    if (attrs == null)

+        return false;

+    return attrs.Contains(key);

+    }
 }
 }
\ No newline at end of file