diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/concurrency/actor.lux | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux index 3149e3873..d99ce25b8 100644 --- a/stdlib/source/test/lux/control/concurrency/actor.lux +++ b/stdlib/source/test/lux/control/concurrency/actor.lux @@ -19,7 +19,7 @@ [number ["n" nat]]]]] [\\library - ["[0]" / (.only actor: message:) + ["[0]" / (.only actor: message) [// ["[0]" atom (.only Atom)] ["[0]" async (.only Async Resolver) (.open: "[1]#[0]" monad)] @@ -33,10 +33,11 @@ ((on_mail message state self) (message state self)) - (message: (count! [increment Nat] state self) - Nat - (let [state' (n.+ increment state)] - (async#in {try.#Success [state' state']}))) + (def: count! + (message (_ [increment Nat] state self) + Nat + (let [state' (n.+ increment state)] + (async#in {try.#Success [state' state']})))) ) (def: (mailed? outcome) @@ -164,7 +165,7 @@ (in (and (n.= 1 output_1) (n.= 2 output_2) (n.= 3 output_3))))] - (_.coverage' [/.Message /.actor: /.message: /.tell!] + (_.coverage' [/.Message /.message /.actor: /.tell!] (case result {try.#Success outcome} outcome |