From b48ea68a83d01903554c7696c77eedaaf1035680 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 12 Jun 2022 00:38:20 -0400 Subject: De-sigil-ification: suffix : [Part 3] --- lux-r/source/program.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lux-r') diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 1a61a8545..2d4079f48 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -171,7 +171,7 @@ (new []) (getScriptEngine [] org/renjin/script/RenjinScriptEngine)) -(template [] +(with_template [] [(exception: ( [object java/lang/Object]) (exception.report "Class" (java/lang/Object::toString (java/lang/Object::getClass object)) @@ -195,7 +195,7 @@ (let [... to_sub (is (-> Any org/armedbear/lisp/LispObject) ... (function (_ sub_value) ... (let [sub_value (as java/lang/Object sub_value)] - ... (`` (<| (~~ (template [ ] + ... (`` (<| (~~ (with_template [ ] ... [(case (ffi.as sub_value) ... {.#Some sub_value} ... (`` (|> sub_value (~~ (template.splice )))) @@ -263,7 +263,7 @@ ... ("lux io log" (..%%code )) _jvm_this)) - (~~ (template [ ] + (~~ (with_template [ ] [(org/renjin/sexp/ListVector ... org/renjin/sexp/AbstractSEXP ... org/renjin/sexp/SEXP @@ -434,7 +434,7 @@ (..read_tuple read host_object)) {.#None}) - (~~ (template [ ] + (~~ (with_template [ ] [(case (ffi.as host_object) {.#Some host_object} (`` (|> host_object (~~ (template.splice )))) -- cgit v1.2.3