diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/host.jvm.lux | 13 |
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}))) |