From 94c0bc5d12ed44540543bd6772d357baeb32bb45 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Jun 2022 18:28:30 -0400
Subject: De-sigil-ification: suffix : [Part 5]

---
 stdlib/source/test/lux/control/concurrency/actor.lux | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test')

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
-- 
cgit v1.2.3