diff options
| author | Eduardo Julian | 2019-06-06 22:44:00 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-06 22:44:00 -0400 |
| commit | c218bc693aa3703fee666c3ca1c068201c07d2a9 (patch) | |
| tree | 5e5290284798eb9a7497eeda66fdd2660011a7dd /stdlib/source/program/compositor.lux | |
| parent | b7f62d92c3ed9dcd0d2d48d680798114ad64c9df (diff) | |
WIP: Class definition.
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index c39544019..7d058ec0e 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -78,11 +78,12 @@ (#error.Failure error) (:: io.monad wrap (#error.Failure error))))) -(def: #export (compiler expander platform bundle program service) +(def: #export (compiler expander platform generation-bundle host-statement-bundle program service) (All [anchor expression statement] (-> Expander (IO (Platform IO anchor expression statement)) (generation.Bundle anchor expression statement) + (statement.Bundle anchor expression statement) (-> expression statement) Service (IO Any))) @@ -97,7 +98,7 @@ {(Platform IO anchor expression statement) platform} {(IO (Error (statement.State+ anchor expression statement))) - (platform.initialize expander platform bundle program)}) + (platform.initialize expander platform generation-bundle host-statement-bundle program)}) [archive state] (:share [anchor expression statement] {(Platform IO anchor expression statement) platform} @@ -112,5 +113,5 @@ ## TODO: Fix the interpreter... (undefined) ## (<| (or-crash! "Interpretation failed:") - ## (interpreter.run (error.with io.monad) console platform configuration bundle)) + ## (interpreter.run (error.with io.monad) console platform configuration generation-bundle)) ))) |