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

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 108325fd7..313939963 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -62,7 +62,7 @@
     (-> Text (Async (Try a)) (Async a)))
   (do [! async.monad]
     [?output action]
-    (case ?output
+    (when ?output
       {try.#Failure error}
       (let [report (format text.new_line
                            failure_description text.new_line
@@ -70,7 +70,7 @@
         (do !
           [_ (with_expansions [<else> (in {try.#Success (debug.log! report)})]
                (for @.js (is (Async (Try Any))
-                             (case console.default
+                             (when console.default
                                {.#None}
                                <else>
 
@@ -97,9 +97,9 @@
 
 (def (package! fs host_dependencies [packager package] archive context)
   (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive (Maybe unit.ID) (Async (Try Any)))
-  (case (packager host_dependencies archive context)
+  (when (packager host_dependencies archive context)
     {try.#Success content}
-    (case content
+    (when content
       {.#Left content}
       (at fs write package content)
       
@@ -121,7 +121,7 @@
     (loop (again [pending host_dependencies
                   output (is (Dictionary file.Path Binary)
                              (dictionary.empty text.hash))])
-      (case pending
+      (when pending
         {.#End}
         (in output)
 
@@ -152,7 +152,7 @@
           (Async Any)))
     (do [! async.monad]
       [platform (async.future platform)]
-      (case service
+      (when service
         {cli.#Compilation compilation}
         (<| (or_crash! "Compilation failed:")
             ..timed
-- 
cgit v1.2.3