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 [] +(with_template [] [(exception: ( [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 [ ] + (`` (<| (~~ (with_template [ ] [(case (ffi.is sub_value) {.#Some sub_value} (`` (|> sub_value (~~ (template.splice )))) @@ -204,7 +204,7 @@ (as java/lang/Long) java/lang/Number::intValue)) - (~~ (template [] + (~~ (with_template [] [(org/armedbear/lisp/LispObject [] ( self [idx int]) org/armedbear/lisp/LispObject @@ -254,7 +254,7 @@ (def: (read host_object) (Reader org/armedbear/lisp/LispObject) - (`` (<| (~~ (template [ ] + (`` (<| (~~ (with_template [ ] [(case (ffi.is host_object) {.#Some host_object} (`` (|> host_object (~~ (template.splice )))) -- cgit v1.2.3