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-lua/source/program.lux | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'lux-lua/source')

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