aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEduardo Julian2018-05-07 21:57:45 -0400
committerEduardo Julian2018-05-07 21:57:45 -0400
commit10655fdd7bc6c88a417ec33237ae992d79cf3dd6 (patch)
tree971dd8807707d1ec333cb5602af0ed1fbcaa9d54
parent07c70ad15ba4a8c9b00773a0a14eade28fe06569 (diff)
- Went back to the old way of loading classes...
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/host.jvm.lux5
1 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/source/lux/host.jvm.lux b/stdlib/source/lux/host.jvm.lux
index fea1a108e..2315ffd2c 100644
--- a/stdlib/source/lux/host.jvm.lux
+++ b/stdlib/source/lux/host.jvm.lux
@@ -1840,9 +1840,8 @@
("jvm invokevirtual:java.lang.Class:isInterface:" class))
(def: (load-class class-name)
- (-> Text (Either Text (primitive "java.lang.Class" [(Ex [a] a)])))
- (let [system-class-loader ("jvm invokestatic:java.lang.ClassLoader:getSystemClassLoader:")]
- (try ("jvm invokestatic:java.lang.Class:forName:java.lang.String,boolean,java.lang.ClassLoader" class-name false system-class-loader))))
+ (-> Text (Either Text (primitive "java.lang.Class" [Top])))
+ (try ("jvm invokestatic:java.lang.Class:forName:java.lang.String" class-name)))
(def: (class-kind [class-name _])
(-> Class-Declaration (Meta Class-Kind))