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/profile.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 4cb58d0d0..92d755290 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -74,18 +74,18 @@
 (def: (list_of random)
   (All [a] (-> (Random a) (Random (List a))))
   (do {! random.monad}
-    [size (\ ! map (n.% 5) random.nat)]
+    [size (\ ! each (n.% 5) random.nat)]
     (random.list size random)))
 
 (def: (set_of hash random)
   (All [a] (-> (Hash a) (Random a) (Random (Set a))))
-  (\ random.functor map
+  (\ random.functor each
      (set.of_list hash)
      (..list_of random)))
 
 (def: (dictionary_of key_hash key_random value_random)
   (All [k v] (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v))))
-  (\ random.functor map
+  (\ random.functor each
      (dictionary.of_list key_hash)
      (..list_of (random.and key_random value_random))))
 
-- 
cgit v1.2.3