fix(runtime): cljAssocIn handles vectors as keys path

fix(emitter): remove contains? from special-forms list (handled elsewhere)

lib/cljnim_runtime.nim

@@ -2080,12 +2080,15 @@ proc cljUpdate*(m: CljVal, key: CljVal, f: CljVal, extra: seq[CljVal] = @[]): Cl
   else: raise newException(CatchableError, "update requires a function")
 
 proc cljAssocIn*(m: CljVal, keys: CljVal, val: CljVal): CljVal =
-  if keys.isNil or keys.kind != ckList or keys.listItems.len == 0:
+  if keys.isNil: return m
-    return m
+  let isList = keys.kind == ckList or keys.kind == ckVector
-  if keys.listItems.len == 1:
+  if not isList: return m
-    return cljAssoc(m, keys.listItems[0], val)
+  let keyItems = if keys.kind == ckList: keys.listItems else: keys.vecData.toSeq
-  let firstKey = keys.listItems[0]
+  if keyItems.len == 0: return m
-  let restKeys = cljList(keys.listItems[1..^1])
+  if keyItems.len == 1:
+    return cljAssoc(m, keyItems[0], val)
+  let firstKey = keyItems[0]
+  let restKeys = cljList(keyItems[1..^1])
   let inner = cljGet(m, firstKey)
   let updated = cljAssocIn(inner, restKeys, val)
   cljAssoc(m, firstKey, updated)

src/emitter.nim

@@ -2107,7 +2107,7 @@ proc emitSpecialForm(items: seq[CljVal], indent: int, needsValue: bool = false):
                              "to-array", "into-array", "vector", "rand", "rand-int",
                              "rand-nth", "random-sample",
                              "assoc", "dissoc", "get", "get-in", "update", "assoc-in",
-                             "contains?", "select-keys",
+                             "select-keys",
                              "disj", "peek", "pop",
                              "transduce", "ex-info",
                              "compare", "subvec",