dissoc-in that handles vectors

dissoc-in.clj

(defn str->int [s]
  (when-let [d (re-find #"-?\d+" s)] (Integer. d)))

(defn vec-remove
  "remove elem in coll"
  [coll pos]
  (vec (concat (subvec coll 0 pos) (subvec coll (inc pos)))))

(defn dissoc-in
  "The purpose of this method is to handle vector indices as well as maps."
  [m [k & ks :as keys]]
  (if ks
    (if-let [nextmap (get m k)]
      (let [newmap (dissoc-in nextmap ks)]
        (assoc m k newmap))
      m)
    (cond
      (vector? m) (vec-remove m (str->int k))
      :else (dissoc m k) )
    ))