diff options
author | Eduardo Julian | 2022-07-28 02:44:45 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-07-28 02:44:45 -0400 |
commit | a4847190df926d35f7ece97da50a2a8b1462a24f (patch) | |
tree | d368c52b41425631c3962d3c238e6c3c9c797ad6 /stdlib/source/library/lux/control/concurrency/stm.lux | |
parent | ebfe1bbbe543299f8691e4862fbc899637ff8cfd (diff) |
Now statically resolving values from globals in pattern-matching.
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)] |