aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test')
-rw-r--r--stdlib/source/test/lux/control/concurrency/actor.lux13
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