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-cl/source/program.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 0e0db5007..861024d0d 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -152,7 +152,7 @@
   "[1]::[0]"
   (getValue [] java/lang/Object))
 
-(template [<name>]
+(with_template [<name>]
   [(exception: (<name> [object java/lang/Object])
      (exception.report
       "Class" (java/lang/Object::toString (java/lang/Object::getClass object))
@@ -172,7 +172,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.is <type> sub_value)
                                         {.#Some sub_value}
                                         (`` (|> sub_value (~~ (template.splice <then>))))
@@ -204,7 +204,7 @@
                (as java/lang/Long)
                java/lang/Number::intValue))
 
-          (~~ (template [<name>]
+          (~~ (with_template [<name>]
                 [(org/armedbear/lisp/LispObject
                   [] (<name> self [idx int])
                   org/armedbear/lisp/LispObject
@@ -254,7 +254,7 @@
 
 (def: (read host_object)
   (Reader org/armedbear/lisp/LispObject)
-  (`` (<| (~~ (template [<class> <post_processing>]
+  (`` (<| (~~ (with_template [<class> <post_processing>]
                 [(case (ffi.is <class> host_object)
                    {.#Some host_object}
                    (`` (|> host_object (~~ (template.splice <post_processing>))))
-- 
cgit v1.2.3