Fix race condition (#24)

* Fix race condition in debounced trigger
oliyh · Jun 8, 2021 · cf4ff29 · cf4ff29
1 parent d0baf95
commit cf4ff29
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/superlifter/core.cljc b/src/superlifter/core.cljc
@@ -139,7 +139,7 @@
 
          (<= interval (- (js/Date.) lu))
          (do (fetch-all-handling-errors! context bucket-id)
-             (reset! last-updated nil)
+             (compare-and-set! last-updated lu nil)
              (js/setTimeout check-debounced 0 context bucket-id interval last-updated))
 
          :else
@@ -158,7 +158,7 @@
 
                                       (<= interval (- (System/currentTimeMillis) lu))
                                       (do (fetch-all-handling-errors! context bucket-id)
-                                          (reset! last-updated nil)
+                                          (compare-and-set! last-updated lu nil)
                                           (recur))
 
                                       :else