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/hash.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

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