Remove locking from peek function

aroemers · Mar 2, 2024 · 1461118 · 1461118
1 parent a38a955
commit 1461118
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/redelay/core.clj b/src/redelay/core.clj
@@ -54,9 +54,9 @@
 
   clojure.lang.IPersistentStack
   (peek [this]
-    (locking this
-      (when (realized? this)
-        @value)))
+    (let [v @value]
+      (when (not= v unrealized)
+        v)))
 
   StateFunctions
   (force-close [this]