diff options
| author | Eduardo Julian | 2019-06-14 23:38:53 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-14 23:38:53 -0400 |
| commit | 7ee04017ee2ef5376c566b00750fd521c0ecac42 (patch) | |
| tree | fd7bac69714079cfc9bd44bb56fad0321350f534 /stdlib/source/program | |
| parent | fcb8ce8340f4226a38d08f9e2f108e5ec0a95018 (diff) | |
Some fixes for the scripting languages.
+ Small optimizations for pattern-matching generation.
Diffstat (limited to '')
| -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 7d058ec0e..7db076162 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -78,9 +78,10 @@ (#error.Failure error) (:: io.monad wrap (#error.Failure error))))) -(def: #export (compiler expander platform generation-bundle host-statement-bundle program service) +(def: #export (compiler target expander platform generation-bundle host-statement-bundle program service) (All [anchor expression statement] - (-> Expander + (-> Text + Expander (IO (Platform IO anchor expression statement)) (generation.Bundle anchor expression statement) (statement.Bundle anchor expression statement) @@ -98,7 +99,7 @@ {(Platform IO anchor expression statement) platform} {(IO (Error (statement.State+ anchor expression statement))) - (platform.initialize expander platform generation-bundle host-statement-bundle program)}) + (platform.initialize target expander platform generation-bundle host-statement-bundle program)}) [archive state] (:share [anchor expression statement] {(Platform IO anchor expression statement) platform} |