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/program/aedifex/project.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux
index 687fd215b..4f6da6d62 100644
--- a/stdlib/source/program/aedifex/project.lux
+++ b/stdlib/source/program/aedifex/project.lux
@@ -38,8 +38,8 @@
   (def: identity
     (dictionary.empty text.hash))
 
-  (def: compose
-    (dictionary.merged_with (\ //.monoid compose))))
+  (def: composite
+    (dictionary.merged_with (\ //.monoid composite))))
 
 (exception: .public (unknown_profile {name Name})
   (exception.report
@@ -61,10 +61,10 @@
       
       #.None
       (do {! try.monad}
-        [parents (monad.map ! (profile' (set.has name lineage) project)
-                            (value@ #//.parents profile))]
+        [parents (monad.each ! (profile' (set.has name lineage) project)
+                             (value@ #//.parents profile))]
         (in (list\mix (function (_ parent child)
-                        (\ //.monoid compose child parent))
+                        (\ //.monoid composite child parent))
                       (with@ #//.parents (list) profile)
                       parents))))
     
-- 
cgit v1.2.3