From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 stdlib/source/specification/compositor/generation/common.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/common.lux')

diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux
index 6387b3013..729ce81f4 100644
--- a/stdlib/source/specification/compositor/generation/common.lux
+++ b/stdlib/source/specification/compositor/generation/common.lux
@@ -118,7 +118,7 @@
 
 (def: simple_frac
   (Random Frac)
-  (|> r.nat (\ r.monad map (|>> (n.% 1000) .int i.frac))))
+  (|> r.nat (\ r.monad each (|>> (n.% 1000) .int i.frac))))
 
 (def: (f64 run)
   (-> Runner Test)
@@ -175,12 +175,12 @@
 (def: (text run)
   (-> Runner Test)
   (do {! r.monad}
-    [sample_size (|> r.nat (\ ! map (|>> (n.% 10) (n.max 1))))
+    [sample_size (|> r.nat (\ ! each (|>> (n.% 10) (n.max 1))))
      sample_lower (r.ascii/lower_alpha sample_size)
      sample_upper (r.ascii/upper_alpha sample_size)
      sample_alpha (|> (r.ascii/alpha sample_size)
                       (r.only (|>> (text\= sample_upper) not)))
-     char_idx (|> r.nat (\ ! map (n.% sample_size)))
+     char_idx (|> r.nat (\ ! each (n.% sample_size)))
      .let [sample_lowerS (synthesis.text sample_lower)
            sample_upperS (synthesis.text sample_upper)
            sample_alphaS (synthesis.text sample_alpha)
-- 
cgit v1.2.3