diff options
author | Eduardo Julian | 2020-11-02 17:31:39 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-02 17:31:39 -0400 |
commit | 03b1085924b225d34d3b11f1a442b0b5d926c417 (patch) | |
tree | e50b2d0947bf7aa53d2ea8321693e4c0a21836ac /stdlib/source/test/licentia.lux | |
parent | 3e67e244ad1f58a7bab0094967a86be72aae2482 (diff) |
Allow defining anonymous actors.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/licentia.lux | 8 |
1 files changed, 4 insertions, 4 deletions
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))) |