CLJS-1212: Error in set ctor for > 8-entry map literal

Not all seq returning types return INext

Author: swannodette

src/cljs/cljs/core.cljs

@@ -7898,19 +7898,19 @@ reduces them without incurring seq initialization"
 (defn set
   "Returns a set of the distinct elements of coll."
   [coll]
-  (let [^not-native in (seq coll)]
+  (let [in (seq coll)]
     (cond
       (nil? in) #{}
 
       (and (instance? IndexedSeq in) (zero? (.-i in)))
       (set-from-indexed-seq in)
 
       :else
-      (loop [in in
-              ^not-native out (-as-transient #{})]
+      (loop [^not-native in in
+             ^not-native out (-as-transient #{})]
         (if-not (nil? in)
-          (recur (-next in) (-conj! out (-first in)))
-          (-persistent! out))))))
+          (recur (next in) (-conj! out (-first in)))
+          (persistent! out))))))
 
 (defn hash-set
   "Returns a new hash set with supplied keys.  Any equal keys are

test/cljs/cljs/core_test.cljs

@@ -2779,6 +2779,10 @@
   (is (= (.getBasis TypeBasis) '[a b]))
   (is (= (.getBasis RecordBasis) '[c d e])))
 
+(deftest test-1212
+  (is (= (set {:a 0 :b 0 :c 0 :d 0 :e 0 :f 0 :g 0 :h 0 :i 0})
+         #{[:a 0] [:b 0] [:c 0] [:d 0] [:e 0] [:f 0] [:g 0] [:h 0] [:i 0]})))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))