(let [value (atom 42)]
    (swap! value (fn [x]
                     (when (= x 42)
                         (some-critical-operation))
                     0)))