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 [ (as_is (ffi.import: java/lang/String +(with_expansions [ (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 (as_is ) + (for @.old (these ) + @.jvm (these ) @.lua (def: (expander macro inputs lux) Expander {try.#Success ((as Macro' macro) inputs lux)}))) -(with_expansions [ (as_is (with_expansions [$var_args (_.var "...") +(with_expansions [ (these (with_expansions [$var_args (_.var "...") $str_rel_to_abs (_.var "_utf8_str_rel_to_abs") $decode (_.var "_utf8_decode")] (template.let [(!int ) @@ -515,7 +515,7 @@ (_.bit_shr (_.int )) (_.bit_and (!int )) (_.bit_or (!int )))]] - (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 (as_is ) - @.lua (as_is (ffi.import: (load [ffi.String] "try" ffi.Function)) + (for @.old (these ) + @.jvm (these ) + @.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 [ (as_is (def: (to_host it) +(with_expansions [ (these (def: (to_host it) (-> Any java/lang/Object) (`` (<| (~~ (template [ ] [(case (ffi.check (as java/lang/Object it)) @@ -827,8 +827,8 @@ maybe.trusted (as java/lang/Object) ..read)))))] - (for @.old (as_is ) - @.jvm (as_is ) + (for @.old (these ) + @.jvm (these ) @.lua (def: (extender phase_wrapper handler) -- cgit v1.2.3