we need to replicate the compiler logic for sets in lite mode as well

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -13142,7 +13142,20 @@ reduces them without incurring seq initialization"
 (set! (. SetLite -EMPTY) (SetLite. nil (. HashMapLite -EMPTY) empty-unordered-hash))
 
 (defn set-lite
-  ":lite-mode version of set, not intended ot be used directly."
+  ":lite-mode version of set, not intended to be used directly."
+  [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))))))
+
+(defn set-lite-check
+  ":lite-mode version of set with check, not intended to be used directly."
   [coll]
   (if (set? coll)
     (-with-meta coll nil)

src/main/clojure/cljs/compiler.cljc

@@ -617,9 +617,14 @@
     :else (emits "cljs.core.PersistentHashSet.createWithCheck([" (comma-sep items) "])")))
 
 (defn emit-lite-set [items comma-sep distinct-constants?]
-  (if (empty? items)
+  (cond
+    (empty? items)
     (emits "cljs.core.SetLite.EMPTY")
-    (emits "cljs.core.set_lite([" (comma-sep items) "])")))
+
+    (distinct-constants? items)
+    (emits "cljs.core.set_lite([" (comma-sep items) "])")
+
+    :else (emits "cljs.core.set_lite_check([" (comma-sep items) "])")))
 
 (defmethod emit* :set
   [{:keys [items env]}]