diff options
Diffstat (limited to 'stdlib/source/library/lux/target/jvm')
12 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux index 267705aa7..ca0c92f65 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -696,7 +696,7 @@ (-> Nat (Bytecode Any)) (with_expansions [<specials>' (template.spliced <specials>)] (`` (case local - (~~ (with_template [<case> <instruction> <registry>] + (,, (with_template [<case> <instruction> <registry>] [<case> (..bytecode $0 <size> <registry> <instruction> [])] <specials>')) @@ -736,7 +736,7 @@ (-> Nat (Bytecode Any)) (with_expansions [<specials>' (template.spliced <specials>)] (`` (case local - (~~ (with_template [<case> <instruction> <registry>] + (,, (with_template [<case> <instruction> <registry>] [<case> (..bytecode <size> $0 <registry> <instruction> [])] <specials>')) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux index 3b613b206..f9e9d4b07 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux @@ -487,7 +487,7 @@ (let [[estimator <arity>'] <arity>] [estimator (function (_ [<input_names>]) - (`` (<arity>' (hex <code>) (~~ (template.spliced <arity_inputs>)))))])))] + (`` (<arity>' (hex <code>) (,, (template.spliced <arity_inputs>)))))])))] <definitions>' ))] diff --git a/stdlib/source/library/lux/target/jvm/class.lux b/stdlib/source/library/lux/target/jvm/class.lux index d018f832f..bd9fdd41b 100644 --- a/stdlib/source/library/lux/target/jvm/class.lux +++ b/stdlib/source/library/lux/target/jvm/class.lux @@ -130,7 +130,7 @@ (def .public (format class) (Format Class) (`` (all binaryF#composite - (~~ (with_template [<format> <slot>] + (,, (with_template [<format> <slot>] [(<format> (the <slot> class))] [//magic.format #magic] @@ -140,7 +140,7 @@ [//modifier.format #modifier] [//index.format #this] [//index.format #super])) - (~~ (with_template [<format> <slot>] + (,, (with_template [<format> <slot>] [((binaryF.sequence_16 <format>) (the <slot> class))] [//index.format #interfaces] diff --git a/stdlib/source/library/lux/target/jvm/constant.lux b/stdlib/source/library/lux/target/jvm/constant.lux index ae57d805f..fbd207bdc 100644 --- a/stdlib/source/library/lux/target/jvm/constant.lux +++ b/stdlib/source/library/lux/target/jvm/constant.lux @@ -117,8 +117,8 @@ [(def <format_name> (Format <type>) (`` (|>> representation - (~~ (template.spliced <write>)) - (~~ (template.spliced <format>)))))] + (,, (template.spliced <write>)) + (,, (template.spliced <format>)))))] [integer_format Integer [] [binaryF.bits_32]] [float_format Float [java/lang/Float::floatToRawIntBits ffi.of_int .i64] [i32.i32 binaryF.bits_32]] diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux index 44cbaee15..e0561b457 100644 --- a/stdlib/source/library/lux/target/jvm/field.lux +++ b/stdlib/source/library/lux/target/jvm/field.lux @@ -52,7 +52,7 @@ (def .public (format field) (Format Field) (`` (all binaryF#composite - (~~ (with_template [<format> <slot>] + (,, (with_template [<format> <slot>] [(<format> (the <slot> field))] [modifier.format #modifier] diff --git a/stdlib/source/library/lux/target/jvm/method.lux b/stdlib/source/library/lux/target/jvm/method.lux index 7fe3c2d7b..3db1be9bc 100644 --- a/stdlib/source/library/lux/target/jvm/method.lux +++ b/stdlib/source/library/lux/target/jvm/method.lux @@ -101,7 +101,7 @@ (def .public (format field) (Format Method) (`` (all \\format#composite - (~~ (with_template [<format> <slot>] + (,, (with_template [<format> <slot>] [(<format> (the <slot> field))] [//modifier.format #modifier] diff --git a/stdlib/source/library/lux/target/jvm/modifier.lux b/stdlib/source/library/lux/target/jvm/modifier.lux index b12b167cc..b76d05904 100644 --- a/stdlib/source/library/lux/target/jvm/modifier.lux +++ b/stdlib/source/library/lux/target/jvm/modifier.lux @@ -85,9 +85,9 @@ (syntax (_ [ofT <code>.any options (<>.many <code>.any)]) (with_symbols [g!modifier g!code] - (in (list (` (with_template [(~ g!code) (~ g!modifier)] - [(def (~' .public) (~ g!modifier) - (..Modifier (~ ofT)) - ((~! ..modifier) ((~! number.hex) (~ g!code))))] + (in (list (` (with_template [(, g!code) (, g!modifier)] + [(def (,' .public) (, g!modifier) + (..Modifier (, ofT)) + ((,! ..modifier) ((,! number.hex) (, g!code))))] - (~+ options)))))))) + (,* options)))))))) diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 7a5bdebc0..cf38c5efa 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -134,7 +134,7 @@ (let [class_name (|> class (as (java/lang/Class java/lang/Object)) java/lang/Class::getName)] - (`` (if (or (~~ (with_template [<reflection>] + (`` (if (or (,, (with_template [<reflection>] [(text#= (/reflection.reflection <reflection>) class_name)] @@ -225,7 +225,7 @@ (let [class_name (|> reflection (as (java/lang/Class java/lang/Object)) java/lang/Class::getName)] - (`` (cond (~~ (with_template [<reflection> <type>] + (`` (cond (,, (with_template [<reflection> <type>] [(text#= (/reflection.reflection <reflection>) class_name) {try.#Success <type>}] diff --git a/stdlib/source/library/lux/target/jvm/type.lux b/stdlib/source/library/lux/target/jvm/type.lux index 9b90e6c28..f9944b0eb 100644 --- a/stdlib/source/library/lux/target/jvm/type.lux +++ b/stdlib/source/library/lux/target/jvm/type.lux @@ -167,7 +167,7 @@ (def .public (primitive? type) (-> (Type Value) (Either (Type Object) (Type Primitive))) - (if (`` (or (~~ (with_template [<type>] + (if (`` (or (,, (with_template [<type>] [(at ..equivalence = (is (Type Value) <type>) type)] [..boolean] @@ -184,7 +184,7 @@ (def .public (void? type) (-> (Type Return) (Either (Type Value) (Type Void))) - (if (`` (or (~~ (with_template [<type>] + (if (`` (or (,, (with_template [<type>] [(at ..equivalence = (is (Type Return) <type>) type)] [..void])))) diff --git a/stdlib/source/library/lux/target/jvm/type/category.lux b/stdlib/source/library/lux/target/jvm/type/category.lux index bbef2f241..ad293150e 100644 --- a/stdlib/source/library/lux/target/jvm/type/category.lux +++ b/stdlib/source/library/lux/target/jvm/type/category.lux @@ -26,7 +26,7 @@ [(with_expansions [<raw> (template.symbol [<child> "'"])] (primitive <raw> Any) (type .public <child> - (`` (<| Return' Value' (~~ (template.spliced <parents>)) <raw>))))] + (`` (<| Return' Value' (,, (template.spliced <parents>)) <raw>))))] [[] Primitive] [[Object' Parameter'] Var] diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index 724092721..10160204c 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -176,7 +176,7 @@ (|>> (<>#each (check#each (function (_ elementT) (case elementT {.#Primitive name {.#End}} - (if (`` (or (~~ (with_template [<reflection>] + (if (`` (or (,, (with_template [<reflection>] [(text#= (//reflection.reflection <reflection>) name)] [//reflection.boolean] diff --git a/stdlib/source/library/lux/target/jvm/type/reflection.lux b/stdlib/source/library/lux/target/jvm/type/reflection.lux index de151b35d..4ea86a811 100644 --- a/stdlib/source/library/lux/target/jvm/type/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/type/reflection.lux @@ -63,7 +63,7 @@ elementR (`` (cond (text.starts_with? //descriptor.array_prefix element') element' - (~~ (with_template [<primitive> <descriptor>] + (,, (with_template [<primitive> <descriptor>] [(at ..equivalence = <primitive> element) (//descriptor.descriptor <descriptor>)] |