From 3744a2212a89d4ab0f176350d2d2f90696235a40 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 19 Sep 2017 19:24:09 -0400
Subject: - Function generation.

---
 new-luxc/source/luxc/host.jvm.lux | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

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