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/parser/lux/data/binary.lux | 2 +-
 stdlib/source/parser/lux/meta/type.lux   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/parser')

diff --git a/stdlib/source/parser/lux/data/binary.lux b/stdlib/source/parser/lux/data/binary.lux
index 00c3d3656..5cb5e0e93 100644
--- a/stdlib/source/parser/lux/data/binary.lux
+++ b/stdlib/source/parser/lux/data/binary.lux
@@ -140,7 +140,7 @@
        (with_expansions [<case>+' (template.spliced <case>+)]
          (case flag
            (^.with_template [<number> <tag> <parser>]
-             [<number> (`` (at ! each (|>> {(~~ (template.spliced <tag>))}) <parser>))])
+             [<number> (`` (at ! each (|>> {(,, (template.spliced <tag>))}) <parser>))])
            (<case>+')
            
            _ (//.lifted (exception.except ..invalid_tag [(template.amount [<case>+]) flag])))))]))
diff --git a/stdlib/source/parser/lux/meta/type.lux b/stdlib/source/parser/lux/meta/type.lux
index 46f89fec7..f1acda29d 100644
--- a/stdlib/source/parser/lux/meta/type.lux
+++ b/stdlib/source/parser/lux/meta/type.lux
@@ -201,7 +201,7 @@
                                   (let [partialI (|> current_arg (n.* 2) (n.+ funcI))
                                         partial_varI (++ partialI)
                                         partial_varL (label partial_varI)
-                                        partialC (` ((~ funcL) (~+ (|> (list.indices num_args)
+                                        partialC (` ((, funcL) (,* (|> (list.indices num_args)
                                                                        (list#each (|>> (n.* 2) ++ (n.+ funcI) label))
                                                                        list.reversed))))]
                                     (again (++ current_arg)
@@ -349,4 +349,4 @@
             (|> allT
                 (monad.each ! (function.constant ..parameter))
                 (local allT)))]
-    (in (` ((~+ allC))))))
+    (in (` ((,* allC))))))
-- 
cgit v1.2.3