diff options
author | Eduardo Julian | 2017-10-04 22:02:41 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-10-04 22:02:41 -0400 |
commit | 29228f5c601d8d5d42aa5352566a609bf4259d11 (patch) | |
tree | 4bd9ee826f07c131e921eaf8e31d9efe309b9c6f /new-luxc/source/luxc/host.jvm.lux | |
parent | 36b89b978e8bc6f084e67a11207488ea2fe25c72 (diff) |
- WIP: JVM host procedure analysis.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/host.jvm.lux | 9 |
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))]))) |