diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/extension.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/extension.lux b/stdlib/source/library/lux/extension.lux index 23be093ac..add1ec871 100644 --- a/stdlib/source/library/lux/extension.lux +++ b/stdlib/source/library/lux/extension.lux @@ -27,7 +27,7 @@ (-> Code (Parser Input)) ($_ <>.and <c>.local_identifier - (<>\wrap default))) + (<>\in default))) (def: complex (Parser Input) @@ -70,17 +70,17 @@ g!phase (code.local_identifier phase) g!archive (code.local_identifier archive)] (with_gensyms [g!handler g!inputs g!error] - (wrap (list (` (<extension> (~ name) - (.function ((~ g!handler) (~ g!name) (~ g!phase) (~ g!archive) (~ g!inputs)) - (.case ((~! <run>) (~ g!parser) (~ g!inputs)) - (#.Right [(~+ (list\map (|>> product.left - code.local_identifier) - inputs))]) - (~ body) + (in (list (` (<extension> (~ name) + (.function ((~ g!handler) (~ g!name) (~ g!phase) (~ g!archive) (~ g!inputs)) + (.case ((~! <run>) (~ g!parser) (~ g!inputs)) + (#.Right [(~+ (list\map (|>> product.left + code.local_identifier) + inputs))]) + (~ body) - (#.Left (~ g!error)) - ((~! phase.failure) (~ g!error))) - ))))))))] + (#.Left (~ g!error)) + ((~! phase.failure) (~ g!error))) + ))))))))] [<c>.any <c>.end! <c>.and <c>.run "lux def analysis" analysis:] [<a>.any <a>.end! <a>.and <a>.run "lux def synthesis" synthesis:] |