aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/host.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/host.jvm.lux9
1 files changed, 9 insertions, 0 deletions
diff --git a/new-luxc/source/luxc/host.jvm.lux b/new-luxc/source/luxc/host.jvm.lux
index 75cfbec0c..55c899143 100644
--- a/new-luxc/source/luxc/host.jvm.lux
+++ b/new-luxc/source/luxc/host.jvm.lux
@@ -85,3 +85,12 @@
{#&&common;loader (memory-class-loader store)
#&&common;store store
#&&common;function-class #;None})))
+
+(def: #export class-loader
+ (Lux ClassLoader)
+ (function [compiler]
+ (#R;Success [compiler
+ (|> compiler
+ (get@ #;host)
+ (:! &&common;Host)
+ (get@ #&&common;loader))])))