From b96beb587c11fcfbce86ce2d62351600cf6cad1b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 2 Jul 2022 05:38:27 -0400
Subject: More traditional names for unquoting macros.

---
 lux-python/source/program.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'lux-python')

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
-- 
cgit v1.2.3