fixing bug in find

Tensegritics · Sep 23, 2024 · ab6be55 · ab6be55
1 parent 9e368a7
commit ab6be55
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/clj/src/cljd/core.cljd b/clj/src/cljd/core.cljd
@@ -5112,8 +5112,10 @@
     (not (identical? (-lookup coll k coll) coll)))
   IFind
   (-find [coll k]
-    (when-some [v (-lookup coll k nil)]
-      (new #/(MapEntry K V) k v)))
+    ;; NOTE: `coll` is used as a local sentinel here
+    (let [v (-lookup coll k coll)]
+      (when-not (identical? coll v)
+        (new #/(MapEntry K V) k v))))
   IMap
   (-dissoc [coll k]
     (let [new-root (.inode_without root 0 (hash k) k)]

diff --git a/clj/test/cljd/test_clojure/core_test_cljd.cljd b/clj/test/cljd/test_clojure/core_test_cljd.cljd
@@ -1059,3 +1059,6 @@
                               ([result input]
                                (reduced {:cljd.core/halt :should-be-wrapped})))))
                  [1])))))
+
+(deftest find-returns-nil-value
+  (is (= (find {1 nil, 2 "b"} 1) [1 nil])))