aboutsummaryrefslogtreecommitdiff
path: root/lux-r/source
diff options
context:
space:
mode:
Diffstat (limited to 'lux-r/source')
-rw-r--r--lux-r/source/program.lux10
1 files changed, 5 insertions, 5 deletions
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})]