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.lux13
1 files changed, 7 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/host.jvm.lux b/new-luxc/source/luxc/host.jvm.lux
index e22ab4fd1..75cfbec0c 100644
--- a/new-luxc/source/luxc/host.jvm.lux
+++ b/new-luxc/source/luxc/host.jvm.lux
@@ -78,9 +78,10 @@
#;None
(error! (format "Class not found: " class-name))))))
-(def: #export (init-host _)
- (-> Top &&common;Host)
- (let [store (: &&common;Class-Store
- (A;atom (d;new text;Hash<Text>)))]
- {#&&common;loader (memory-class-loader store)
- #&&common;store store}))
+(def: #export init-host
+ (io;IO &&common;Host)
+ (io;io (let [store (: &&common;Class-Store
+ (A;atom (d;new text;Hash<Text>)))]
+ {#&&common;loader (memory-class-loader store)
+ #&&common;store store
+ #&&common;function-class #;None})))