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

(limited to 'stdlib/source/specification/compositor/generation/structure.lux')

diff --git a/stdlib/source/specification/compositor/generation/structure.lux b/stdlib/source/specification/compositor/generation/structure.lux
index 9ab5d02f2..acf9888e8 100644
--- a/stdlib/source/specification/compositor/generation/structure.lux
+++ b/stdlib/source/specification/compositor/generation/structure.lux
@@ -44,7 +44,7 @@
                               analysis.#right? last?_in
                               analysis.#value (synthesis.i64 value_in)])
           (run "variant")
-          (pipe.case
+          (pipe.when
             {try.#Success valueT}
             (let [valueT (as (Array Any) valueT)]
               (and (n.= 3 (array.size valueT))
@@ -52,7 +52,7 @@
                          last?_out (array.read! 1 valueT)
                          value_out (as Any (maybe.trusted (array.read! 2 valueT)))
                          same_tag? (|> tag_out ffi.int_to_long (as Nat) (n.= tag_in))
-                         same_flag? (case last?_out
+                         same_flag? (when last?_out
                                       {.#Some last?_out'}
                                       (and last?_in (text#= "" (as Text last?_out')))
 
@@ -74,7 +74,7 @@
     (_.test (%.symbol (symbol synthesis.tuple))
       (|> (synthesis.tuple (list#each (|>> synthesis.i64) tuple_in))
           (run "tuple")
-          (pipe.case
+          (pipe.when
             {try.#Success tuple_out}
             (let [tuple_out (as (Array Any) tuple_out)]
               (and (n.= size (array.size tuple_out))
-- 
cgit v1.2.3