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.

---
 stdlib/source/test/lux.lux | 60 +++++++++++++++++++++++-----------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index a7cb9cfa9..1e997b2cf 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -63,13 +63,13 @@
             ["[1][0]" ffi]
             ["[1][0]" extension]
             ["[1][0]" target (.only)
-             (.~~ (.for "{old}" (.~~ (.these ["[1]/[0]" jvm]))
-                        "JVM" (.~~ (.these ["[1]/[0]" jvm]))
-                        "JavaScript" (.~~ (.these ["[1]/[0]" js]))
-                        "Lua" (.~~ (.these ["[1]/[0]" lua]))
-                        "Python" (.~~ (.these ["[1]/[0]" python]))
-                        "Ruby" (.~~ (.these ["[1]/[0]" ruby]))
-                        (.~~ (.these))))]
+             (.,, (.for "{old}" (.,, (.these ["[1]/[0]" jvm]))
+                        "JVM" (.,, (.these ["[1]/[0]" jvm]))
+                        "JavaScript" (.,, (.these ["[1]/[0]" js]))
+                        "Lua" (.,, (.these ["[1]/[0]" lua]))
+                        "Python" (.,, (.these ["[1]/[0]" python]))
+                        "Ruby" (.,, (.these ["[1]/[0]" ruby]))
+                        (.,, (.these))))]
             ])))
 
 (def for_bit
@@ -287,7 +287,7 @@
                                      (code.symbol ["" "i8"])))
                    (/.' [+9.0 "9" i8]))
            (not (code#= (code.nat example_nat)
-                        (/.' (~ (code.nat example_nat)))))
+                        (/.' (, (code.nat example_nat)))))
            ))))
 
 (def for_code/`
@@ -317,7 +317,7 @@
                                      (code.symbol [..current_module "i8"])))
                    (/.` [+9.0 "9" i8]))
            (code#= (code.nat example_nat)
-                   (/.` (~ (code.nat example_nat))))))))
+                   (/.` (, (code.nat example_nat))))))))
 
 (def for_code/`'
   Test
@@ -346,7 +346,7 @@
                                      (code.symbol ["" "i8"])))
                    (/.`' [+9.0 "9" i8]))
            (code#= (code.nat example_nat)
-                   (/.`' (~ (code.nat example_nat))))))))
+                   (/.`' (, (code.nat example_nat))))))))
 
 (def for_code
   Test
@@ -397,7 +397,7 @@
                          (same? (is Any macro))))
                    (_.coverage [/.macro]
                      (same? expected (..identity_macro expected)))
-                   (~~ (for @.old (~~ (these))
+                   (,, (for @.old (,, (these))
                             (_.coverage [/.Source]
                               (..found_crosshair?))))
                    (_.coverage [/.require]
@@ -419,21 +419,21 @@
                                            <m2/1> (template.text [<module/2> "/" <module/1>])
                                            <m0/1/2> (template.text [<module/0> "/" <module/1> "/" <module/2>])
                                            <open/0> (template.text [<module/0> "#[0]"])]
-                           (and (~~ (with_template [<input> <module> <referrals>]
+                           (and (,, (with_template [<input> <module> <referrals>]
                                       [(with_expansions [<input>' (macro.final <input>)]
                                          (let [scenario (is (-> Any Bit)
                                                             (function (_ _)
                                                               ... TODO: Remove this hack once Jython is no longer being used as the Python interpreter.
                                                               (`` (for @.python (case (' [<input>'])
                                                                                   (^.` [<module>
-                                                                                        ("lux def" (~ [_ {.#Symbol ["" _]}]) [] #0)
-                                                                                        (~~ (template.spliced <referrals>))])
+                                                                                        ("lux def" (, [_ {.#Symbol ["" _]}]) [] #0)
+                                                                                        (,, (template.spliced <referrals>))])
                                                                                   true
 
                                                                                   _
                                                                                   false)
                                                                        (case (' [<input>'])
-                                                                         (^.` [<module> (~~ (template.spliced <referrals>))])
+                                                                         (^.` [<module> (,, (template.spliced <referrals>))])
                                                                          true
 
                                                                          _
@@ -655,7 +655,7 @@
   Test
   (`` (all _.and
            (_.coverage [/.with_template]
-             (let [bits (list (~~ (/.with_template [_]
+             (let [bits (list (,, (/.with_template [_]
                                     [true]
 
                                     [0] [1] [2]
@@ -686,7 +686,7 @@
              (pattern (/.static option/1)) true
              _ false))
          (_.coverage [/.char]
-           (|> (`` (/.char (~~ (/.static static_char))))
+           (|> (`` (/.char (,, (/.static static_char))))
                text.of_char
                (text#= static_char)))
          )))
@@ -815,7 +815,7 @@
      .let [expected (n.+ left right)]]
     (all _.and
          (_.coverage [/.these]
-           (`` (and (~~ (these true
+           (`` (and (,, (these true
                                true
                                true)))))
          (_.coverage [/.with_expansions]
@@ -830,8 +830,8 @@
          (_.coverage [/.``]
            (n.= expected
                 (/.`` (all n.+
-                           (~~ (these left right))
-                           (~~ (/.comment dummy))))))
+                           (,, (these left right))
+                           (,, (/.comment dummy))))))
          (_.coverage [/.for]
            (and (n.= expected
                      (/.for "fake host" dummy
@@ -1196,8 +1196,8 @@
                ..for_def
                ..for_meta
                ..for_export
-               (~~ (for @.old (~~ (these))
-                        (~~ (these ..for_bindings))))
+               (,, (for @.old (,, (these))
+                        (,, (these ..for_bindings))))
                ))))
 
 (def test
@@ -1226,16 +1226,16 @@
                      /world.test
 
                      /ffi.test
-                     (~~ (for @.old (~~ (these))
-                              (~~ (these /extension.test))))
+                     (,, (for @.old (,, (these))
+                              (,, (these /extension.test))))
                      
                      /target.test
-                     (~~ (for @.jvm (~~ (these /target/jvm.test))
-                              @.old (~~ (these /target/jvm.test))
-                              @.js (~~ (these /target/js.test))
-                              @.lua (~~ (these /target/lua.test))
-                              @.python (~~ (these /target/python.test))
-                              @.ruby (~~ (these /target/ruby.test))))
+                     (,, (for @.jvm (,, (these /target/jvm.test))
+                              @.old (,, (these /target/jvm.test))
+                              @.js (,, (these /target/js.test))
+                              @.lua (,, (these /target/lua.test))
+                              @.python (,, (these /target/python.test))
+                              @.ruby (,, (these /target/ruby.test))))
                      ))))))
 
 (program: args
-- 
cgit v1.2.3