aboutsummaryrefslogtreecommitdiff
path: root/lux-python/source/program.lux
diff options
context:
space:
mode:
Diffstat (limited to 'lux-python/source/program.lux')
-rw-r--r--lux-python/source/program.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux
index 029d9d4f0..bafdc790a 100644
--- a/lux-python/source/program.lux
+++ b/lux-python/source/program.lux
@@ -208,10 +208,10 @@
(def (read host_object)
Translator
- (`` (<| (~~ (with_template [<class> <processing>]
+ (`` (<| (,, (with_template [<class> <processing>]
[(case (ffi.as <class> (as <class> host_object))
{.#Some host_object}
- {try.#Success (`` (|> host_object (~~ (template.spliced <processing>))))}
+ {try.#Success (`` (|> host_object (,, (template.spliced <processing>))))}
_)]
@@ -230,7 +230,7 @@
[org/python/core/PyArray [org/python/core/PyArray::getArray]]
[[java/lang/Object] [(|>)]]
))
- (~~ (with_template [<class> <processing>]
+ (,, (with_template [<class> <processing>]
[(case (ffi.as <class> host_object)
{.#Some host_object}
(<| <processing> (as org/python/core/PyObject) host_object)
@@ -245,7 +245,7 @@
(def (function/? arity)
(-> Nat Code)
- (` (.-> (~+ (list.repeated arity (` .Any))) .Any)))
+ (` (.-> (,* (list.repeated arity (` .Any))) .Any)))
(def (inputs/? arity)
(-> Nat (List Text))
@@ -273,10 +273,10 @@
(pattern (list))
(as org/python/core/PyObject self)
- (~~ (with_template [<arity>]
- [(pattern (list (~~ (static.literals code.local (inputs/? <arity>)))))
- (to_host ((as (~~ (static.literal function.identity (function/? <arity>))) it)
- (~~ (static.literals code.local (inputs/? <arity>)))))]
+ (,, (with_template [<arity>]
+ [(pattern (list (,, (static.literals code.local (inputs/? <arity>)))))
+ (to_host ((as (,, (static.literal function.identity (function/? <arity>))) it)
+ (,, (static.literals code.local (inputs/? <arity>)))))]
[1]
[2]
@@ -287,10 +287,10 @@
[7]
[8]))
- (pattern (list.partial (~~ (static.literals code.local (inputs/? 8)))
+ (pattern (list.partial (,, (static.literals code.local (inputs/? 8)))
input/+))
- (again ((as (~~ (static.literal function.identity (function/? 8))) it)
- (~~ (static.literals code.local (inputs/? 8))))
+ (again ((as (,, (static.literal function.identity (function/? 8))) it)
+ (,, (static.literals code.local (inputs/? 8))))
input/+))))))))))))
(def object_class
@@ -337,7 +337,7 @@
(def (to_host it)
(-> Any org/python/core/PyObject)
- (`` (<| (~~ (with_template [<jvm> <python>]
+ (`` (<| (,, (with_template [<jvm> <python>]
[(case (ffi.as <jvm> (as java/lang/Object it))
{.#Some it}
(as org/python/core/PyObject