aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
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-scheme
parent104130efba46a875eba566384578f8aa8593ad37 (diff)
More traditional names for unquoting macros.
Diffstat (limited to 'lux-scheme')
-rw-r--r--lux-scheme/source/program.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 581145301..da6c1a943 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -163,7 +163,7 @@
[(ffi.interface <name>
(getValue [] java/lang/Object))
- (`` (ffi.import (~~ (template.symbol ["program/" <name>]))
+ (`` (ffi.import (,, (template.symbol ["program/" <name>]))
"[1]::[0]"
(getValue [] java/lang/Object)))]
@@ -301,7 +301,7 @@
(def (read host_object)
(Reader java/lang/Object)
- (`` (<| (~~ (with_template [<class>]
+ (`` (<| (,, (with_template [<class>]
[(case (ffi.as <class> host_object)
{.#Some host_object}
{try.#Success host_object}
@@ -311,7 +311,7 @@
[java/lang/Boolean] [java/lang/Long] [java/lang/Double] [java/lang/String]
[gnu/mapping/Procedure] [gnu/lists/U8Vector]
))
- (~~ (with_template [<class> <processing>]
+ (,, (with_template [<class> <processing>]
[(case (ffi.as <class> host_object)
{.#Some host_object}
{try.#Success (<| <processing> host_object)}