diff options
Diffstat (limited to 'stdlib/source/test/lux/control/concurrency/stm.lux')
| -rw-r--r-- | stdlib/source/test/lux/control/concurrency/stm.lux | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index ab795ea79..628aedfaf 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -11,6 +11,7 @@ [control ["." io (#+ IO)]] [data + ["." product] [number ["n" nat]] [collection @@ -31,17 +32,8 @@ (def: comparison (Comparison /.STM) (function (_ == left right) - (io.run - (do io.monad - [?left (promise.poll (/.commit left)) - ?right (promise.poll (/.commit right))] - (wrap (case [?left ?right] - [(#.Some left) - (#.Some right)] - (== left right) - - _ - false)))))) + (== (product.right (left (list))) + (product.right (right (list)))))) (def: #export test Test |