From 132ffdae1add622c8a3c6065d7730a8fe8ea5e78 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Sep 2021 22:52:26 -0400
Subject: Changed the syntax of do/be's (co)monad bindings.

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

(limited to 'stdlib/source/test/lux/math/number/frac.lux')

diff --git a/stdlib/source/test/lux/math/number/frac.lux b/stdlib/source/test/lux/math/number/frac.lux
index 6a6e6eb4f..baedf891a 100644
--- a/stdlib/source/test/lux/math/number/frac.lux
+++ b/stdlib/source/test/lux/math/number/frac.lux
@@ -50,7 +50,7 @@
 
 (def: predicate
   Test
-  (do {! random.monad}
+  (do [! random.monad]
     [sample ..random
      shift (\ ! each /.abs ..random)]
     ($_ _.and
@@ -76,15 +76,15 @@
 (def: conversion
   Test
   ($_ _.and
-      (do {! random.monad}
+      (do [! random.monad]
         [expected (\ ! each (n.% 1,000,000) random.nat)]
         (_.cover [/.nat]
                  (|> expected n.frac /.nat (n.= expected))))
-      (do {! random.monad}
+      (do [! random.monad]
         [expected (\ ! each (i.% +1,000,000) random.int)]
         (_.cover [/.int]
                  (|> expected i.frac /.int (i.= expected))))
-      (do {! random.monad}
+      (do [! random.monad]
         [expected (\ ! each (|>> (i64.left_shifted 52) .rev)
                      random.nat)]
         (_.cover [/.rev]
-- 
cgit v1.2.3