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