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/format.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 74583c8f5..d36d597b3 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -59,8 +59,8 @@
 (def: aggregate
   (Format Aggregate)
   (|>> dictionary.entries
-       (list\map (function (_ [key value])
-                   [(code.local_tag key) value]))
+       (list\each (function (_ [key value])
+                    [(code.local_tag key) value]))
        code.record))
 
 (def: empty
@@ -85,7 +85,7 @@
     aggregate
 
     value
-    (dictionary.has field (` [(~+ (list\map format value))]) aggregate)))
+    (dictionary.has field (` [(~+ (list\each format value))]) aggregate)))
 
 (def: (on_set field value format aggregate)
   (All [a]
@@ -100,8 +100,8 @@
     (dictionary.has field
                     (|> value
                         dictionary.entries
-                        (list\map (function (_ [key value])
-                                    [(key_format key) (value_format value)]))
+                        (list\each (function (_ [key value])
+                                     [(key_format key) (value_format value)]))
                         code.record)
                     aggregate)))
 
@@ -137,7 +137,7 @@
 (def: (runtime [program parameters])
   (Format Runtime)
   (` [(~ (code.text program))
-      (~+ (list\map code.text parameters))]))
+      (~+ (list\each code.text parameters))]))
 
 (def: .public (profile value)
   (Format /.Profile)
@@ -166,6 +166,6 @@
 (def: .public project
   (Format Project)
   (|>> dictionary.entries
-       (list\map (function (_ [key value])
-                   [(code.text key) (..profile value)]))
+       (list\each (function (_ [key value])
+                    [(code.text key) (..profile value)]))
        code.record))
-- 
cgit v1.2.3