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

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

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
                                                                               
-- 
cgit v1.2.3