CLJ-2297: Fix BitmapNode#without(Object) memory leak

frenchy64 · Aug 23, 2024 · 18d7847 · 18d7847
1 parent 29e3a00
commit 18d7847
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/src/com/ambrosebs/map.clj b/src/com/ambrosebs/map.clj
@@ -385,15 +385,16 @@
                     idx))))
 
             (= key key-or-null)
-            ;; TODO: collapse  - rhickey
-            (bitmap-indexed-node-ctor
+            (if (identical? bitmap bit)
               nil
-              (bit-xor
-                bitmap
-                bit)
-              (remove-pair
-                array
-                idx))
+              (bitmap-indexed-node-ctor
+                nil
+                (bit-xor
+                  bitmap
+                  bit)
+                (remove-pair
+                  array
+                  idx)))
 
             :else this)))))
     (find-node