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 [<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>))))
-- 
cgit v1.2.3