Какой идиоматический способ поменять местами два элемента в векторе

Есть ли лучший или более краткий способ сделать следующее:

(defn swap [v i1 i2]
  "swap two positions in a vector"
  (let [e1 (v i1)
        e2 (v i2)]
       (-> (assoc v i1 e2)
       (assoc i2 e1))))