patch: use disj instead of set/difference

Author: xeubie

src/editscript/patch.cljc

@@ -9,8 +9,7 @@
 ;;
 
 (ns ^:no-doc editscript.patch
-  (:require [clojure.set :as set]
-            [editscript.edit :as e]
+  (:require [editscript.edit :as e]
             [editscript.util.common :as c]
             [clojure.string :as s]))
 
@@ -31,7 +30,7 @@
     ;;if p is ##NaN, then p cannot be found in x, for (= ##NaN ##NaN) is false!
     :map (dissoc x p)
     :vec (into (subvec x 0 p) (subvec x (inc ^long p)))
-    :set (set/difference x #{p})
+    :set (disj x p)
     :lst (->> (split-at p x)
               (#(concat (nth % 0) (next (nth % 1))))
               (apply list))))
@@ -77,7 +76,7 @@
   (case (e/get-type x)
     :map (assoc x p v)
     :vec (assoc x p v)
-    :set (-> x (set/difference #{p}) (conj v))
+    :set (-> x (disj p) (conj v))
     :lst (->> (split-at p x)
               (#(concat (nth % 0) (conj (rest (nth % 1)) v)))
               (apply list))))