From 29228f5c601d8d5d42aa5352566a609bf4259d11 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 4 Oct 2017 22:02:41 -0400
Subject: - WIP: JVM host procedure analysis.

---
 new-luxc/source/luxc/host.jvm.lux | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'new-luxc/source/luxc/host.jvm.lux')

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))])))
-- 
cgit v1.2.3