diff options
Diffstat (limited to '')
| -rw-r--r-- | lux-r/source/program.lux | 10 | ||||
| -rw-r--r-- | lux-ruby/source/program.lux | 6 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 7b379d027..376b2a598 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -194,10 +194,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.as <type> sub_value) ... {.#Some sub_value} - ... (`` (|> sub_value (~~ (template.splice <then>)))) + ... (`` (|> sub_value (,, (template.splice <then>)))) ... {.#None})] ... [[java/lang/Object] [host_value]] @@ -262,7 +262,7 @@ ... ("lux io log" (..%%code <call>)) _jvm_this)) - (~~ (with_template [<call> <output>] + (,, (with_template [<call> <output>] [(org/renjin/sexp/ListVector ... org/renjin/sexp/AbstractSEXP ... org/renjin/sexp/SEXP @@ -433,10 +433,10 @@ (..read_tuple read host_object)) {.#None}) - (~~ (with_template [<class> <post_processing>] + (,, (with_template [<class> <post_processing>] [(case (ffi.as <class> host_object) {.#Some host_object} - (`` (|> host_object (~~ (template.splice <post_processing>)))) + (`` (|> host_object (,, (template.splice <post_processing>)))) {.#None})] diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index b145ca59d..932e48f80 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -286,10 +286,10 @@ Translator (`` (<| (if (ffi.null? host_object) (exception.except ..nil_has_no_lux_representation [])) - (~~ (with_template [<class> <post_processing>] + (,, (with_template [<class> <post_processing>] [(case (ffi.as <class> host_object) {.#Some typed_object} - (`` (|> typed_object (~~ (template.spliced <post_processing>)))) + (`` (|> typed_object (,, (template.spliced <post_processing>)))) _)] @@ -326,7 +326,7 @@ (-> (Array java/lang/Object) org/jruby/runtime/builtin/IRubyObject) (-> java/lang/Object org/jruby/runtime/builtin/IRubyObject)) (function (again value) - (`` (<| (~~ (with_template [<when> <then>] + (`` (<| (,, (with_template [<when> <then>] [(case (ffi.as <when> value) {.#Some value} (|> value |