From b96beb587c11fcfbce86ce2d62351600cf6cad1b Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 2 Jul 2022 05:38:27 -0400 Subject: More traditional names for unquoting macros. --- lux-cl/source/program.lux | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lux-cl') diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux index ea7d96647..1d145eded 100644 --- a/lux-cl/source/program.lux +++ b/lux-cl/source/program.lux @@ -172,10 +172,10 @@ (let [to_sub (is (-> Any org/armedbear/lisp/LispObject) (function (_ sub_value) (let [sub_value (as java/lang/Object sub_value)] - (`` (<| (~~ (with_template [ ] + (`` (<| (,, (with_template [ ] [(case (ffi.is sub_value) {.#Some sub_value} - (`` (|> sub_value (~~ (template.splice )))) + (`` (|> sub_value (,, (template.splice )))) {.#None})] @@ -204,7 +204,7 @@ (as java/lang/Long) java/lang/Number::intValue)) - (~~ (with_template [] + (,, (with_template [] [(org/armedbear/lisp/LispObject [] ( self [idx int]) org/armedbear/lisp/LispObject @@ -254,10 +254,10 @@ (def (read host_object) (Reader org/armedbear/lisp/LispObject) - (`` (<| (~~ (with_template [ ] + (`` (<| (,, (with_template [ ] [(case (ffi.is host_object) {.#Some host_object} - (`` (|> host_object (~~ (template.splice )))) + (`` (|> host_object (,, (template.splice )))) {.#None})] -- cgit v1.2.3