diff options
| author | Eduardo Julian | 2022-10-01 16:33:20 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-10-01 16:33:20 -0400 |
| commit | 53704218a3705132dbe807a8ef54f938809f84d5 (patch) | |
| tree | 44d03d90f4f6f8055fba226e23755edbb3c55318 /lux-lua/source | |
| parent | 1f4557bf0d904231b3b8d2b2bf73c35e9caead48 (diff) | |
New format for extensions [part 0]
Diffstat (limited to 'lux-lua/source')
| -rw-r--r-- | lux-lua/source/program.lux | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 8a88b7d79..fb07a4fff 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -798,8 +798,8 @@ )) (as java/lang/Object it)))) - (def (extender [state_context executor] phase_wrapper) - (-> Baggage (-> phase.Wrapper Extender)) + (def (extender [state_context executor]) + (-> Baggage Extender) ... TODO: Stop relying on coercions ASAP. (<| (as Extender) (function (@self handler)) @@ -836,14 +836,11 @@ (-> phase.Wrapper Extender) (as_expected handler)))) -(def (phase_wrapper archive) - (-> Archive (runtime.Operation phase.Wrapper)) - (do phase.monad - [] - (in (as phase.Wrapper - (for @.old (..lua_function ..to_host) - @.jvm (..lua_function ..to_host) - @.lua (|>>)))))) +(def phase_wrapper + phase.Wrapper + (for @.old (..lua_function ..to_host) + @.jvm (..lua_function ..to_host) + @.lua (|>>))) (with_expansions [<jvm> (def platform (IO [Baggage (Platform [Register _.Label] _.Expression _.Statement)]) @@ -901,7 +898,7 @@ analysis.bundle (io.io platform) generation.bundle - (function.constant extension/bundle.empty) + extension/bundle.empty ..lux_program (reference.constant lua/reference.system) [(type_literal [Register _.Label]) |