Implement the set? function

squint-cljs · Feb 12, 2025 · 53a1d17 · 53a1d17
1 parent a778b16
commit 53a1d17
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -4,7 +4,8 @@
 
 ## Unreleased
 
-- Fix [#609](https://github.com/squint-cljs/squint/issues/609): make `remove` return a transducer when no collection is provided.
+- Fix [#609](https://github.com/squint-cljs/squint/issues/609): make `remove` return a transducer when no collection is provided
+- Fix [#611](https://github.com/squint-cljs/squint/issues/611): Implement the `set?` function
 
 ## v0.8.134 (2024-02-11)
 

diff --git a/resources/squint/core.edn b/resources/squint/core.edn
@@ -177,6 +177,7 @@
   seqable_QMARK_
   sequential_QMARK_
   set
+  set_QMARK_
   shuffle
   some
   some_QMARK_

diff --git a/src/squint/core.js b/src/squint/core.js
@@ -1101,6 +1101,10 @@ export function set(coll) {
   return new Set(iterable(coll));
 }
 
+export function set_QMARK_(x) {
+  return typeConst(x) === SET_TYPE;
+}
+
 const IApply__apply = Symbol('IApply__apply');
 
 export function apply(f, ...args) {

diff --git a/test/squint/compiler_test.cljs b/test/squint/compiler_test.cljs
@@ -530,6 +530,16 @@
   (is (eq (js/Set.) (jsv! '(set))))
   (is (eq (js/Set.) (jsv! '(set nil)))))
 
+(deftest set?-test
+  (is (true? (jsv! '(set? #{}))))
+  (is (true? (jsv! '(set? (set [])))))
+  (is (false? (jsv! '(set? 9))))
+  (is (false? (jsv! '(set? []))))
+  (is (false? (jsv! '(set? {}))))
+  (is (false? (jsv! '(set? [1]))))
+  (is (false? (jsv! '(set? {:a 3}))))
+  (is (true? (jsv! '(set? (sorted-set 1 2 3))))))
+
 (deftest await-test
   (async done
     (->