aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--stdlib/source/lux/host.jvm.lux3
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/source/lux/host.jvm.lux b/stdlib/source/lux/host.jvm.lux
index 8bc565545..fea1a108e 100644
--- a/stdlib/source/lux/host.jvm.lux
+++ b/stdlib/source/lux/host.jvm.lux
@@ -1841,7 +1841,8 @@
(def: (load-class class-name)
(-> Text (Either Text (primitive "java.lang.Class" [(Ex [a] a)])))
- (try ("jvm invokestatic:java.lang.Class:forName:java.lang.String" class-name)))
+ (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))))
(def: (class-kind [class-name _])
(-> Class-Declaration (Meta Class-Kind))