From 03b1085924b225d34d3b11f1a442b0b5d926c417 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 2 Nov 2020 17:31:39 -0400
Subject: Allow defining anonymous actors.

---
 stdlib/source/test/licentia.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/licentia.lux')

diff --git a/stdlib/source/test/licentia.lux b/stdlib/source/test/licentia.lux
index 619d9c711..f73d55ab4 100644
--- a/stdlib/source/test/licentia.lux
+++ b/stdlib/source/test/licentia.lux
@@ -42,11 +42,11 @@
 
 (def: period
   (Random (Period Nat))
-  (do {@ r.monad}
+  (do {! r.monad}
     [start (r.filter (|>> (n.= n@top) not)
                      r.nat)
      #let [wiggle-room (n.- start n@top)]
-     end (:: @ map
+     end (:: ! map
              (|>> (n.% wiggle-room) (n.max 1))
              r.nat)]
     (wrap {#time.start start
@@ -104,8 +104,8 @@
 
 (def: (variable-list max-size gen-element)
   (All [a] (-> Nat (Random a) (Random (List a))))
-  (do {@ r.monad}
-    [amount (:: @ map (n.% (n.max 1 max-size))
+  (do {! r.monad}
+    [amount (:: ! map (n.% (n.max 1 max-size))
                 r.nat)]
     (r.list amount gen-element)))
 
-- 
cgit v1.2.3