diff options
Diffstat (limited to 'lux-lua')
| -rw-r--r-- | lux-lua/source/program.lux | 22 |
1 files changed, 11 insertions, 11 deletions
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) |