aboutsummaryrefslogtreecommitdiff
path: root/lux-r
diff options
context:
space:
mode:
authorEduardo Julian2022-06-12 00:38:20 -0400
committerEduardo Julian2022-06-12 00:38:20 -0400
commitb48ea68a83d01903554c7696c77eedaaf1035680 (patch)
treec342d8094c3158de16526f874ca9624418cd2dd2 /lux-r
parent7abf2d0ac55c229a8793bbff31f132596ffcb275 (diff)
De-sigil-ification: suffix : [Part 3]
Diffstat (limited to 'lux-r')
-rw-r--r--lux-r/source/program.lux8
1 files changed, 4 insertions, 4 deletions
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 [<name>]
+(with_template [<name>]
[(exception: (<name> [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 [<type> <then>]
+ ... (`` (<| (~~ (with_template [<type> <then>]
... [(case (ffi.as <type> sub_value)
... {.#Some sub_value}
... (`` (|> sub_value (~~ (template.splice <then>))))
@@ -263,7 +263,7 @@
... ("lux io log" (..%%code <call>))
_jvm_this))
- (~~ (template [<call> <output>]
+ (~~ (with_template [<call> <output>]
[(org/renjin/sexp/ListVector
... org/renjin/sexp/AbstractSEXP
... org/renjin/sexp/SEXP
@@ -434,7 +434,7 @@
(..read_tuple read host_object))
{.#None})
- (~~ (template [<class> <post_processing>]
+ (~~ (with_template [<class> <post_processing>]
[(case (ffi.as <class> host_object)
{.#Some host_object}
(`` (|> host_object (~~ (template.splice <post_processing>))))