diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/concurrency/stm.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/concurrency/stm.lux b/stdlib/source/lux/concurrency/stm.lux index 89bbab2af..c3e5fad3a 100644 --- a/stdlib/source/lux/concurrency/stm.lux +++ b/stdlib/source/lux/concurrency/stm.lux @@ -55,7 +55,7 @@ (All [a] (-> (Var a) Tx (Maybe a))) (|> tx (find (lambda [[_var _original _current]] - (== (:! (Var Unit) var) + (is (:! (Var Unit) var) (:! (Var Unit) _var)))) (:: Monad<Maybe> map (lambda [[_var _original _current]] _current)) @@ -87,7 +87,7 @@ #;Nil (#;Cons [_var _original _current] tx') - (if (== (:! (Var ($ +0)) var) + (if (is (:! (Var ($ +0)) var) (:! (Var ($ +0)) _var)) (#;Cons [(:! (Var ($ +0)) _var) (:! ($ +0) _original) @@ -201,12 +201,12 @@ (def: (can-commit? tx) (-> Tx Bool) (every? (lambda [[_var _original _current]] - (== _original (raw-read _var))) + (is _original (raw-read _var))) tx)) (def: (commit-var [_var _original _current]) (-> (Ex [a] (Tx-Frame a)) Unit) - (if (== _original _current) + (if (is _original _current) [] (io;run (write! _current _var)))) |