aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/jvm/reflection.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/target/jvm/reflection.lux')
-rw-r--r--stdlib/source/lux/target/jvm/reflection.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/target/jvm/reflection.lux b/stdlib/source/lux/target/jvm/reflection.lux
index 07afd5df0..02c6b0ab0 100644
--- a/stdlib/source/lux/target/jvm/reflection.lux
+++ b/stdlib/source/lux/target/jvm/reflection.lux
@@ -145,7 +145,7 @@
(<| (case (ffi.check java/lang/Class reflection)
(#.Some class)
(let [class_name (|> class
- (:coerce (java/lang/Class java/lang/Object))
+ (:as (java/lang/Class java/lang/Object))
java/lang/Class::getName)]
(`` (if (or (~~ (template [<reflection>]
[(text\= (/reflection.reflection <reflection>)
@@ -174,7 +174,7 @@
array.to_list
(monad.map ! parameter))]
(wrap (/.class (|> raw
- (:coerce (java/lang/Class java/lang/Object))
+ (:as (java/lang/Class java/lang/Object))
java/lang/Class::getName)
paramsT)))
@@ -224,7 +224,7 @@
(<| (case (ffi.check java/lang/Class reflection)
(#.Some reflection)
(let [class_name (|> reflection
- (:coerce (java/lang/Class java/lang/Object))
+ (:as (java/lang/Class java/lang/Object))
java/lang/Class::getName)]
(`` (cond (~~ (template [<reflection> <type>]
[(text\= (/reflection.reflection <reflection>)
@@ -259,7 +259,7 @@
(case (ffi.check java/lang/Class reflection)
(#.Some class)
(let [class_name (|> reflection
- (:coerce (java/lang/Class java/lang/Object))
+ (:as (java/lang/Class java/lang/Object))
java/lang/Class::getName)]
(if (text\= (/reflection.reflection /reflection.void)
class_name)