diff options
Diffstat (limited to 'stdlib/source/library/lux/control/concurrency/stm.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/concurrency/stm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/control/concurrency/stm.lux b/stdlib/source/library/lux/control/concurrency/stm.lux index 80a363c74..9762ffa59 100644 --- a/stdlib/source/library/lux/control/concurrency/stm.lux +++ b/stdlib/source/library/lux/control/concurrency/stm.lux @@ -226,7 +226,7 @@ (def commit_processor_flag (Atom Bit) - (atom #0)) + (atom false)) (def (issue_commit! commit) (All (_ a) (-> (Commit a) (IO Any))) @@ -264,7 +264,7 @@ (if flag (in []) (do ! - [was_first? (atom.compare_and_swap! flag #1 commit_processor_flag)] + [was_first? (atom.compare_and_swap! flag true commit_processor_flag)] (if was_first? (do ! [[async resolve] (atom.read! pending_commits)] |