wip

babashka · Jul 23, 2024 · 6518aab · 6518aab
1 parent dfadc12
commit 6518aab
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/sci/impl/analyzer.cljc b/src/sci/impl/analyzer.cljc
@@ -1832,7 +1832,11 @@
                                           ;; return a vector
                                           identity
                                           vector expr m)
-       (set? expr) (analyze-vec-or-set ctx set hash-set expr m)
+       (set? expr) (analyze-vec-or-set ctx set
+                                       #?(:clj #(clojure.lang.PersistentHashSet/createWithCheck %&)
+                                          :cljs #(PersistentHashSet.createWithCheck (into-array %&))
+                                          :default vector)
+                                       expr m)
        (seq? expr) (if (seq expr)
                      (analyze-call ctx expr m top-level?)
                      ;; the empty list