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

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

diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux
index 7b379d027..376b2a598 100644
--- a/lux-r/source/program.lux
+++ b/lux-r/source/program.lux
@@ -194,10 +194,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.as <type> sub_value)
         ...                                {.#Some sub_value}
-        ...                                (`` (|> sub_value (~~ (template.splice <then>))))
+        ...                                (`` (|> sub_value (,, (template.splice <then>))))
         ...                                {.#None})]
 
         ...                             [[java/lang/Object] [host_value]]
@@ -262,7 +262,7 @@
               ... ("lux io log" (..%%code <call>))
               _jvm_this))
            
-           (~~ (with_template [<call> <output>]
+           (,, (with_template [<call> <output>]
                  [(org/renjin/sexp/ListVector
                    ... org/renjin/sexp/AbstractSEXP
                    ... org/renjin/sexp/SEXP
@@ -433,10 +433,10 @@
                   (..read_tuple read host_object))
 
               {.#None})
-            (~~ (with_template [<class> <post_processing>]
+            (,, (with_template [<class> <post_processing>]
                   [(case (ffi.as <class> host_object)
                      {.#Some host_object}
-                     (`` (|> host_object (~~ (template.splice <post_processing>))))
+                     (`` (|> host_object (,, (template.splice <post_processing>))))
 
                      {.#None})]
 
-- 
cgit v1.2.3