diff options
Diffstat (limited to 'stdlib/source/library/lux/target/jvm/reflection.lux')
| -rw-r--r-- | stdlib/source/library/lux/target/jvm/reflection.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 6c4467ae7..bad48f5ee 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -11,10 +11,10 @@ [parser ["<t>" text]]] [data - ["[0]" text ("[1]\[0]" equivalence) + ["[0]" text ("[1]#[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" list ("[1]#[0]" mix functor)] ["[0]" array] ["[0]" dictionary]]] [math @@ -151,7 +151,7 @@ (:as (java/lang/Class java/lang/Object)) java/lang/Class::getName)] (`` (if (or (~~ (template [<reflection>] - [(text\= (/reflection.reflection <reflection>) + [(text#= (/reflection.reflection <reflection>) class_name)] [/reflection.boolean] @@ -208,7 +208,7 @@ {try.#Success /.wildcard} _ - (\ try.monad each <kind> (..class' parameter bound)))]) + (# try.monad each <kind> (..class' parameter bound)))]) ([[_ {.#Some bound}] /.upper] [[{.#Some bound} _] /.lower]) @@ -230,7 +230,7 @@ (:as (java/lang/Class java/lang/Object)) java/lang/Class::getName)] (`` (cond (~~ (template [<reflection> <type>] - [(text\= (/reflection.reflection <reflection>) + [(text#= (/reflection.reflection <reflection>) class_name) {try.#Success <type>}] @@ -251,7 +251,7 @@ (|> reflection java/lang/reflect/GenericArrayType::getGenericComponentType type - (\ try.monad each /.array)) + (# try.monad each /.array)) _) ... else (..parameter reflection))) @@ -264,7 +264,7 @@ (let [class_name (|> reflection (:as (java/lang/Class java/lang/Object)) java/lang/Class::getName)] - (if (text\= (/reflection.reflection /reflection.void) + (if (text#= (/reflection.reflection /reflection.void) class_name) {try.#Success /.void} <else>)) @@ -300,12 +300,12 @@ class_params (array.list {.#None} (java/lang/Class::getTypeParameters class)) num_class_params (list.size class_params) num_type_params (list.size params)] - (if (text\= class_name name) + (if (text#= class_name name) (if (n.= num_class_params num_type_params) (|> params - (list.zipped/2 (list\each (|>> java/lang/reflect/TypeVariable::getName) + (list.zipped/2 (list#each (|>> java/lang/reflect/TypeVariable::getName) class_params)) - (list\mix (function (_ [name paramT] mapping) + (list#mix (function (_ [name paramT] mapping) (dictionary.has name paramT mapping)) /lux.fresh) {try.#Success}) @@ -375,7 +375,7 @@ <then?> (|> fieldJ java/lang/reflect/Field::getGenericType ..type - (\ ! each (|>> [(java/lang/reflect/Modifier::isFinal modifiers) + (# ! each (|>> [(java/lang/reflect/Modifier::isFinal modifiers) (..deprecated? (java/lang/reflect/Field::getDeclaredAnnotations fieldJ))]))) <else?> (exception.except <exception> [field class]))))] |