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/test/aedifex/project.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test/aedifex/project.lux')

diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index 291935293..ebf37db81 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -27,7 +27,7 @@
 (def: profile
   (Random [//.Name //.Profile])
   (|> @profile.random
-      (random\map (with@ #//.parents (list)))
+      (random\each (with@ #//.parents (list)))
       (random.and (random.ascii/alpha 1))))
 
 (def: .public random
@@ -63,24 +63,24 @@
                                                   (not (text\= dummy_name name))
                                                   (not (text\= sub_name name))))
                                            (random.ascii/alpha 1))
-                    .let [project ($_ (\ /.monoid compose)
+                    .let [project ($_ (\ /.monoid composite)
                                       (/.project super_name super_profile)
                                       (/.project dummy_name dummy_profile)
                                       (/.project sub_name (with@ #//.parents (list super_name) sub_profile)))
-                          circular ($_ (\ /.monoid compose)
+                          circular ($_ (\ /.monoid composite)
                                        (/.project super_name (with@ #//.parents (list sub_name) super_profile))
                                        (/.project dummy_name dummy_profile)
                                        (/.project sub_name (with@ #//.parents (list super_name) sub_profile)))]]
                    ($_ _.and
                        (_.cover [/.profile]
                                 (and (|> (/.profile super_name project)
-                                         (try\map (\ //.equivalence = super_profile))
+                                         (try\each (\ //.equivalence = super_profile))
                                          (try.else false))
                                      (|> (/.profile dummy_name project)
-                                         (try\map (\ //.equivalence = dummy_profile))
+                                         (try\each (\ //.equivalence = dummy_profile))
                                          (try.else false))
                                      (|> (/.profile sub_name project)
-                                         (try\map (\ //.equivalence = (\ //.monoid compose sub_profile super_profile)))
+                                         (try\each (\ //.equivalence = (\ //.monoid composite sub_profile super_profile)))
                                          (try.else false))))
                        (_.cover [/.unknown_profile]
                                 (case (/.profile fake_name project)
-- 
cgit v1.2.3