diff options
author | Eduardo Julian | 2017-09-19 19:24:09 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-09-19 19:24:09 -0400 |
commit | 3744a2212a89d4ab0f176350d2d2f90696235a40 (patch) | |
tree | 28e9da49deddcb8253fca2ae94f479ba64cb5536 /new-luxc/source/luxc/host.jvm.lux | |
parent | e6afba3e17f03ed0652d18a26d0f3c053a49e7a5 (diff) |
- Function generation.
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}))) |