diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/concurrency/stm.lux | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index 07d0c946b..ab795ea79 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -11,7 +11,6 @@ [control ["." io (#+ IO)]] [data - ["%" text/format (#+ format)] [number ["n" nat]] [collection @@ -47,7 +46,7 @@ (def: #export test Test (<| (_.covering /._) - (do random.monad + (do {@ random.monad} [dummy random.nat expected random.nat iterations-per-process (|> random.nat (:: @ map (n.% 100)))] @@ -101,7 +100,7 @@ (list expected (n.* 2 expected)) changes)))) (wrap (let [var (/.var 0)] - (do promise.monad + (do {@ promise.monad} [_ (|> (list.repeat iterations-per-process []) (list@map (function (_ _) (/.commit (/.update inc var)))) (monad.seq @)) |