diff options
| author | Eduardo Julian | 2019-10-15 00:50:03 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-10-15 00:50:03 -0400 |
| commit | 2b5351eb4624ce3c3ada994caaaea77c9d397eb8 (patch) | |
| tree | e886dc45f96fcaa21687747dd6481fed1ca1c769 /stdlib/source/program | |
| parent | 7d2607a34183662bb640644888fb52281a2d3ab4 (diff) | |
Compiler extensions have been tested to work.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index b9b2995ad..31f018081 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -30,6 +30,7 @@ ["." directive] ["." phase [macro (#+ Expander)] + [extension (#+ Extender)] ["." generation]] [default ["." platform (#+ Platform)] @@ -79,7 +80,9 @@ (#try.Failure error) (:: io.monad wrap (#try.Failure error))))) -(def: #export (compiler target partial-host-extension expander host-analysis platform generation-bundle host-directive-bundle program service +(def: #export (compiler target partial-host-extension + expander host-analysis platform generation-bundle host-directive-bundle program extender + service packager,package) (All [anchor expression directive] (-> Text @@ -90,6 +93,7 @@ (generation.Bundle anchor expression directive) (directive.Bundle anchor expression directive) (-> expression directive) + Extender Service [(-> (generation.Output directive) Binary) Path] (IO Any))) @@ -104,7 +108,7 @@ {(Platform IO anchor expression directive) platform} {(IO (Try (directive.State+ anchor expression directive))) - (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program)}) + (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program extender)}) [archive state] (:share [anchor expression directive] {(Platform IO anchor expression directive) platform} |