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-cl/source/program.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lux-cl/source/program.lux')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index ea7d96647..1d145eded 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -172,10 +172,10 @@
   (let [to_sub (is (-> Any org/armedbear/lisp/LispObject)
                    (function (_ sub_value)
                      (let [sub_value (as java/lang/Object sub_value)]
-                       (`` (<| (~~ (with_template [<type> <then>]
+                       (`` (<| (,, (with_template [<type> <then>]
                                      [(case (ffi.is <type> sub_value)
                                         {.#Some sub_value}
-                                        (`` (|> sub_value (~~ (template.splice <then>))))
+                                        (`` (|> sub_value (,, (template.splice <then>))))
 
                                         {.#None})]
 
@@ -204,7 +204,7 @@
                (as java/lang/Long)
                java/lang/Number::intValue))
 
-          (~~ (with_template [<name>]
+          (,, (with_template [<name>]
                 [(org/armedbear/lisp/LispObject
                   [] (<name> self [idx int])
                   org/armedbear/lisp/LispObject
@@ -254,10 +254,10 @@
 
 (def (read host_object)
   (Reader org/armedbear/lisp/LispObject)
-  (`` (<| (~~ (with_template [<class> <post_processing>]
+  (`` (<| (,, (with_template [<class> <post_processing>]
                 [(case (ffi.is <class> host_object)
                    {.#Some host_object}
-                   (`` (|> host_object (~~ (template.splice <post_processing>))))
+                   (`` (|> host_object (,, (template.splice <post_processing>))))
 
                    {.#None})]
 
-- 
cgit v1.2.3