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/aedifex/artifact/extension.lux    | 2 +-
 stdlib/source/test/aedifex/command/build.lux         | 4 ++--
 stdlib/source/test/aedifex/dependency/resolution.lux | 2 +-
 stdlib/source/test/aedifex/hash.lux                  | 6 +++---
 stdlib/source/test/aedifex/runtime.lux               | 2 +-
 5 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/artifact/extension.lux b/stdlib/source/test/aedifex/artifact/extension.lux
index bf2127d23..7024ed43b 100644
--- a/stdlib/source/test/aedifex/artifact/extension.lux
+++ b/stdlib/source/test/aedifex/artifact/extension.lux
@@ -30,7 +30,7 @@
                       (n.= (list.size options)
                            (set.size uniques))))
                   (_.coverage [/.extension /.type]
-                    (`` (and (~~ (with_template [<type> <extension>]
+                    (`` (and (,, (with_template [<type> <extension>]
                                    [(and (text#= <extension>
                                                  (/.extension <type>))
                                          (text#= <type>
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 5aedb67a9..7ae2a8c72 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -115,7 +115,7 @@
                         ///dependency.#type ///artifact/type.js_library]]]
     (`` (all random.either
              (in js_compiler)
-             (~~ (with_template [<compiler>]
+             (,, (with_template [<compiler>]
                    [(in [///dependency.#artifact [///artifact.#group /.lux_group
                                                   ///artifact.#name <compiler>
                                                   ///artifact.#version lux_version]
@@ -219,7 +219,7 @@
                 expected/1 (random.alphabetic 5)
                 expected/2 (random.alphabetic 5)]
                (`` (all _.and
-                        (~~ (with_template [<error?> <log!>]
+                        (,, (with_template [<error?> <log!>]
                               [(let [console (@version.echo "")
                                      shell (|> (list expected/0 expected/1 expected/2)
                                                (..reader_shell <error?>)
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 1507398b6..e724392a5 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -271,7 +271,7 @@
                         
                         {try.#Failure _}
                         false))))
-              (~~ (with_template [<exception> <bad>]
+              (,, (with_template [<exception> <bad>]
                     [(in (do async.monad
                            [actual_package (/.one (///repository.mock <bad> [])
                                                   [///dependency.#artifact expected_artifact
diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux
index 1d8569413..0bce4febc 100644
--- a/stdlib/source/test/aedifex/hash.lux
+++ b/stdlib/source/test/aedifex/hash.lux
@@ -45,7 +45,7 @@
                            ))
                (_.for [/.data]
                       (all _.and
-                           (~~ (with_template [<hash> <constructor> <exception>]
+                           (,, (with_template [<hash> <constructor> <exception>]
                                  [(do random.monad
                                     [expected (..random <hash>)]
                                     (_.coverage [<hash> <constructor> <exception>]
@@ -67,7 +67,7 @@
                                  [/.sha-1 /.as_sha-1 /.not_a_sha-1]
                                  [/.md5 /.as_md5 /.not_a_md5]
                                  ))))
-               (~~ (with_template [<codec> <hash>]
+               (,, (with_template [<codec> <hash>]
                      [(_.for [<codec>]
                              ($codec.spec /.equivalence <codec> (..random <hash>)))]
                      
@@ -76,7 +76,7 @@
                      ))
                (_.for [/.not_a_hash]
                       (all _.and
-                           (~~ (with_template [<codec> <hash>]
+                           (,, (with_template [<codec> <hash>]
                                  [(do random.monad
                                     [expected (..random <hash>)]
                                     (_.coverage [<codec>]
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index 25471077d..2a10e763e 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -41,7 +41,7 @@
                  (_.for [/.equivalence]
                         ($equivalence.spec /.equivalence ..random))
                  
-                 (~~ (with_template [<command>]
+                 (,, (with_template [<command>]
                        [(_.coverage [/.default_java /.default_js /.default_python /.default_lua /.default_ruby]
                           (let [listing (|> (list /.default_java /.default_js /.default_python /.default_lua /.default_ruby)
                                             (list#each (the /.#program)))
-- 
cgit v1.2.3