From 065e8a4d8122d4616b570496915d2c0e2c78cd6b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Aug 2022 04:15:07 -0400
Subject: Re-named the "case" macro to "when".

---
 stdlib/source/test/aedifex/command/auto.lux  |  2 +-
 stdlib/source/test/aedifex/command/build.lux | 10 +++++-----
 stdlib/source/test/aedifex/command/pom.lux   |  4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/test/aedifex/command')

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 5dc092327..b202af97f 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -110,7 +110,7 @@
                                                            fs
                                                            (shell.async ($build.good_shell []))
                                                            resolution)
-                                                          (at ! each (|>> (pipe.case
+                                                          (at ! each (|>> (pipe.when
                                                                             {try.#Failure error}
                                                                             (same? end_signal error)
 
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 9aea4828c..c039b6e9c 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -85,7 +85,7 @@
            (def (on_read state)
              (if error?
                (exception.except shell.no_more_output [])
-               (case state
+               (when state
                  {.#Item head tail}
                  {try.#Success [tail head]}
                  
@@ -93,7 +93,7 @@
                  (exception.except shell.no_more_output []))))
            (def (on_fail state)
              (if error?
-               (case state
+               (when state
                  {.#Item head tail}
                  {try.#Success [tail head]}
                  
@@ -165,7 +165,7 @@
                    [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty home working_directory)) fs shell ///dependency/resolution.empty
                                    (with_target empty_profile))]
                    (unit.coverage [/.no_specified_program]
-                     (case outcome
+                     (when outcome
                        {try.#Success _}
                        false
 
@@ -174,7 +174,7 @@
              (in (do async.monad
                    [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty home working_directory)) fs shell ///dependency/resolution.empty profile)]
                    (unit.coverage [/.Lux /.no_available_lux]
-                     (case outcome
+                     (when outcome
                        {try.#Success _}
                        false
 
@@ -234,7 +234,7 @@
                                                    actual/1 (at console read_line [])
                                                    actual/2 (at console read_line [])
                                                    end! (|> (at console read_line [])
-                                                            (at ! each (|>> (pipe.case
+                                                            (at ! each (|>> (pipe.when
                                                                               {try.#Failure error}
                                                                               true
                                                                               
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 32a10f8a3..0d304f19d 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -41,7 +41,7 @@
         (in (do [! async.monad]
               [.let [console (@version.echo "")]
                outcome (/.do! console fs sample)]
-              (case outcome
+              (when outcome
                 {try.#Success _}
                 (do !
                   [verdict (do ///action.monad
@@ -64,7 +64,7 @@
                 
                 {try.#Failure error}
                 (unit.coverage [/.do!]
-                  (case (the ///.#identity sample)
+                  (when (the ///.#identity sample)
                     {.#Some _}
                     false
 
-- 
cgit v1.2.3