diff options
Diffstat (limited to 'lux-lua/source/program.lux')
| -rw-r--r-- | lux-lua/source/program.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index f904a2416..7b13d2d9d 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -230,7 +230,7 @@ Translator (`` (<| (if (ffi.null? host_object) (exception.except ..nil_has_no_lux_representation [])) - (~~ (with_template [<class> <post_processing>] + (,, (with_template [<class> <post_processing>] [(case (ffi.as <class> host_object) {.#Some typed_object} (|> typed_object <post_processing>) @@ -266,7 +266,7 @@ (def (function/* arity) (-> Nat Code) - (` (.-> (~+ (list.repeated arity (` .Any))) + (` (.-> (,* (list.repeated arity (` .Any))) .Any))) (def input/* @@ -285,7 +285,7 @@ (-> Nat (List Code)) (|>> ..input/* (list#each (function (_ $input) - (list $input (` (..read (~ $input)))))) + (list $input (` (..read (, $input)))))) list#conjoint)) (def (apply/* to_host self parameters abstraction) @@ -299,11 +299,11 @@ (pattern (list)) (in self) - (~~ (with_template [<arity>] - [(pattern (list (~~ (static.literals function.identity (..input/* <arity>))))) - (in (to_host ((as (~~ (static.literal function.identity (..function/* <arity>))) + (,, (with_template [<arity>] + [(pattern (list (,, (static.literals function.identity (..input/* <arity>))))) + (in (to_host ((as (,, (static.literal function.identity (..function/* <arity>))) lux_function) - (~~ (static.literals function.identity (..input/* <arity>))))))] + (,, (static.literals function.identity (..input/* <arity>))))))] [1] [2] @@ -312,10 +312,10 @@ [5] )) - (pattern (list.partial (~~ (static.literals function.identity (..input/* 5))) input/+)) - (again ((as (~~ (static.literal function.identity (..function/* 5))) + (pattern (list.partial (,, (static.literals function.identity (..input/* 5))) input/+)) + (again ((as (,, (static.literal function.identity (..function/* 5))) lux_function) - (~~ (static.literals function.identity (..input/* 5)))) + (,, (static.literals function.identity (..input/* 5)))) input/+) ))))))) @@ -336,16 +336,16 @@ (<| (..return %) self)) - (~~ (with_template [<arity>] + (,, (with_template [<arity>] [(net/sandius/rembulan/runtime/LuaFunction [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext - (~~ (static.literals function.identity (..declaration/* <arity>)))]) + (,, (static.literals function.identity (..declaration/* <arity>)))]) void "throws" [net/sandius/rembulan/runtime/ResolvedControlThrowable] (<| (..return %) (apply/* to_host (ffi.is net/sandius/rembulan/runtime/LuaFunction self) - (list (~~ (static.literals function.identity (..input/* <arity>)))) + (list (,, (static.literals function.identity (..input/* <arity>)))) lux_function)))] [1] @@ -782,7 +782,7 @@ (with_expansions [<jvm> (these (def (to_host it) (-> Any java/lang/Object) - (`` (<| (~~ (with_template [<jvm> <lua>] + (`` (<| (,, (with_template [<jvm> <lua>] [(case (ffi.as <jvm> (as java/lang/Object it)) {.#Some it} (as java/lang/Object @@ -884,7 +884,7 @@ (`` (program: [service cli.service] (let [context (context.lua (cli.target service))] (do io.monad - [(~~ (for @.old [baggage platform] + [(,, (for @.old [baggage platform] @.jvm [baggage platform] @.lua platform)) ..platform] |