fixed destructuring of nil map, added get support for sets

1 files changed, 13 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java
index e2723391..5127a9cd 100644
--- a/src/jvm/clojure/lang/RT.java
+++ b/src/jvm/clojure/lang/RT.java
@@ -465,6 +465,12 @@ static public Object get(Object coll, Object key){
 		Map m = (Map) coll;
 		return m.get(key);
 		}
+	else if(coll instanceof IPersistentSet)
+		{
+		IPersistentSet set = (IPersistentSet) coll;
+		if(set.contains(key))
+			return key;
+		}
 	else if(key instanceof Number && (coll instanceof String || coll.getClass().isArray()))
 		{
 		int n = ((Number) key).intValue();
@@ -489,6 +495,13 @@ static public Object get(Object coll, Object key, Object notFound){
 			return m.get(key);
 		return notFound;
 		}
+	else if(coll instanceof IPersistentSet)
+		{
+		IPersistentSet set = (IPersistentSet) coll;
+		if(set.contains(key))
+			return key;
+		return notFound;		
+		}
 	else if(key instanceof Number && (coll instanceof String || coll.getClass().isArray()))
 		{
 		int n = ((Number) key).intValue();