aboutsummaryrefslogtreecommitdiff
path: root/lux-lua/source
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-lua/source/program.lux30
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]