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') 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 [ ] + ... (`` (<| (,, (with_template [ ] ... [(case (ffi.as sub_value) ... {.#Some sub_value} - ... (`` (|> sub_value (~~ (template.splice )))) + ... (`` (|> sub_value (,, (template.splice )))) ... {.#None})] ... [[java/lang/Object] [host_value]] @@ -262,7 +262,7 @@ ... ("lux io log" (..%%code )) _jvm_this)) - (~~ (with_template [ ] + (,, (with_template [ ] [(org/renjin/sexp/ListVector ... org/renjin/sexp/AbstractSEXP ... org/renjin/sexp/SEXP @@ -433,10 +433,10 @@ (..read_tuple read host_object)) {.#None}) - (~~ (with_template [ ] + (,, (with_template [ ] [(case (ffi.as host_object) {.#Some host_object} - (`` (|> host_object (~~ (template.splice )))) + (`` (|> host_object (,, (template.splice )))) {.#None})] -- cgit v1.2.3