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/command/auto.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 1ed19ddf7..91506ca06 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -89,8 +89,8 @@
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
          
-         expected_runs (\ ! map (|>> (n.% 10) (n.max 2)) random.nat)
-         dummy_path (\ ! map (|>> (format source /)) (random.ascii/alpha 5))
+         expected_runs (\ ! each (|>> (n.% 10) (n.max 2)) random.nat)
+         dummy_path (\ ! each (|>> (format source /)) (random.ascii/alpha 5))
          [compiler resolution] $build.resolution]
         ($_ _.and
             (_.cover [/.delay]
@@ -110,15 +110,15 @@
                                                           fs
                                                           (shell.async ($build.good_shell []))
                                                           resolution)
-                                                         (\ ! map (|>> (case> (#try.Failure error)
-                                                                              (same? end_signal error)
+                                                         (\ ! each (|>> (case> (#try.Failure error)
+                                                                               (same? end_signal error)
 
-                                                                              (#try.Success _)
-                                                                              false))))
+                                                                               (#try.Success _)
+                                                                               false))))
                                 correct_number_of_runs! (|> @runs
                                                             atom.read!
                                                             async.future
-                                                            (\ ! map (n.= expected_runs)))]
+                                                            (\ ! each (n.= expected_runs)))]
                                (in (#try.Success (and correct_number_of_runs!
                                                       no_dangling_process!)))))]
                   (_.cover' [/.do!]
-- 
cgit v1.2.3