aboutsummaryrefslogtreecommitdiff
path: root/lux-cl
diff options
context:
space:
mode:
authorEduardo Julian2022-07-02 05:38:27 -0400
committerEduardo Julian2022-07-02 05:38:27 -0400
commitb96beb587c11fcfbce86ce2d62351600cf6cad1b (patch)
treec9a558ab1391ac97cb11e8777ea78299f1ab5555 /lux-cl
parent104130efba46a875eba566384578f8aa8593ad37 (diff)
More traditional names for unquoting macros.
Diffstat (limited to 'lux-cl')
-rw-r--r--lux-cl/source/program.lux10
1 files changed, 5 insertions, 5 deletions
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 [<type> <then>]
+ (`` (<| (,, (with_template [<type> <then>]
[(case (ffi.is <type> sub_value)
{.#Some sub_value}
- (`` (|> sub_value (~~ (template.splice <then>))))
+ (`` (|> sub_value (,, (template.splice <then>))))
{.#None})]
@@ -204,7 +204,7 @@
(as java/lang/Long)
java/lang/Number::intValue))
- (~~ (with_template [<name>]
+ (,, (with_template [<name>]
[(org/armedbear/lisp/LispObject
[] (<name> self [idx int])
org/armedbear/lisp/LispObject
@@ -254,10 +254,10 @@
(def (read host_object)
(Reader org/armedbear/lisp/LispObject)
- (`` (<| (~~ (with_template [<class> <post_processing>]
+ (`` (<| (,, (with_template [<class> <post_processing>]
[(case (ffi.is <class> host_object)
{.#Some host_object}
- (`` (|> host_object (~~ (template.splice <post_processing>))))
+ (`` (|> host_object (,, (template.splice <post_processing>))))
{.#None})]