diff options
| author | Eduardo Julian | 2022-10-21 14:37:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-10-21 14:37:09 -0400 |
| commit | 74e8954ee269aa5dea39f1e4e3c55e8d387384a8 (patch) | |
| tree | 2e29609e1c57a130c5a7851db67426bb9feebcbc /stdlib/source/library/lux/meta/extension.lux | |
| parent | 07d346632a6aff8ce2b66b39b818c298de48df5a (diff) | |
Clean-up after format change for extensions [part 2]
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/meta/extension.lux | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/meta/extension.lux b/stdlib/source/library/lux/meta/extension.lux index a713dd596..913acaec9 100644 --- a/stdlib/source/library/lux/meta/extension.lux +++ b/stdlib/source/library/lux/meta/extension.lux @@ -43,21 +43,19 @@ (with_template [<any> <end> <and> <result> <name> <extension_type> <handler_type>] [(def .public <name> - (syntax (_ [[handler extension phase archive inputs] (<c>.form (all <>.and - <c>.local - <c>.local - <c>.local - <c>.local - (<c>.tuple (<>.some <c>.any)))) + (syntax (_ [[handler phase archive inputs] (<c>.form (all <>.and + <c>.local + <c>.local + <c>.local + (<c>.tuple (<>.some <c>.any)))) body <c>.any]) (let [g!handler (code.local handler) - g!name (code.local extension) g!phase (code.local phase) g!archive (code.local archive)] (with_symbols [g!inputs g!error g!_] (in (list (` (<| (as <extension_type>) (is <handler_type>) - (.function ((, g!handler) (, g!name) (, g!phase) (, g!archive) (, g!inputs)) + (.function ((, g!handler) (, g!phase) (, g!archive) (, g!inputs)) (.when (<result> (monad.do <>.monad [(,* inputs) |