set-lite

function

since v1.12.134

Edit

---

Source docstring:

:lite-mode version of set, not intended ot be used directly.

(defn set-lite
  [coll]
  (if (set? coll)
    (-with-meta coll nil)
    (let [in (seq coll)]
      (if (nil? in)
        #{}
        (loop [in in out (. SetLite -EMPTY)]
          (if-not (nil? in)
            (recur (next in) (-conj out (first in)))
            out))))))

---