diff options
| author | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
| commit | b96beb587c11fcfbce86ce2d62351600cf6cad1b (patch) | |
| tree | c9a558ab1391ac97cb11e8777ea78299f1ab5555 /lux-python/source | |
| parent | 104130efba46a875eba566384578f8aa8593ad37 (diff) | |
More traditional names for unquoting macros.
Diffstat (limited to 'lux-python/source')
| -rw-r--r-- | lux-python/source/program.lux | 24 |
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 |