From 1a962ee4b03f51f46a5979bfefc954f35ee3a1b7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 30 Mar 2022 13:12:18 -0400
Subject: Re-named "as_is" to "these" to avoid confusion with the new
 type-annotation macro names.

---
 lux-lua/source/program.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'lux-lua/source')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 46fb33033..8d572e8c2 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -68,7 +68,7 @@
  [program
   ["/" compositor]])
 
-(with_expansions [<jvm> (as_is (ffi.import: java/lang/String
+(with_expansions [<jvm> (these (ffi.import: java/lang/String
                                  "[1]::[0]")
 
                                (ffi.import: (java/lang/Class a)
@@ -491,15 +491,15 @@
 
                                    {.#None}
                                    (exception.except ..cannot_apply_a_non_function (as java/lang/Object macro)))))]
-  (for @.old (as_is <jvm>)
-       @.jvm (as_is <jvm>)
+  (for @.old (these <jvm>)
+       @.jvm (these <jvm>)
 
        @.lua
        (def: (expander macro inputs lux)
          Expander
          {try.#Success ((as Macro' macro) inputs lux)})))
 
-(with_expansions [<jvm> (as_is (with_expansions [$var_args (_.var "...")
+(with_expansions [<jvm> (these (with_expansions [$var_args (_.var "...")
                                                  $str_rel_to_abs (_.var "_utf8_str_rel_to_abs")
                                                  $decode (_.var "_utf8_decode")]
                                  (template.let [(!int <hex>)
@@ -515,7 +515,7 @@
                                                      (_.bit_shr (_.int <shift>))
                                                      (_.bit_and (!int <and>))
                                                      (_.bit_or (!int <or>)))]]
-                                   (as_is (def: rembulan//char
+                                   (these (def: rembulan//char
                                             (let [$buffer (_.var "buffer")
                                                   $k (_.var "k")
                                                   $v (_.var "v")
@@ -741,9 +741,9 @@
                                                (do try.monad
                                                  [_ (run! content)]
                                                  (run! (_.return (_.var (reference.artifact context))))))))]))))]
-  (for @.old (as_is <jvm>)
-       @.jvm (as_is <jvm>)
-       @.lua (as_is (ffi.import: (load [ffi.String] "try" ffi.Function))
+  (for @.old (these <jvm>)
+       @.jvm (these <jvm>)
+       @.lua (these (ffi.import: (load [ffi.String] "try" ffi.Function))
                     (def: host
                       (IO (Host _.Expression _.Statement))
                       (io (let [run! (is (-> _.Statement (Try Any))
@@ -782,7 +782,7 @@
                                      [_ (run! content)]
                                      (run! (_.return (_.var (reference.artifact context))))))))))))))
 
-(with_expansions [<jvm> (as_is (def: (to_host it)
+(with_expansions [<jvm> (these (def: (to_host it)
                                  (-> Any java/lang/Object)
                                  (`` (<| (~~ (template [<jvm> <lua>]
                                                [(case (ffi.check <jvm> (as java/lang/Object it))
@@ -827,8 +827,8 @@
                                            maybe.trusted
                                            (as java/lang/Object)
                                            ..read)))))]
-  (for @.old (as_is <jvm>)
-       @.jvm (as_is <jvm>)
+  (for @.old (these <jvm>)
+       @.jvm (these <jvm>)
 
        @.lua
        (def: (extender phase_wrapper handler)
-- 
cgit v1.2.3