diff options
| author | Eduardo Julian | 2022-06-04 02:28:47 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-04 02:28:47 -0400 |
| commit | 56d2835d35093e2d92c5e8a4371aa322b55e037b (patch) | |
| tree | 1c7949355baeae92e2f6e02f9104739ddb10ff73 | |
| parent | f2172051a91bbb2578918dc784a053a321849b63 (diff) | |
Extensible import syntax [Part 6]
530 files changed, 1355 insertions, 1286 deletions
diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux index f8c08a55c..aaa392ec3 100644 --- a/licentia/source/program/licentia.lux +++ b/licentia/source/program/licentia.lux @@ -21,7 +21,7 @@ [monad (.only do)]] [control [remember (.only to_do)] - ["[0]" io (.only IO) ("[1]#[0]" monad)] + ["[0]" io (.only IO) (.open: "[1]#[0]" monad)] ["[0]" maybe] ["[0]" try (.only Try)] ["[0]" parser diff --git a/licentia/source/program/licentia/document.lux b/licentia/source/program/licentia/document.lux index 61fd75cbe..3d5f41dc3 100644 --- a/licentia/source/program/licentia/document.lux +++ b/licentia/source/program/licentia/document.lux @@ -5,7 +5,7 @@ ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]]]]) + ["[0]" list (.open: "[1]#[0]" functor)]]]]]) (def: .public (quote text) (-> Text Text) diff --git a/licentia/source/program/licentia/license/black_list.lux b/licentia/source/program/licentia/license/black_list.lux index 85338d15b..a7442b368 100644 --- a/licentia/source/program/licentia/license/black_list.lux +++ b/licentia/source/program/licentia/license/black_list.lux @@ -2,12 +2,12 @@ [library [lux (.except) [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]]]] + ["[0]" list (.open: "[1]#[0]" functor)]]]]] ["[0]" // (.only Entity Black_List) ["_" term] [// diff --git a/licentia/source/program/licentia/license/distribution.lux b/licentia/source/program/licentia/license/distribution.lux index 396bdd4ec..5628e96f5 100644 --- a/licentia/source/program/licentia/license/distribution.lux +++ b/licentia/source/program/licentia/license/distribution.lux @@ -5,7 +5,7 @@ ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]]]] ["[0]" // (.only Distribution) ["_" term] [// diff --git a/licentia/source/program/licentia/license/notice.lux b/licentia/source/program/licentia/license/notice.lux index 009401794..61a661df3 100644 --- a/licentia/source/program/licentia/license/notice.lux +++ b/licentia/source/program/licentia/license/notice.lux @@ -5,7 +5,7 @@ ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]]]] diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux index fb0b655ec..43599e39b 100644 --- a/licentia/source/program/licentia/output.lux +++ b/licentia/source/program/licentia/output.lux @@ -2,13 +2,13 @@ [library [lux (.except Definition) [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" bit] ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]]]] [// ["[0]" license (.only Identification Termination diff --git a/licentia/source/test/licentia.lux b/licentia/source/test/licentia.lux index 86da654d9..0e40d75bb 100644 --- a/licentia/source/test/licentia.lux +++ b/licentia/source/test/licentia.lux @@ -7,16 +7,16 @@ [monad (.only do)]] [control ["[0]" io] - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random (.only Random)] [number - ["n" nat ("[1]#[0]" interval)]]]]] + ["n" nat (.open: "[1]#[0]" interval)]]]]] [\\program ["[0]" output] ["[0]" license (.only Identification diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux index 7604cdf29..83d5af3d9 100644 --- a/lux-cl/source/program.lux +++ b/lux-cl/source/program.lux @@ -14,7 +14,7 @@ [concurrency ["[0]" promise (.only Promise)]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] ["[0]" encoding]] [collection diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux index bfa3d61ec..c0c3cf99e 100644 --- a/lux-js/source/program.lux +++ b/lux-js/source/program.lux @@ -7,7 +7,7 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" monad)] + ["[0]" maybe (.open: "[1]#[0]" monad)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] ["[0]" io (.only IO io)] diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 3a77e7017..23fac65c1 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -15,13 +15,13 @@ [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro ["^" pattern] ["[0]" template] diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux index 0509d8b36..d3316e1c4 100644 --- a/lux-php/source/program.lux +++ b/lux-php/source/program.lux @@ -14,7 +14,7 @@ [concurrency ["[0]" promise (.only Promise)]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux index 9bf158197..9669f3fc9 100644 --- a/lux-python/source/program.lux +++ b/lux-python/source/program.lux @@ -10,20 +10,20 @@ [control ["[0]" pipe] ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" try (.only Try) (.open: "[1]#[0]" monad)] ["[0]" exception (.only exception:)] ["[0]" io (.only IO io)] ["[0]" function] [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] ["[0]" macro ["^" pattern] ["[0]" template] @@ -39,7 +39,7 @@ ["_" python]] [tool ["[0]" compiler - ["[0]" phase (.only Operation Phase) ("[1]#[0]" monad)] + ["[0]" phase (.only Operation Phase) (.open: "[1]#[0]" monad)] [reference [variable (.only Register)]] [language diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 66bf37030..71d8a6677 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -16,7 +16,7 @@ [parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index 3a596932b..69109108b 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -18,13 +18,13 @@ ["<>" parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] ["[0]" macro [syntax (.only syntax:)] ["^" pattern] @@ -41,7 +41,7 @@ ["_" ruby]] [tool ["[0]" compiler - ["[0]" phase (.only Operation Phase) ("[1]#[0]" monad)] + ["[0]" phase (.only Operation Phase) (.open: "[1]#[0]" monad)] [reference [variable (.only Register)]] [language diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index c38d9085c..b35fd049f 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -14,7 +14,7 @@ [concurrency ["[0]" promise (.only Promise)]]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] ["[0]" encoding]] [collection diff --git a/stdlib/source/documentation/lux.lux b/stdlib/source/documentation/lux.lux index 861c20087..8969f1dcd 100644 --- a/stdlib/source/documentation/lux.lux +++ b/stdlib/source/documentation/lux.lux @@ -599,11 +599,11 @@ ["M" monad (.except)]] [data maybe - ["[0]" name ("[1]#[0]" codec)]] + ["[0]" name (.open: "[1]#[0]" codec)]] [macro code]] [// - [type ("[0]" equivalence)]])]) + [type (.open: "[0]" equivalence)]])]) (documentation: /.# "Allows accessing the value of a implementation's member." diff --git a/stdlib/source/documentation/lux/math/logic.lux b/stdlib/source/documentation/lux/math/logic.lux index ea6a28f65..5b26c20b7 100644 --- a/stdlib/source/documentation/lux/math/logic.lux +++ b/stdlib/source/documentation/lux/math/logic.lux @@ -6,7 +6,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]]]] ["[0]" / ["[1][0]" continuous] ["[1][0]" fuzzy]]) diff --git a/stdlib/source/documentation/lux/world.lux b/stdlib/source/documentation/lux/world.lux index 051f8efff..afbd6447b 100644 --- a/stdlib/source/documentation/lux/world.lux +++ b/stdlib/source/documentation/lux/world.lux @@ -8,7 +8,7 @@ ["[0]" io]] [data [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]]]] ["[0]" / ["[1][0]" console] ["[1][0]" file] diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 633ec16ce..13ff44b45 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -2027,7 +2027,7 @@ (-> Symbol ($' Meta Symbol)) ({["" name] (do meta_monad - [module_name current_module_name] + [module_name ..current_module_name] (in [module_name name])) _ @@ -2559,6 +2559,40 @@ _ {#None})) +(def:' .private (inP it tokens) + (All (_ a) + (-> a (Parser a))) + {#Some [tokens it]}) + +(def:' .private (orP leftP rightP tokens) + (All (_ l r) + (-> (Parser l) + (Parser r) + (Parser (Or l r)))) + (case (leftP tokens) + {#Some [tokens left]} + {#Some [tokens {#Left left}]} + + _ + (case (rightP tokens) + {#Some [tokens right]} + {#Some [tokens {#Right right}]} + + _ + {#None}))) + +(def:' .private (eitherP leftP rightP tokens) + (All (_ a) + (-> (Parser a) + (Parser a) + (Parser a))) + (case (leftP tokens) + {#None} + (rightP tokens) + + it + it)) + (def:' .private (andP leftP rightP tokens) (All (_ l r) (-> (Parser l) @@ -2571,6 +2605,16 @@ .let [[tokens right] right]] (in [tokens [left right]]))) +(def:' .private (afterP leftP rightP tokens) + (All (_ l r) + (-> (Parser l) + (Parser r) + (Parser r))) + (do maybe_monad + [left (leftP tokens) + .let [[tokens left] left]] + (rightP tokens))) + (def:' .private (someP itP tokens) (All (_ a) (-> (Parser a) @@ -2585,6 +2629,17 @@ {#None} {#Some [tokens (list)]})) +(def:' .private (manyP itP tokens) + (All (_ a) + (-> (Parser a) + (Parser (List a)))) + (do maybe_monad + [it (itP tokens) + .let [[tokens head] it] + it (someP itP tokens) + .let [[tokens tail] it]] + (in [tokens (partial_list head tail)]))) + (def:' .private (maybeP itP tokens) (All (_ a) (-> (Parser a) @@ -2600,9 +2655,21 @@ (All (_ a) (-> (Parser a) (Parser a))) (case tokens - (pattern (partial_list [_ {#Tuple tuple}] tokens')) + (pattern (partial_list [_ {#Tuple input}] tokens')) (do maybe_monad - [it (parsed itP tuple)] + [it (parsed itP input)] + (in [tokens' it])) + + _ + {#None})) + +(def:' .private (formP itP tokens) + (All (_ a) + (-> (Parser a) (Parser a))) + (case tokens + (pattern (partial_list [_ {#Form input}] tokens')) + (do maybe_monad + [it (parsed itP input)] (in [tokens' it])) _ @@ -2618,10 +2685,10 @@ {#None})) (def:' .private (endP tokens) - (-> (List Code) (Maybe Any)) + (Parser Any) (case tokens (pattern (list)) - {#Some []} + {#Some [tokens []]} _ {#None})) @@ -2644,6 +2711,15 @@ _ {#None})) +(def:' .private (globalP tokens) + (-> (List Code) (Maybe [(List Code) Symbol])) + (case tokens + (pattern (partial_list [_ {#Symbol it}] tokens')) + {#Some [tokens' it]} + + _ + {#None})) + (template [<parser> <item_type> <item_parser>] [(def:' .private (<parser> tokens) (-> (List Code) (Maybe (List <item_type>))) @@ -3375,24 +3451,14 @@ {#None} (failure "Wrong syntax for type:"))) -(type: Referrals - (Variant - {#Nothing} - {#Referral [Symbol (List Code)]})) - -(type: Openings - [Text (List Text)]) - -(type: Refer - (Record - [#refer_defs Referrals - #refer_open (List Openings)])) +(type: Referral + [Symbol (List Code)]) (type: Importation (Record [#import_name Text #import_alias (Maybe Text) - #import_refer Refer])) + #import_referrals (List Referral)])) ... TODO: Allow asking the compiler for the name of the definition ... currently being defined. That name can then be fed into @@ -3411,47 +3477,19 @@ _ (failure (..wrong_syntax_error [..prelude_module "symbol"])))) -(def: (referrals_parser aliased? tokens) - (-> Bit (List Code) (Meta [Referrals (List Code)])) - (case tokens - (pattern (partial_list [_ {#Form (partial_list [_ {#Symbol macro}] defs)}] tokens')) - (meta#in [{#Referral [macro defs]} - tokens']) - - (pattern (list)) - (meta#in [(if aliased? - {#Referral [(symbol ..only) (list)]} - {#Nothing}) - (list)]) - - _ - (meta#in [{#Nothing} - tokens]))) +(def: referral_parser + (Parser Referral) + (formP (andP globalP (someP anyP)))) -(def: (openings_parser parts) - (-> (List Code) (Meta [(List Openings) (List Code)])) - (case parts - {#End} - (meta#in [{#End} {#End}]) - - (pattern (partial_list [_ {#Form (partial_list [_ {#Text prefix}] structs)}] parts')) - (do meta_monad - [structs' (monad#each meta_monad - (function (_ struct) - (case struct - [_ {#Symbol ["" struct_name]}] - (meta#in struct_name) - - _ - (failure "Expected all implementations of opening form to be symbols."))) - structs) - next+remainder (openings_parser parts')] - (let [[next remainder] next+remainder] - (meta#in [{#Item [prefix structs'] next} - remainder]))) - - _ - (meta#in [{#End} parts]))) +(def: (referrals_parser aliased?) + (-> Bit (Parser (List Referral))) + (all eitherP + (manyP referral_parser) + (afterP endP + (inP (if aliased? + (list [(symbol ..only) (list)]) + (list)))) + (inP (list)))) (def: (text#split_at' at x) (-> Nat Text [Text Text]) @@ -3582,20 +3620,22 @@ {#None} (..absolute_module_name nested? relative_root module_name)) - referral+extra (referrals_parser #0 extra) - .let [[referral extra] referral+extra] - openings+extra (openings_parser extra) - .let [[openings extra] openings+extra] + extra,referral (case (referrals_parser #0 extra) + {#Some extra,referral} + (in extra,referral) + + {#None} + (failure "")) + .let [[extra referral] extra,referral] sub_imports (imports_parser #1 absolute_module_name context extra)] - (in (case [referral openings] - [{#Nothing} {#End}] + (in (case referral + {#End} sub_imports _ (partial_list [#import_name absolute_module_name #import_alias {#None} - #import_refer [#refer_defs referral - #refer_open openings]] + #import_referrals referral] sub_imports)))) (pattern [_ {#Tuple (partial_list [_ {#Text alias}] [_ {#Symbol ["" module_name]}] extra)}]) @@ -3606,21 +3646,23 @@ {#None} (..absolute_module_name nested? relative_root module_name)) - referral+extra (referrals_parser #1 extra) - .let [[referral extra] referral+extra] - openings+extra (openings_parser extra) - .let [[openings extra] openings+extra - module_alias (..module_alias {#Item module_name context} alias)] + extra,referral (case (referrals_parser #1 extra) + {#Some extra,referral} + (in extra,referral) + + {#None} + (failure "")) + .let [[extra referral] extra,referral] + .let [module_alias (..module_alias {#Item module_name context} alias)] sub_imports (imports_parser #1 absolute_module_name {#Item module_alias context} extra)] - (in (case [referral openings] - [{#Nothing} {#End}] + (in (case referral + {#End} sub_imports _ (partial_list [#import_name absolute_module_name #import_alias {#Some module_alias} - #import_refer [#refer_defs referral - #refer_open openings]] + #import_referrals referral] sub_imports)))) ... Unrecognized syntax. @@ -3724,9 +3766,10 @@ (case (..parsed (all ..andP ..textP ..textP + ..textP (..someP ..localP)) tokens) - {.#Some [current_module imported_module actual]} + {.#Some [current_module imported_module import_alias actual]} (do meta_monad [expected (exported_definitions imported_module) _ (test_referrals current_module imported_module expected actual)] @@ -3751,9 +3794,10 @@ (case (..parsed (all ..andP ..textP ..textP + ..textP (..someP ..localP)) tokens) - {.#Some [current_module imported_module actual]} + {.#Some [current_module imported_module import_alias actual]} (do meta_monad [expected (exported_definitions imported_module) _ (test_referrals current_module imported_module expected actual)] @@ -4059,8 +4103,8 @@ _ (failure "Wrong syntax for the"))) -(def: (open_declaration alias tags my_tag_index [module short] source type) - (-> Text (List Symbol) Nat Symbol Code Type (Meta (List Code))) +(def: (open_declaration imported_module alias tags my_tag_index [module short] source type) + (-> Text Text (List Symbol) Nat Symbol Code Type (Meta (List Code))) (do meta_monad [output (record_slots type) g!_ (..generated_symbol "g!_") @@ -4079,44 +4123,100 @@ [decls' (monad#each meta_monad (is (-> [Nat Symbol Type] (Meta (List Code))) (function (_ [sub_tag_index sname stype]) - (open_declaration alias tags' sub_tag_index sname source+ stype))) + (open_declaration imported_module alias tags' sub_tag_index sname source+ stype))) (enumeration (zipped_2 tags' members')))] - (meta#in (list#conjoint decls'))) + (in (list#conjoint decls'))) _ - (meta#in (list (` ("lux def" (~ (local$ (..module_alias (list short) alias))) - (~ source+) - #0))))))) + (in (list (` ("lux def" (~ (local$ (..module_alias (list short imported_module) alias))) + (~ source+) + #0))))))) -(macro: .public (open: tokens) - (case tokens - (pattern (list [_ {#Text alias}] struct)) - (case struct - [_ {#Symbol struct_name}] +(def: (implementation_declarations imported_module alias implementation) + (-> Text Text Symbol (Meta (List Code))) + (do meta_monad + [interface (type_definition implementation) + output (record_slots interface)] + (case output + {#Some [slots terms]} (do meta_monad - [struct_type (type_definition struct_name) - output (record_slots struct_type) - .let [source (symbol$ struct_name)]] - (case output - {#Some [tags members]} - (do meta_monad - [decls' (monad#each meta_monad (is (-> [Nat Symbol Type] (Meta (List Code))) - (function (_ [tag_index sname stype]) - (open_declaration alias tags tag_index sname source stype))) - (enumeration (zipped_2 tags members)))] - (meta#in (list#conjoint decls'))) - - _ - (failure (text#composite "Can only 'open:' structs: " (type#encoded struct_type))))) + [.let [g!implementation (symbol$ implementation)] + declarations (monad#each meta_monad (is (-> [Nat Symbol Type] (Meta (List Code))) + (function (_ [index slot_label slot_type]) + (open_declaration imported_module alias slots index slot_label g!implementation slot_type))) + (enumeration (zipped_2 slots terms)))] + (in (list#conjoint declarations))) _ - (do meta_monad - [g!struct (..generated_symbol "struct")] - (meta#in (list (` ("lux def" (~ g!struct) (~ struct) #0)) - (` (..open: (~ (text$ alias)) (~ g!struct))))))) + (failure (all text#composite + "Can only 'open:' structs: " (symbol#encoded implementation) + " : " (type#encoded interface)))))) + +(def: (localized module global) + (-> Text Symbol Symbol) + (case global + ["" local] + [module local] _ - (failure "Wrong syntax for open:"))) + global)) + +(macro: .public (open: tokens) + (case (..parsed (all ..andP + (..maybeP (all ..andP + ..textP + ..textP + ..textP)) + ..textP + (..orP (..manyP ..globalP) + (..manyP ..anyP))) + tokens) + {.#Some [current_module,imported_module,import_alias alias implementations]} + (let [[current_module imported_module import_alias] + (case current_module,imported_module,import_alias + {#Some [current_module imported_module import_alias]} + [current_module imported_module import_alias] + + {#None} + ["" "" ""])] + (case implementations + {#Left implementations} + (do meta_monad + [declarations (|> implementations + (list#each (localized imported_module)) + (monad#each meta_monad (implementation_declarations import_alias alias)))] + (in (list#conjoint declarations))) + + {#Right implementations} + (do meta_monad + [pre_defs,implementations (is (Meta [(List Code) (List Code)]) + (monad#mix meta_monad + (function (_ it [pre_defs implementations]) + (case it + [_ {#Symbol _}] + (in [pre_defs + {#Item it implementations}]) + + _ + (do meta_monad + [g!implementation (..generated_symbol "implementation")] + (in [{#Item (` ("lux def" (~ g!implementation) (~ it) #0)) pre_defs} + {#Item g!implementation implementations}])))) + [(list) (list)] + implementations)) + .let [[pre_defs implementations] pre_defs,implementations]] + (in (|> pre_defs + {#Item (` (..open: + (~ (text$ current_module)) + (~ (text$ imported_module)) + (~ (text$ import_alias)) + (~ (text$ alias)) + (~+ implementations)))} + list#reversed))))) + + + {.#None} + (failure (..wrong_syntax_error (symbol ..open:))))) (def: (imported_by? import_name module_name) (-> Text Text (Meta Bit)) @@ -4125,85 +4225,45 @@ .let [[..#module_hash _ ..#module_aliases _ ..#definitions _ ..#imports imports ..#module_state _] module]] (in (is_member? imports import_name)))) -(def: (referrals module_name options) - (-> Text (List Code) (Meta Refer)) +(def: (referrals module_name extra) + (-> Text (List Code) (Meta (List Referral))) (do meta_monad - [referral+options (referrals_parser #0 options) - .let [[referral options] referral+options] - openings+options (openings_parser options) - .let [[openings options] openings+options] + [extra,referral (case (referrals_parser #0 extra) + {#Some extra,referral} + (in extra,referral) + + {#None} + (failure "")) + .let [[extra referral] extra,referral] current_module current_module_name] - (case options + (case extra {#End} - (in [#refer_defs referral - #refer_open openings]) + (in referral) _ (failure (all text#composite "Wrong syntax for refer @ " current_module - \n (|> options + \n (|> extra (list#each code#encoded) (list#interposed " ") (list#mix text#composite ""))))))) -(def: (referral_definitions module_name [r_defs r_opens]) - (-> Text Refer (Meta (List Code))) - (do meta_monad - [current_module ..current_module_name - .let [test_referrals (is (-> Text (List Text) (List Text) (Meta (List Any))) - (function (_ module_name all_defs referred_defs) - (monad#each meta_monad - (is (-> Text (Meta Any)) - (function (_ _def) - (if (is_member? all_defs _def) - (meta#in []) - (failure (all text#composite _def " is not defined in module " module_name " @ " current_module))))) - referred_defs)))] - defs (case r_defs - {#Nothing} - (in (list)) - - {#Referral [macro parameters]} - (single_expansion (` ((~ (symbol$ macro)) - (~ (text$ current_module)) - (~ (text$ module_name)) - (~+ parameters))))) - .let [openings (|> r_opens - (list#each (is (-> Openings (List Code)) - (function (_ [alias structs]) - (list#each (function (_ name) - (` (open: (~ (text$ alias)) (~ (symbol$ [module_name name]))))) - structs)))) - list#conjoint)]] - (in (list#composite defs openings)))) - (macro: (refer tokens) (case tokens - (pattern (partial_list [_ {#Text module_name}] options)) + (pattern (partial_list [_ {#Text imported_module}] [_ {#Text alias}] options)) (do meta_monad - [=refer (referrals module_name options)] - (referral_definitions module_name =refer)) + [referrals (..referrals imported_module options) + current_module ..current_module_name] + (in (list#each (function (_ [macro parameters]) + (` ((~ (symbol$ macro)) + (~ (text$ current_module)) + (~ (text$ imported_module)) + (~ (text$ alias)) + (~+ parameters)))) + referrals))) _ (failure "Wrong syntax for refer"))) -(def: (refer_code module_name module_alias' [r_defs r_opens]) - (-> Text (Maybe Text) Refer Code) - (let [module_alias (..maybe#else module_name module_alias') - localizations (is (List Code) - (case r_defs - {#Nothing} - (list) - - {#Referral [macro parameters]} - (list (` ((~ (symbol$ macro)) (~+ parameters)))))) - openings (list#each (function (_ [alias structs]) - (form$ (partial_list (text$ (..module_alias (list (alias_stand_in 0) module_alias) alias)) - (list#each local$ structs)))) - r_opens)] - (` ((~! ..refer) (~ (text$ module_name)) - (~+ localizations) - (~+ openings))))) - (macro: .public (# tokens) (case tokens (pattern (list struct [_ {#Symbol member}])) @@ -4891,6 +4951,15 @@ (failure (..wrong_syntax_error (symbol ..$)))))) (these (def: .public parameter ""))) +(def: (refer_code imported_module alias referrals) + (-> Text Text (List Referral) Code) + (` ((~! ..refer) + (~ (text$ imported_module)) + (~ (text$ alias)) + (~+ (list#each (function (_ [macro parameters]) + (` ((~ (symbol$ macro)) (~+ parameters)))) + referrals))))) + (macro: .public (using _imports) (do meta_monad [current_module ..current_module_name @@ -4902,7 +4971,7 @@ tuple$) =refers (list#each (is (-> Importation Code) (function (_ [module_name m_alias =refer]) - (refer_code module_name m_alias =refer))) + (refer_code module_name (..maybe#else "" m_alias) =refer))) imports) =module (` ("lux def module" (~ =imports)))] g!_ (..generated_symbol "")] diff --git a/stdlib/source/library/lux/abstract/comonad.lux b/stdlib/source/library/lux/abstract/comonad.lux index 2660ba081..5bb928e6a 100644 --- a/stdlib/source/library/lux/abstract/comonad.lux +++ b/stdlib/source/library/lux/abstract/comonad.lux @@ -3,7 +3,7 @@ [lux (.except) [data [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/abstract/monad/indexed.lux b/stdlib/source/library/lux/abstract/monad/indexed.lux index ad28a2649..0894b4021 100644 --- a/stdlib/source/library/lux/abstract/monad/indexed.lux +++ b/stdlib/source/library/lux/abstract/monad/indexed.lux @@ -6,7 +6,7 @@ ["<[0]>" code (.only Parser)]]] [data [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] ["[0]" macro (.only) [syntax (.only syntax:)] ["[0]" code]]]] diff --git a/stdlib/source/library/lux/control/concatenative.lux b/stdlib/source/library/lux/control/concatenative.lux index e53790026..a10e6e906 100644 --- a/stdlib/source/library/lux/control/concatenative.lux +++ b/stdlib/source/library/lux/control/concatenative.lux @@ -5,12 +5,12 @@ [abstract ["[0]" monad]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix functor)]]] + ["[0]" list (.open: "[1]#[0]" mix functor)]]] ["[0]" macro (.only with_symbols) ["[0]" code] ["[0]" template] @@ -23,7 +23,7 @@ ["r" rev] ["f" frac]]]]] [// - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]]) (type: Alias diff --git a/stdlib/source/library/lux/control/concurrency/actor.lux b/stdlib/source/library/lux/control/concurrency/actor.lux index 17d986c44..b1d80473c 100644 --- a/stdlib/source/library/lux/control/concurrency/actor.lux +++ b/stdlib/source/library/lux/control/concurrency/actor.lux @@ -10,7 +10,7 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] ["[0]" io (.only IO io)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" bit] @@ -18,7 +18,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monoid monad)]]] + ["[0]" list (.open: "[1]#[0]" monoid monad)]]] ["[0]" macro (.only with_symbols) ["[0]" code] [syntax (.only syntax:) @@ -32,7 +32,7 @@ ["[0]" primitive (.only primitive: representation abstraction)]]]] [// ["[0]" atom (.only Atom atom)] - ["[0]" async (.only Async Resolver) ("[1]#[0]" monad)] + ["[0]" async (.only Async Resolver) (.open: "[1]#[0]" monad)] ["[0]" frp (.only Channel Channel')]]) (exception: .public poisoned) diff --git a/stdlib/source/library/lux/control/concurrency/async.lux b/stdlib/source/library/lux/control/concurrency/async.lux index 430637d8b..6fff72d48 100644 --- a/stdlib/source/library/lux/control/concurrency/async.lux +++ b/stdlib/source/library/lux/control/concurrency/async.lux @@ -9,7 +9,7 @@ ["[0]" pipe] ["[0]" function] ["[0]" io (.only IO io)] - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" product]] [macro diff --git a/stdlib/source/library/lux/control/concurrency/atom.lux b/stdlib/source/library/lux/control/concurrency/atom.lux index da13c860d..ba861725f 100644 --- a/stdlib/source/library/lux/control/concurrency/atom.lux +++ b/stdlib/source/library/lux/control/concurrency/atom.lux @@ -7,7 +7,7 @@ [monad (.only do)]] [control ["[0]" function] - ["[0]" io (.only IO) ("[1]#[0]" functor)]] + ["[0]" io (.only IO) (.open: "[1]#[0]" functor)]] [data ["[0]" product] [collection diff --git a/stdlib/source/library/lux/control/concurrency/frp.lux b/stdlib/source/library/lux/control/concurrency/frp.lux index a4b99b6f4..252b8f0ce 100644 --- a/stdlib/source/library/lux/control/concurrency/frp.lux +++ b/stdlib/source/library/lux/control/concurrency/frp.lux @@ -7,7 +7,7 @@ [apply (.only Apply)] ["[0]" monad (.only Monad do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] ["[0]" io (.only IO io)]] @@ -15,7 +15,7 @@ ["[0]" variance (.only Mutable)]]]] [// ["[0]" atom (.only Atom)] - ["[0]" async (.only Async Async') ("[1]#[0]" monad)]]) + ["[0]" async (.only Async Async') (.open: "[1]#[0]" monad)]]) (type: .public (Channel'' a) (Async (Maybe [a (Channel'' a)]))) diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index 34bdd22c2..7aed1de63 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -7,13 +7,13 @@ [monad (.only do)]] [control ["[0]" maybe] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" monoid)] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["[0]" code] [syntax (.only syntax:) @@ -22,7 +22,7 @@ ["|[1]_[0]|" variable]]]] [math [number - ["n" nat ("[1]#[0]" decimal)]]]]] + ["n" nat (.open: "[1]#[0]" decimal)]]]]] [// ["//" try (.only Try)]]) diff --git a/stdlib/source/library/lux/control/function/inline.lux b/stdlib/source/library/lux/control/function/inline.lux index 38e1c795f..ac13d65df 100644 --- a/stdlib/source/library/lux/control/function/inline.lux +++ b/stdlib/source/library/lux/control/function/inline.lux @@ -9,7 +9,7 @@ ["<[0]>" code (.only Parser)]]] [data [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] ["[0]" macro (.only) ["[0]" code] [syntax (.only syntax:) diff --git a/stdlib/source/library/lux/control/function/mutual.lux b/stdlib/source/library/lux/control/function/mutual.lux index 65b8b9a6b..03ea12a04 100644 --- a/stdlib/source/library/lux/control/function/mutual.lux +++ b/stdlib/source/library/lux/control/function/mutual.lux @@ -7,14 +7,14 @@ [control ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] [dictionary ["[0]" plist (.only PList)]]]] ["[0]" macro (.only) diff --git a/stdlib/source/library/lux/control/parser.lux b/stdlib/source/library/lux/control/parser.lux index 052f89a98..c842910c7 100644 --- a/stdlib/source/library/lux/control/parser.lux +++ b/stdlib/source/library/lux/control/parser.lux @@ -11,7 +11,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/control/parser/analysis.lux b/stdlib/source/library/lux/control/parser/analysis.lux index d6fb20e2b..60b8edb63 100644 --- a/stdlib/source/library/lux/control/parser/analysis.lux +++ b/stdlib/source/library/lux/control/parser/analysis.lux @@ -11,7 +11,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux index e566a58a5..f9871b53b 100644 --- a/stdlib/source/library/lux/control/parser/binary.lux +++ b/stdlib/source/library/lux/control/parser/binary.lux @@ -29,7 +29,7 @@ [number ["n" nat] ["[0]" frac]]]]] - ["[0]" // ("[1]#[0]" monad)]) + ["[0]" // (.open: "[1]#[0]" monad)]) (type: .public Offset Nat) diff --git a/stdlib/source/library/lux/control/parser/cli.lux b/stdlib/source/library/lux/control/parser/cli.lux index 31ff5bef0..74b184d05 100644 --- a/stdlib/source/library/lux/control/parser/cli.lux +++ b/stdlib/source/library/lux/control/parser/cli.lux @@ -6,7 +6,7 @@ [control ["[0]" try (.only Try)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/control/parser/code.lux b/stdlib/source/library/lux/control/parser/code.lux index 4ab009d74..8ac364a2a 100644 --- a/stdlib/source/library/lux/control/parser/code.lux +++ b/stdlib/source/library/lux/control/parser/code.lux @@ -7,11 +7,11 @@ ["[0]" try (.only Try)]] [data ["[0]" bit] - ["[0]" text ("[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" monoid)] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro - ["[0]" code ("[1]#[0]" equivalence)]] + ["[0]" code (.open: "[1]#[0]" equivalence)]] [math [number ["[0]" nat] diff --git a/stdlib/source/library/lux/control/parser/json.lux b/stdlib/source/library/lux/control/parser/json.lux index 874833004..61bad3146 100644 --- a/stdlib/source/library/lux/control/parser/json.lux +++ b/stdlib/source/library/lux/control/parser/json.lux @@ -8,9 +8,9 @@ ["[0]" exception (.only exception:)]] [data ["[0]" bit] - ["[0]" text ("[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid)] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence] ["[0]" dictionary (.only Dictionary)]] [format @@ -20,7 +20,7 @@ [math [number ["[0]" frac]]]]] - ["[0]" // ("[1]#[0]" functor)]) + ["[0]" // (.open: "[1]#[0]" functor)]) (type: .public (Parser a) (//.Parser (List JSON) a)) diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux index 7cc34c955..4b8ab6e24 100644 --- a/stdlib/source/library/lux/control/parser/text.lux +++ b/stdlib/source/library/lux/control/parser/text.lux @@ -8,17 +8,17 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data - ["/" text (.only Char) ("[1]#[0]" monoid)] + ["/" text (.only Char) (.open: "[1]#[0]" monoid)] ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro ["^" pattern] ["[0]" code] ["[0]" template]] [math [number - ["n" nat ("[1]#[0]" decimal)]]]]] + ["n" nat (.open: "[1]#[0]" decimal)]]]]] ["[0]" //]) (type: .public Offset diff --git a/stdlib/source/library/lux/control/parser/type.lux b/stdlib/source/library/lux/control/parser/type.lux index cbb4884b9..944e687c7 100644 --- a/stdlib/source/library/lux/control/parser/type.lux +++ b/stdlib/source/library/lux/control/parser/type.lux @@ -8,18 +8,18 @@ ["[0]" exception (.only exception:)] ["[0]" function]] [data - ["[0]" text ("[1]#[0]" monoid) + ["[0]" text (.open: "[1]#[0]" monoid) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern] ["[0]" code]] [math [number - ["n" nat ("[1]#[0]" decimal)]]] - ["[0]" type ("[1]#[0]" equivalence) + ["n" nat (.open: "[1]#[0]" decimal)]]] + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux index 36b62f782..6853965af 100644 --- a/stdlib/source/library/lux/control/parser/xml.lux +++ b/stdlib/source/library/lux/control/parser/xml.lux @@ -4,7 +4,7 @@ [abstract [monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)]] [data ["[0]" text @@ -15,7 +15,7 @@ [format ["/" xml (.only Attribute Attrs Tag XML)]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence codec)]]]] + ["[0]" symbol (.open: "[1]#[0]" equivalence codec)]]]] ["[0]" //]) (type: .public (Parser a) diff --git a/stdlib/source/library/lux/control/pipe.lux b/stdlib/source/library/lux/control/pipe.lux index 4e352584c..4f5e3298c 100644 --- a/stdlib/source/library/lux/control/pipe.lux +++ b/stdlib/source/library/lux/control/pipe.lux @@ -10,7 +10,7 @@ [data ["[0]" identity] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro (.only with_symbols) [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/control/region.lux b/stdlib/source/library/lux/control/region.lux index 86bddcfac..f744c5cef 100644 --- a/stdlib/source/library/lux/control/region.lux +++ b/stdlib/source/library/lux/control/region.lux @@ -11,7 +11,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix)]]]]] + ["[0]" list (.open: "[1]#[0]" mix)]]]]] [// ["[0]" exception (.only Exception exception:)]]) diff --git a/stdlib/source/library/lux/control/remember.lux b/stdlib/source/library/lux/control/remember.lux index e19b39036..4f4bd74f2 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -7,14 +7,14 @@ ["[0]" io] ["[0]" try] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" functor) + ["<>" parser (.open: "[1]#[0]" functor) ["<c>" code (.only Parser)]]] [data ["[0]" text ["%" format (.only format)]]] [time ["[0]" instant] - ["[0]" date (.only Date) ("[1]#[0]" order)]] + ["[0]" date (.only Date) (.open: "[1]#[0]" order)]] ["[0]" meta] [macro ["[0]" code] diff --git a/stdlib/source/library/lux/control/security/capability.lux b/stdlib/source/library/lux/control/security/capability.lux index 3317a8f15..82b7a9a86 100644 --- a/stdlib/source/library/lux/control/security/capability.lux +++ b/stdlib/source/library/lux/control/security/capability.lux @@ -13,7 +13,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [type [primitive (.except)]] ["[0]" meta] diff --git a/stdlib/source/library/lux/data/collection/bits.lux b/stdlib/source/library/lux/data/collection/bits.lux index b2ef8d6f2..e9b659d3a 100644 --- a/stdlib/source/library/lux/data/collection/bits.lux +++ b/stdlib/source/library/lux/data/collection/bits.lux @@ -8,7 +8,7 @@ ["[0]" maybe]] [data [collection - ["[0]" array (.only Array) ("[1]#[0]" mix)]]] + ["[0]" array (.only Array) (.open: "[1]#[0]" mix)]]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/data/collection/dictionary.lux b/stdlib/source/library/lux/data/collection/dictionary.lux index 7f30db024..5fc1d3ebb 100644 --- a/stdlib/source/library/lux/data/collection/dictionary.lux +++ b/stdlib/source/library/lux/data/collection/dictionary.lux @@ -13,7 +13,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix functor monoid)] + ["[0]" list (.open: "[1]#[0]" mix functor monoid)] ["[0]" array ["[1]" \\unsafe (.only Array)]]]] [macro diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index 16361edf6..46889f723 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -10,7 +10,7 @@ [data ["p" product] [collection - ["[0]" list ("[1]#[0]" monoid mix)]]] + ["[0]" list (.open: "[1]#[0]" monoid mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux index 1c5528026..1d7c385c2 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux @@ -5,12 +5,12 @@ [equivalence (.only Equivalence)] [monoid (.only Monoid)]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/queue.lux b/stdlib/source/library/lux/data/collection/queue.lux index bde5d6525..103e38506 100644 --- a/stdlib/source/library/lux/data/collection/queue.lux +++ b/stdlib/source/library/lux/data/collection/queue.lux @@ -6,7 +6,7 @@ [functor (.only Functor)]] [data [collection - ["[0]" list ("[1]#[0]" monoid functor)]]] + ["[0]" list (.open: "[1]#[0]" monoid functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/queue/priority.lux b/stdlib/source/library/lux/data/collection/queue/priority.lux index 98c9734fb..7ff7d3195 100644 --- a/stdlib/source/library/lux/data/collection/queue/priority.lux +++ b/stdlib/source/library/lux/data/collection/queue/priority.lux @@ -12,7 +12,7 @@ ["[1]" finger (.only Tree)]]]] [math [number - ["n" nat ("[1]#[0]" interval)]]] + ["n" nat (.open: "[1]#[0]" interval)]]] [type (.only by_example) [primitive (.only primitive: abstraction representation)]]]]) diff --git a/stdlib/source/library/lux/data/collection/sequence.lux b/stdlib/source/library/lux/data/collection/sequence.lux index 065bb8941..2c8fdadaa 100644 --- a/stdlib/source/library/lux/data/collection/sequence.lux +++ b/stdlib/source/library/lux/data/collection/sequence.lux @@ -14,7 +14,7 @@ [mix (.only Mix)] [predicate (.only Predicate)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] ["<>" parser (.only) @@ -22,7 +22,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix functor monoid)] + ["[0]" list (.open: "[1]#[0]" mix functor monoid)] ["[0]" array ["[1]" \\unsafe (.only Array)]]]] [macro diff --git a/stdlib/source/library/lux/data/collection/set.lux b/stdlib/source/library/lux/data/collection/set.lux index 4d9e696d9..bd82175ab 100644 --- a/stdlib/source/library/lux/data/collection/set.lux +++ b/stdlib/source/library/lux/data/collection/set.lux @@ -8,7 +8,7 @@ [monoid (.only Monoid)]] [data [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/data/collection/set/multi.lux b/stdlib/source/library/lux/data/collection/set/multi.lux index 377ee54fd..30ca10e23 100644 --- a/stdlib/source/library/lux/data/collection/set/multi.lux +++ b/stdlib/source/library/lux/data/collection/set/multi.lux @@ -17,7 +17,7 @@ ["[0]" primitive (.only primitive: abstraction representation)]]]] ["[0]" // (.only) [// - ["[0]" list ("[1]#[0]" mix monoid)] + ["[0]" list (.open: "[1]#[0]" mix monoid)] ["[0]" dictionary (.only Dictionary)]]]) (primitive: .public (Set a) diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux index 45ab47ef6..f55418053 100644 --- a/stdlib/source/library/lux/data/collection/set/ordered.lux +++ b/stdlib/source/library/lux/data/collection/set/ordered.lux @@ -6,7 +6,7 @@ [order (.only Order)]] [data [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] [dictionary ["/" ordered]]]] [type diff --git a/stdlib/source/library/lux/data/collection/stream.lux b/stdlib/source/library/lux/data/collection/stream.lux index d62f1f23c..ac6a8c50e 100644 --- a/stdlib/source/library/lux/data/collection/stream.lux +++ b/stdlib/source/library/lux/data/collection/stream.lux @@ -11,7 +11,7 @@ [data ["[0]" bit] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro (.only with_symbols) [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/data/collection/tree.lux b/stdlib/source/library/lux/data/collection/tree.lux index 28d6f283b..f7dfcf617 100644 --- a/stdlib/source/library/lux/data/collection/tree.lux +++ b/stdlib/source/library/lux/data/collection/tree.lux @@ -11,7 +11,7 @@ ["<[0]>" code (.only Parser)]]] [data [collection - ["[0]" list ("[1]#[0]" monad mix)]]] + ["[0]" list (.open: "[1]#[0]" monad mix)]]] [macro [syntax (.only syntax:)] ["[0]" code]]]]) diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux index a147973fe..1e2b87d25 100644 --- a/stdlib/source/library/lux/data/collection/tree/finger.lux +++ b/stdlib/source/library/lux/data/collection/tree/finger.lux @@ -6,7 +6,7 @@ ["[0]" monoid (.only Monoid)]] [data [collection - ["[0]" list ("[1]#[0]" monoid)]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]] [type [primitive (.only primitive: abstraction representation)]]]]) diff --git a/stdlib/source/library/lux/data/collection/tree/zipper.lux b/stdlib/source/library/lux/data/collection/tree/zipper.lux index 713fa19c6..33bc9b1b6 100644 --- a/stdlib/source/library/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/library/lux/data/collection/tree/zipper.lux @@ -8,14 +8,14 @@ [monad (.only do)] [equivalence (.only Equivalence)]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data ["[0]" product] [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]]]] - ["[0]" // (.only Tree) ("[1]#[0]" functor)]) + ["[0]" list (.open: "[1]#[0]" functor monoid)]]]]] + ["[0]" // (.only Tree) (.open: "[1]#[0]" functor)]) (type: (Family Zipper a) (Record diff --git a/stdlib/source/library/lux/data/color.lux b/stdlib/source/library/lux/data/color.lux index e18ee549c..ebc8f8371 100644 --- a/stdlib/source/library/lux/data/color.lux +++ b/stdlib/source/library/lux/data/color.lux @@ -7,13 +7,13 @@ ["[0]" hash (.only Hash)]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat] ["f" frac] ["[0]" int] - ["[0]" rev ("[1]#[0]" interval)] + ["[0]" rev (.open: "[1]#[0]" interval)] ["[0]" i64]]] [type [primitive (.except)]]]]) diff --git a/stdlib/source/library/lux/data/format/binary.lux b/stdlib/source/library/lux/data/format/binary.lux index 860448136..c1c4707cc 100644 --- a/stdlib/source/library/lux/data/format/binary.lux +++ b/stdlib/source/library/lux/data/format/binary.lux @@ -9,7 +9,7 @@ [control ["[0]" pipe] ["[0]" function] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["</>" binary (.only Offset Size Parser)]]] [data ["/" binary @@ -21,7 +21,7 @@ ["[0]" utf8]]] [collection ["[0]" list] - ["[0]" sequence (.only Sequence) ("[1]#[0]" functor)] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" functor)] ["[0]" set (.only Set)] [array [\\unsafe (.only)]]]] diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux index ee8b19f0c..093cc785f 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/data/format/css.lux @@ -8,7 +8,7 @@ ["%" format (.only format)] ["[0]" encoding (.only Encoding)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["[0]" nat]]] diff --git a/stdlib/source/library/lux/data/format/css/class.lux b/stdlib/source/library/lux/data/format/css/class.lux index 5bb68fb2e..6a9ab5e90 100644 --- a/stdlib/source/library/lux/data/format/css/class.lux +++ b/stdlib/source/library/lux/data/format/css/class.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)]]] [macro [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/data/format/css/id.lux b/stdlib/source/library/lux/data/format/css/id.lux index bc11c304d..5de67ed56 100644 --- a/stdlib/source/library/lux/data/format/css/id.lux +++ b/stdlib/source/library/lux/data/format/css/id.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)]]] [macro [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/data/format/css/style.lux index 291d13dd8..4b1f26590 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/data/format/css/style.lux @@ -5,7 +5,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [type [primitive (.except)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 36ee8de22..07369e1dc 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -11,7 +11,7 @@ ["[0]" text ["%" format (.only Format format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux index d42afc3c4..44ff23595 100644 --- a/stdlib/source/library/lux/data/format/html.lux +++ b/stdlib/source/library/lux/data/format/html.lux @@ -3,13 +3,13 @@ [lux (.except Meta Source comment and template) [control ["[0]" function] - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" product] ["[0]" text ["%" format (.only Format format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["[0]" template]] [target diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux index c2f8d2ef1..14127b8ef 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -11,16 +11,16 @@ ["[0]" pipe] ["[0]" maybe] ["[0]" try (.only Try)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" bit] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid)] [collection - ["[0]" list ("[1]#[0]" mix functor)] - ["[0]" sequence (.only Sequence sequence) ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" mix functor)] + ["[0]" sequence (.only Sequence sequence) (.open: "[1]#[0]" monad)] ["[0]" dictionary (.only Dictionary)]]] [macro [syntax (.only syntax:)] @@ -29,7 +29,7 @@ [math [number ["n" nat] - ["f" frac ("[1]#[0]" decimal)]]]]]) + ["f" frac (.open: "[1]#[0]" decimal)]]]]]) (template [<name> <type>] [(type: .public <name> diff --git a/stdlib/source/library/lux/data/format/markdown.lux b/stdlib/source/library/lux/data/format/markdown.lux index db33dd5ab..4982a2b63 100644 --- a/stdlib/source/library/lux/data/format/markdown.lux +++ b/stdlib/source/library/lux/data/format/markdown.lux @@ -5,7 +5,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [type [primitive (.except)]] [world diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux index e671de780..9dd84b4e8 100644 --- a/stdlib/source/library/lux/data/format/tar.lux +++ b/stdlib/source/library/lux/data/format/tar.lux @@ -19,10 +19,10 @@ [encoding ["[0]" utf8]]] ["[0]" format - ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]] + ["[1]" binary (.only Writer) (.open: "[1]#[0]" monoid)]] [collection - ["[0]" list ("[1]#[0]" mix)] - ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" mix)] [array [\\unsafe (.only)]]]] [macro diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index b7877bdbe..89a8eccad 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -7,20 +7,20 @@ [codec (.only Codec)]] [control [try (.only Try)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" text (.only Parser Slice)]]] [data ["[0]" product] - ["[0]" text (.only \n) ("[1]#[0]" equivalence monoid)] + ["[0]" text (.only \n) (.open: "[1]#[0]" equivalence monoid)] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [math [number ["n" nat] ["[0]" int]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence codec)]]]]) + ["[0]" symbol (.open: "[1]#[0]" equivalence codec)]]]]) (type: .public Tag Symbol) diff --git a/stdlib/source/library/lux/data/text.lux b/stdlib/source/library/lux/data/text.lux index fde7cd9f8..ecc17837e 100644 --- a/stdlib/source/library/lux/data/text.lux +++ b/stdlib/source/library/lux/data/text.lux @@ -13,7 +13,7 @@ ["[0]" maybe]] [data [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/data/text/buffer.lux b/stdlib/source/library/lux/data/text/buffer.lux index a53e60f77..5658dcddb 100644 --- a/stdlib/source/library/lux/data/text/buffer.lux +++ b/stdlib/source/library/lux/data/text/buffer.lux @@ -11,7 +11,7 @@ ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)]]] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" mix)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/data/text/format.lux b/stdlib/source/library/lux/data/text/format.lux index 87e258477..c6dac322e 100644 --- a/stdlib/source/library/lux/data/text/format.lux +++ b/stdlib/source/library/lux/data/text/format.lux @@ -15,7 +15,7 @@ ["[0]" xml] ["[0]" json]] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] ["[0]" time (.only) ["[0]" instant] ["[0]" duration] diff --git a/stdlib/source/library/lux/data/text/regex.lux b/stdlib/source/library/lux/data/text/regex.lux index f9e57e97f..af653dbdf 100644 --- a/stdlib/source/library/lux/data/text/regex.lux +++ b/stdlib/source/library/lux/data/text/regex.lux @@ -8,20 +8,20 @@ ["[0]" maybe] ["[0]" try] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix monad)]]] + ["[0]" list (.open: "[1]#[0]" mix monad)]]] [macro (.only with_symbols) [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math [number (.only hex) - ["n" nat ("[1]#[0]" decimal)]]]]] + ["n" nat (.open: "[1]#[0]" decimal)]]]]] ["[0]" // (.only) ["%" format (.only format)]]) diff --git a/stdlib/source/library/lux/data/text/unicode/block.lux b/stdlib/source/library/lux/data/text/unicode/block.lux index f2c315dfa..45729b8ba 100644 --- a/stdlib/source/library/lux/data/text/unicode/block.lux +++ b/stdlib/source/library/lux/data/text/unicode/block.lux @@ -8,7 +8,7 @@ ["[0]" interval (.only Interval)]] [math [number (.only hex) - ["n" nat ("[1]#[0]" interval)] + ["n" nat (.open: "[1]#[0]" interval)] ["[0]" i64]]] [type [primitive (.except)]]]] diff --git a/stdlib/source/library/lux/data/text/unicode/set.lux b/stdlib/source/library/lux/data/text/unicode/set.lux index aa166bb5b..58730c36f 100644 --- a/stdlib/source/library/lux/data/text/unicode/set.lux +++ b/stdlib/source/library/lux/data/text/unicode/set.lux @@ -5,8 +5,8 @@ [equivalence (.only Equivalence)]] [data [collection - ["[0]" list ("[1]#[0]" mix functor)] - ["[0]" set ("[1]#[0]" equivalence)] + ["[0]" list (.open: "[1]#[0]" mix functor)] + ["[0]" set (.open: "[1]#[0]" equivalence)] ["[0]" tree ["[1]" finger (.only Tree)]]]] [type (.only by_example) diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index 3ec9155fa..765cb6079 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -23,7 +23,7 @@ ["[0]" json]] [collection ["[0]" array] - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" dictionary]]] [macro ["^" pattern] diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux index f39019bfd..f71f812df 100644 --- a/stdlib/source/library/lux/documentation.lux +++ b/stdlib/source/library/lux/documentation.lux @@ -2,21 +2,21 @@ [library [lux (.except Definition Module type) ["[0]" meta] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [monad (.only do)] ["[0]" enum]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text (.only \n) ("[1]#[0]" order) + ["[0]" text (.only \n) (.open: "[1]#[0]" order) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad mix monoid)] + ["[0]" list (.open: "[1]#[0]" monad mix monoid)] ["[0]" set (.only Set)] ["[0]" stream (.only Stream)]] [format diff --git a/stdlib/source/library/lux/extension.lux b/stdlib/source/library/lux/extension.lux index 5a61520e6..4ad6c5592 100644 --- a/stdlib/source/library/lux/extension.lux +++ b/stdlib/source/library/lux/extension.lux @@ -4,14 +4,14 @@ [abstract ["[0]" monad]] [control - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<c>" code (.only Parser)] ["<a>" analysis] ["<s>" synthesis]]] [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro (.only with_symbols) [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux index 5d53095cf..6f22bfb29 100644 --- a/stdlib/source/library/lux/ffi.jvm.lux +++ b/stdlib/source/library/lux/ffi.jvm.lux @@ -9,15 +9,15 @@ ["[0]" maybe] ["[0]" try (.only Try)] ["[0]" exception (.only Exception exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" list ("[1]#[0]" monad mix monoid)] + ["[0]" list (.open: "[1]#[0]" monad mix monoid)] ["[0]" dictionary (.only Dictionary)]]] [macro (.only with_symbols) [syntax (.only syntax:)] @@ -35,7 +35,7 @@ ["[0]" signature] ["[0]" reflection] ["[0]" parser]]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]]) (def: internal diff --git a/stdlib/source/library/lux/ffi.lux b/stdlib/source/library/lux/ffi.lux index ca7616417..2ad70d784 100644 --- a/stdlib/source/library/lux/ffi.lux +++ b/stdlib/source/library/lux/ffi.lux @@ -7,15 +7,15 @@ [monad (.only do)]] [control ["[0]" io] - ["[0]" maybe ("[1]#[0]" functor)] - ["<>" parser ("[1]#[0]" monad) + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix)]]] + ["[0]" list (.open: "[1]#[0]" monad mix)]]] ["[0]" macro (.only with_symbols) [syntax (.only syntax:)] ["[0]" code] diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux index 19f5b8a9f..596d588e2 100644 --- a/stdlib/source/library/lux/ffi.old.lux +++ b/stdlib/source/library/lux/ffi.old.lux @@ -1,7 +1,7 @@ (.using [library [lux (.except is as type) - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract ["[0]" monad (.only Monad do)] ["[0]" enum]] @@ -14,12 +14,12 @@ ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" codec)] - ["[0]" text ("[1]#[0]" equivalence monoid) + ["[0]" bit (.open: "[1]#[0]" codec)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid) ["%" format (.only format)]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" monad mix monoid)]]] + ["[0]" list (.open: "[1]#[0]" monad mix monoid)]]] ["[0]" macro (.only with_symbols) [syntax (.only syntax:)] ["^" pattern] diff --git a/stdlib/source/library/lux/ffi.php.lux b/stdlib/source/library/lux/ffi.php.lux index 2bfb31b5d..2f7350849 100644 --- a/stdlib/source/library/lux/ffi.php.lux +++ b/stdlib/source/library/lux/ffi.php.lux @@ -8,14 +8,14 @@ [control ["[0]" io] ["[0]" maybe] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ["%" format]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [type abstract] [macro (.only with_symbols) diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux index 0cf11daab..6903adb4c 100644 --- a/stdlib/source/library/lux/ffi.scm.lux +++ b/stdlib/source/library/lux/ffi.scm.lux @@ -8,14 +8,14 @@ [control ["[0]" io] ["[0]" maybe] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [type abstract] [macro (.only with_symbols) diff --git a/stdlib/source/library/lux/ffi/export.js.lux b/stdlib/source/library/lux/ffi/export.js.lux index e93309e39..ac23e6b6b 100644 --- a/stdlib/source/library/lux/ffi/export.js.lux +++ b/stdlib/source/library/lux/ffi/export.js.lux @@ -13,7 +13,7 @@ [text ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix)] + ["[0]" list (.open: "[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/ffi/export.jvm.lux b/stdlib/source/library/lux/ffi/export.jvm.lux index 17750a864..fea7a2239 100644 --- a/stdlib/source/library/lux/ffi/export.jvm.lux +++ b/stdlib/source/library/lux/ffi/export.jvm.lux @@ -6,7 +6,7 @@ ["<[0]>" code (.only Parser)]]] [data [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro [syntax (.only syntax:)] ["[0]" code]]]] diff --git a/stdlib/source/library/lux/ffi/export.lua.lux b/stdlib/source/library/lux/ffi/export.lua.lux index f4c6fc8d8..adcb632ab 100644 --- a/stdlib/source/library/lux/ffi/export.lua.lux +++ b/stdlib/source/library/lux/ffi/export.lua.lux @@ -13,7 +13,7 @@ [text ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix)] + ["[0]" list (.open: "[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/ffi/export.py.lux b/stdlib/source/library/lux/ffi/export.py.lux index 98399e34b..b9abc8a7a 100644 --- a/stdlib/source/library/lux/ffi/export.py.lux +++ b/stdlib/source/library/lux/ffi/export.py.lux @@ -13,7 +13,7 @@ [text ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix)] + ["[0]" list (.open: "[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/ffi/export.rb.lux b/stdlib/source/library/lux/ffi/export.rb.lux index e82fcbdb2..b23a85dc7 100644 --- a/stdlib/source/library/lux/ffi/export.rb.lux +++ b/stdlib/source/library/lux/ffi/export.rb.lux @@ -15,7 +15,7 @@ [text ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix)] + ["[0]" list (.open: "[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/ffi/node_js.js.lux b/stdlib/source/library/lux/ffi/node_js.js.lux index 60186306a..a31054f74 100644 --- a/stdlib/source/library/lux/ffi/node_js.js.lux +++ b/stdlib/source/library/lux/ffi/node_js.js.lux @@ -4,7 +4,7 @@ ["[0]" ffi] [control ["[0]" function] - ["[0]" maybe ("[1]#[0]" monoid functor)]]]]) + ["[0]" maybe (.open: "[1]#[0]" monoid functor)]]]]) (template [<name> <path>] [(def: <name> diff --git a/stdlib/source/library/lux/locale.lux b/stdlib/source/library/lux/locale.lux index 63fc6f06f..0d5117c48 100644 --- a/stdlib/source/library/lux/locale.lux +++ b/stdlib/source/library/lux/locale.lux @@ -5,7 +5,7 @@ [equivalence (.only Equivalence)] ["[0]" hash (.only Hash)]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" text (.only) ["%" format (.only format)] diff --git a/stdlib/source/library/lux/macro.lux b/stdlib/source/library/lux/macro.lux index d9a68d76e..e455b55f4 100644 --- a/stdlib/source/library/lux/macro.lux +++ b/stdlib/source/library/lux/macro.lux @@ -4,9 +4,9 @@ [abstract ["[0]" monad (.only do)]] [data - ["[0]" text ("[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" monoid)] [collection - ["[0]" list ("[1]#[0]" monoid monad)]]] + ["[0]" list (.open: "[1]#[0]" monoid monad)]]] [math [number ["[0]" nat] @@ -16,7 +16,7 @@ ["[0]" // ["[1]" meta (.only) ["[0]" location] - ["[0]" symbol ("[1]#[0]" codec)]]]]) + ["[0]" symbol (.open: "[1]#[0]" codec)]]]]) (def: .public (single_expansion syntax) (-> Code (Meta (List Code))) diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index 2d670c70c..74cab5a40 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -6,9 +6,9 @@ [data ["[0]" product] ["[0]" bit] - ["[0]" text ("[1]#[0]" monoid equivalence)] + ["[0]" text (.open: "[1]#[0]" monoid equivalence)] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux index 9a317fc6f..b564df336 100644 --- a/stdlib/source/library/lux/macro/local.lux +++ b/stdlib/source/library/lux/macro/local.lux @@ -11,7 +11,7 @@ ["[0]" product] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] [dictionary ["[0]" plist (.only PList)]]]]]] ["[0]" // (.only) diff --git a/stdlib/source/library/lux/macro/syntax.lux b/stdlib/source/library/lux/macro/syntax.lux index 5945290d8..baec61e09 100644 --- a/stdlib/source/library/lux/macro/syntax.lux +++ b/stdlib/source/library/lux/macro/syntax.lux @@ -10,7 +10,7 @@ ["<>" parser (.only) ["</>" code (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" monoid)] [collection ["[0]" list]]] [math diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux index aef62c056..b0c23e135 100644 --- a/stdlib/source/library/lux/macro/syntax/declaration.lux +++ b/stdlib/source/library/lux/macro/syntax/declaration.lux @@ -4,13 +4,13 @@ [abstract [equivalence (.only Equivalence)]] [control - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" code]]]]) diff --git a/stdlib/source/library/lux/macro/syntax/input.lux b/stdlib/source/library/lux/macro/syntax/input.lux index 25d3db6fc..bdac8cad3 100644 --- a/stdlib/source/library/lux/macro/syntax/input.lux +++ b/stdlib/source/library/lux/macro/syntax/input.lux @@ -9,7 +9,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro ["[0]" code]]]]) diff --git a/stdlib/source/library/lux/macro/template.lux b/stdlib/source/library/lux/macro/template.lux index dc3ef5884..6f4124596 100644 --- a/stdlib/source/library/lux/macro/template.lux +++ b/stdlib/source/library/lux/macro/template.lux @@ -7,22 +7,22 @@ [control ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" functor) + ["<>" parser (.open: "[1]#[0]" functor) ["<[0]>" code (.only Parser)]]] [data - ["[0]" bit ("[1]#[0]" codec)] + ["[0]" bit (.open: "[1]#[0]" codec)] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] [math [number - ["[0]" nat ("[1]#[0]" decimal)] - ["[0]" int ("[1]#[0]" decimal)] - ["[0]" rev ("[1]#[0]" decimal)] - ["[0]" frac ("[1]#[0]" decimal)]]]]] + ["[0]" nat (.open: "[1]#[0]" decimal)] + ["[0]" int (.open: "[1]#[0]" decimal)] + ["[0]" rev (.open: "[1]#[0]" decimal)] + ["[0]" frac (.open: "[1]#[0]" decimal)]]]]] ["[0]" // (.only) [syntax (.only syntax:)] ["[0]" code] diff --git a/stdlib/source/library/lux/math.lux b/stdlib/source/library/lux/math.lux index eaffa1d8a..0a32f20b8 100644 --- a/stdlib/source/library/lux/math.lux +++ b/stdlib/source/library/lux/math.lux @@ -15,13 +15,13 @@ [text ["%" format]] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro [syntax (.only syntax:)] ["[0]" template]] [tool [compiler - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] [language [lux ["[0]" analysis (.only Analysis Operation Phase) diff --git a/stdlib/source/library/lux/math/infix.lux b/stdlib/source/library/lux/math/infix.lux index 207d38d54..8a37aa0f7 100644 --- a/stdlib/source/library/lux/math/infix.lux +++ b/stdlib/source/library/lux/math/infix.lux @@ -4,12 +4,12 @@ [abstract [monad (.only do)]] [control - ["<>" parser ("[1]#[0]" functor) + ["<>" parser (.open: "[1]#[0]" functor) ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/math/logic/continuous.lux b/stdlib/source/library/lux/math/logic/continuous.lux index 6640d1668..eec2d573f 100644 --- a/stdlib/source/library/lux/math/logic/continuous.lux +++ b/stdlib/source/library/lux/math/logic/continuous.lux @@ -6,7 +6,7 @@ [monoid (.only Monoid)]] [math [number - ["/" rev ("[1]#[0]" interval)]]]]]) + ["/" rev (.open: "[1]#[0]" interval)]]]]]) (def: .public false Rev /#bottom) (def: .public true Rev /#top) diff --git a/stdlib/source/library/lux/math/modular.lux b/stdlib/source/library/lux/math/modular.lux index e0886c02d..77f611732 100644 --- a/stdlib/source/library/lux/math/modular.lux +++ b/stdlib/source/library/lux/math/modular.lux @@ -15,13 +15,13 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [macro [syntax (.only syntax:)] ["[0]" code]] [math [number - ["i" int ("[1]#[0]" decimal)]]] + ["i" int (.open: "[1]#[0]" decimal)]]] [type [primitive (.except)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/math/number/complex.lux b/stdlib/source/library/lux/math/number/complex.lux index 7b341edf3..5e320c560 100644 --- a/stdlib/source/library/lux/math/number/complex.lux +++ b/stdlib/source/library/lux/math/number/complex.lux @@ -9,7 +9,7 @@ ["<[0]>" code]]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro [syntax (.only syntax:)]] [math diff --git a/stdlib/source/library/lux/math/number/ratio.lux b/stdlib/source/library/lux/math/number/ratio.lux index b7072395b..a7c1c4762 100644 --- a/stdlib/source/library/lux/math/number/ratio.lux +++ b/stdlib/source/library/lux/math/number/ratio.lux @@ -15,12 +15,12 @@ ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [macro [syntax (.only syntax:)] ["[0]" code]]]] [// - ["n" nat ("[1]#[0]" decimal)]]) + ["n" nat (.open: "[1]#[0]" decimal)]]) (type: .public Ratio (Record diff --git a/stdlib/source/library/lux/math/random.lux b/stdlib/source/library/lux/math/random.lux index 13762f8ec..d60ba29bc 100644 --- a/stdlib/source/library/lux/math/random.lux +++ b/stdlib/source/library/lux/math/random.lux @@ -7,11 +7,11 @@ [apply (.only Apply)] ["[0]" monad (.only Monad do)]] [data - ["[0]" text (.only Char) ("[1]#[0]" monoid) + ["[0]" text (.only Char) (.open: "[1]#[0]" monoid) ["[0]" unicode ["[1]" set]]] [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" array (.only Array)] ["[0]" dictionary (.only Dictionary)] ["[0]" queue (.only Queue)] diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux index ef6b283f0..7ceec5bcd 100644 --- a/stdlib/source/library/lux/meta.lux +++ b/stdlib/source/library/lux/meta.lux @@ -10,9 +10,9 @@ ["[0]" try (.only Try)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid order)] + ["[0]" text (.open: "[1]#[0]" monoid order)] [collection - ["[0]" list ("[1]#[0]" monoid monad)] + ["[0]" list (.open: "[1]#[0]" monoid monad)] [dictionary ["[0]" plist]]]] [macro @@ -23,7 +23,7 @@ ["n" nat] ["i" int]]] [meta - ["[0]" symbol ("[1]#[0]" codec equivalence)]]]] + ["[0]" symbol (.open: "[1]#[0]" codec equivalence)]]]] [/ ["[0]" location]]) diff --git a/stdlib/source/library/lux/meta/configuration.lux b/stdlib/source/library/lux/meta/configuration.lux index 7271f5430..be16a5110 100644 --- a/stdlib/source/library/lux/meta/configuration.lux +++ b/stdlib/source/library/lux/meta/configuration.lux @@ -7,16 +7,16 @@ [monoid (.only Monoid)] [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] ["<>" parser (.only) ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] [dictionary ["/" plist]]]] [macro diff --git a/stdlib/source/library/lux/meta/symbol.lux b/stdlib/source/library/lux/meta/symbol.lux index 885db4402..b5819f76a 100644 --- a/stdlib/source/library/lux/meta/symbol.lux +++ b/stdlib/source/library/lux/meta/symbol.lux @@ -7,7 +7,7 @@ [order (.only Order)] [codec (.only Codec)]] [data - ["[0]" text ("[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid)] ["[0]" product]]]]) ... (type: Symbol diff --git a/stdlib/source/library/lux/meta/version.lux b/stdlib/source/library/lux/meta/version.lux index 9987d55c1..47bc430b4 100644 --- a/stdlib/source/library/lux/meta/version.lux +++ b/stdlib/source/library/lux/meta/version.lux @@ -9,9 +9,9 @@ ["<>" parser (.only) ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/static.lux b/stdlib/source/library/lux/static.lux index 0aec3e8c2..c9d94bd35 100644 --- a/stdlib/source/library/lux/static.lux +++ b/stdlib/source/library/lux/static.lux @@ -1,7 +1,7 @@ (.using [library [lux (.except nat int rev if cond) - ["[0]" meta ("[1]#[0]" functor)] + ["[0]" meta (.open: "[1]#[0]" functor)] [abstract [monad (.only do)]] [control @@ -9,7 +9,7 @@ ["<[0]>" code]]] [data [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/library/lux/target/common_lisp.lux b/stdlib/source/library/lux/target/common_lisp.lux index e2094f53c..ce523f4d4 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -7,7 +7,7 @@ ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad monoid)]]] + ["[0]" list (.open: "[1]#[0]" monad monoid)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index ecae74ab2..708ba4abe 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -7,7 +7,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/target/jvm/attribute.lux b/stdlib/source/library/lux/target/jvm/attribute.lux index 522cb9028..4819f19ea 100644 --- a/stdlib/source/library/lux/target/jvm/attribute.lux +++ b/stdlib/source/library/lux/target/jvm/attribute.lux @@ -24,7 +24,7 @@ [encoding ["[1][0]" unsigned (.only U2 U4)]] ["[1][0]" constant (.only UTF8 Class Value) - ["[2][0]" pool (.only Pool Resource) ("[1]#[0]" monad)]]] + ["[2][0]" pool (.only Pool Resource) (.open: "[1]#[0]" monad)]]] ["[0]" / ["[1][0]" constant (.only Constant)] ["[1][0]" code]]) diff --git a/stdlib/source/library/lux/target/jvm/attribute/code.lux b/stdlib/source/library/lux/target/jvm/attribute/code.lux index 10d2bb92d..629fbfad6 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code.lux @@ -7,9 +7,9 @@ ["[0]" product] ["[0]" binary (.only Binary)] [format - ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) (.open: "[1]#[0]" monoid)]] [collection - ["[0]" sequence (.only Sequence) ("[1]#[0]" functor mix)]]] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" functor mix)]]] [math [number ["n" nat]]]]] diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux index 1f00b97c7..4963f5151 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -10,14 +10,14 @@ ["[0]" writer (.only Writer)] ["[0]" state (.only +State)] ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" try (.only Try) (.open: "[1]#[0]" monad)] ["[0]" exception (.only exception:)]] [data ["[0]" product] [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" sequence (.only Sequence)]]] [macro @@ -31,7 +31,7 @@ ["[0]" / ["[1][0]" address (.only Address)] ["[1][0]" jump (.only Jump Big_Jump)] - ["_" instruction (.only Primitive_Array_Type Instruction Estimator) ("[1]#[0]" monoid)] + ["_" instruction (.only Primitive_Array_Type Instruction Estimator) (.open: "[1]#[0]" monoid)] ["[1][0]" environment (.only Environment) [limit ["/[0]" registry (.only Register Registry)] diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux index 05772986f..a1c60d8d2 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux @@ -9,7 +9,7 @@ [data ["[0]" product] ["[0]" format - ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]]] + ["[1]" binary (.only Writer) (.open: "[1]#[0]" monoid)]]] [math [number ["n" nat]]]]] diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux index 950735dbb..b8ae7a3c3 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/registry.lux @@ -4,12 +4,12 @@ [abstract ["[0]" equivalence (.only Equivalence)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data [format [binary (.only Writer)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/target/jvm/class.lux b/stdlib/source/library/lux/target/jvm/class.lux index 3af3c5c7c..6c4531ed5 100644 --- a/stdlib/source/library/lux/target/jvm/class.lux +++ b/stdlib/source/library/lux/target/jvm/class.lux @@ -10,7 +10,7 @@ [data ["[0]" product] [format - ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) (.open: "[1]#[0]" monoid)]] [collection ["[0]" sequence (.only Sequence)]]]]] ["[0]" // diff --git a/stdlib/source/library/lux/target/jvm/constant.lux b/stdlib/source/library/lux/target/jvm/constant.lux index 3e50f9758..98fb0ba60 100644 --- a/stdlib/source/library/lux/target/jvm/constant.lux +++ b/stdlib/source/library/lux/target/jvm/constant.lux @@ -11,7 +11,7 @@ ["[0]" product] ["[0]" text] [format - ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]]] + ["[0]F" binary (.only Writer) (.open: "[1]#[0]" monoid)]]] [macro ["^" pattern] ["[0]" template]] diff --git a/stdlib/source/library/lux/target/jvm/constant/pool.lux b/stdlib/source/library/lux/target/jvm/constant/pool.lux index e459f5eec..2d6c1e4e5 100644 --- a/stdlib/source/library/lux/target/jvm/constant/pool.lux +++ b/stdlib/source/library/lux/target/jvm/constant/pool.lux @@ -14,9 +14,9 @@ ["[0]" product] ["[0]" text] ["[0]" format - ["[1]" binary (.only Writer) ("specification#[0]" monoid)]] + ["[1]" binary (.only Writer) (.open: "specification#[0]" monoid)]] [collection - ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)]]] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" mix)]]] [math [number ["[0]" int] diff --git a/stdlib/source/library/lux/target/jvm/constant/tag.lux b/stdlib/source/library/lux/target/jvm/constant/tag.lux index e9a0569e0..7a859d75b 100644 --- a/stdlib/source/library/lux/target/jvm/constant/tag.lux +++ b/stdlib/source/library/lux/target/jvm/constant/tag.lux @@ -12,7 +12,7 @@ [primitive (.except)]]]] ["[0]" /// [encoding - ["[1][0]" unsigned (.only U1) ("u1//[0]" equivalence)]]]) + ["[1][0]" unsigned (.only U1) (.open: "u1//[0]" equivalence)]]]) (primitive: .public Tag U1 diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux index ade45a2f0..1b8407723 100644 --- a/stdlib/source/library/lux/target/jvm/field.lux +++ b/stdlib/source/library/lux/target/jvm/field.lux @@ -7,7 +7,7 @@ [data ["[0]" product] [format - ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) (.open: "[1]#[0]" monoid)]] [collection ["[0]" sequence (.only Sequence)]]]]] ["[0]" // diff --git a/stdlib/source/library/lux/target/jvm/method.lux b/stdlib/source/library/lux/target/jvm/method.lux index 5fcb74c45..bf2b73cdb 100644 --- a/stdlib/source/library/lux/target/jvm/method.lux +++ b/stdlib/source/library/lux/target/jvm/method.lux @@ -9,7 +9,7 @@ [data ["[0]" product] ["[0]" format - ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]] + ["[1]" binary (.only Writer) (.open: "[1]#[0]" monoid)]] [collection ["[0]" sequence (.only Sequence)]]]]] ["[0]" // diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index cdfe9e9a0..0941e09b1 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -6,15 +6,15 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] [parser ["<t>" text]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix functor)] + ["[0]" list (.open: "[1]#[0]" mix functor)] ["[0]" array] ["[0]" dictionary]]] [macro diff --git a/stdlib/source/library/lux/target/jvm/type.lux b/stdlib/source/library/lux/target/jvm/type.lux index cfb14dfa9..21528b3a3 100644 --- a/stdlib/source/library/lux/target/jvm/type.lux +++ b/stdlib/source/library/lux/target/jvm/type.lux @@ -10,7 +10,7 @@ ["[0]" text (.only) ["%" format (.only Format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/target/jvm/type/descriptor.lux b/stdlib/source/library/lux/target/jvm/type/descriptor.lux index e8cf0ba6b..7ded981d8 100644 --- a/stdlib/source/library/lux/target/jvm/type/descriptor.lux +++ b/stdlib/source/library/lux/target/jvm/type/descriptor.lux @@ -6,10 +6,10 @@ [control ["[0]" maybe]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index 60ca730d2..b63cafeab 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -6,18 +6,18 @@ [control ["[0]" try] ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" text (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" array] ["[0]" dictionary (.only Dictionary)]]] [type [primitive (.except)] - ["[0]" check (.only Check) ("[1]#[0]" monad)]]]] + ["[0]" check (.only Check) (.open: "[1]#[0]" monad)]]]] ["[0]" // (.only) [category (.only Void Value Return Method Primitive Object Class Array Var Parameter)] ["[1][0]" descriptor] diff --git a/stdlib/source/library/lux/target/jvm/type/parser.lux b/stdlib/source/library/lux/target/jvm/type/parser.lux index 4a0aa756c..a58a6d8d7 100644 --- a/stdlib/source/library/lux/target/jvm/type/parser.lux +++ b/stdlib/source/library/lux/target/jvm/type/parser.lux @@ -6,7 +6,7 @@ [control ["[0]" try] ["[0]" function] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" text (.only Parser)]]] [data ["[0]" product] diff --git a/stdlib/source/library/lux/target/jvm/type/reflection.lux b/stdlib/source/library/lux/target/jvm/type/reflection.lux index e6f51e411..47c5d7d73 100644 --- a/stdlib/source/library/lux/target/jvm/type/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/type/reflection.lux @@ -4,7 +4,7 @@ [abstract [equivalence (.only Equivalence)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [type [primitive (.except)]]]] diff --git a/stdlib/source/library/lux/target/jvm/type/signature.lux b/stdlib/source/library/lux/target/jvm/type/signature.lux index ef9d139ea..f66989972 100644 --- a/stdlib/source/library/lux/target/jvm/type/signature.lux +++ b/stdlib/source/library/lux/target/jvm/type/signature.lux @@ -7,10 +7,10 @@ [control ["[0]" pipe]] [data - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [type [primitive (.except)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux index e0bed2c3c..f334dbc83 100644 --- a/stdlib/source/library/lux/target/lua.lux +++ b/stdlib/source/library/lux/target/lua.lux @@ -14,7 +14,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux index 7b9cec65a..52f872a04 100644 --- a/stdlib/source/library/lux/target/php.lux +++ b/stdlib/source/library/lux/target/php.lux @@ -14,7 +14,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux index ae3904333..ae5014d34 100644 --- a/stdlib/source/library/lux/target/python.lux +++ b/stdlib/source/library/lux/target/python.lux @@ -15,7 +15,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index c16e07eac..0d4e813dc 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -4,14 +4,14 @@ [control ["[0]" pipe] ["[0]" function] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] [parser ["<[0]>" code]]] [data ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux index a157e513b..356906d27 100644 --- a/stdlib/source/library/lux/target/ruby.lux +++ b/stdlib/source/library/lux/target/ruby.lux @@ -14,7 +14,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)] ["[0]" template] diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux index e3e6fb09b..e77a76d6d 100644 --- a/stdlib/source/library/lux/target/scheme.lux +++ b/stdlib/source/library/lux/target/scheme.lux @@ -11,7 +11,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux index e72427137..71c7c1a53 100644 --- a/stdlib/source/library/lux/test.lux +++ b/stdlib/source/library/lux/test.lux @@ -13,7 +13,7 @@ ["[0]" io] [concurrency ["[0]" atom (.only Atom)] - ["[0]" async (.only Async) ("[1]#[0]" monad)]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]] ["<>" parser (.only) ["<[0]>" code]]] [data @@ -21,7 +21,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set (.only Set)] ["[0]" dictionary ["[1]" ordered (.only Dictionary)]]]] @@ -29,7 +29,7 @@ ["[0]" instant] ["[0]" duration (.only Duration)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number (.only hex) ["n" nat] ["f" frac]]] diff --git a/stdlib/source/library/lux/time.lux b/stdlib/source/library/lux/time.lux index 79343f319..d0f07d610 100644 --- a/stdlib/source/library/lux/time.lux +++ b/stdlib/source/library/lux/time.lux @@ -14,10 +14,10 @@ ["<>" parser (.only) ["<[0]>" text (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [math [number - ["n" nat ("[1]#[0]" decimal)]]] + ["n" nat (.open: "[1]#[0]" decimal)]]] [type [primitive (.except)]]]] [/ diff --git a/stdlib/source/library/lux/time/date.lux b/stdlib/source/library/lux/time/date.lux index 1d0df3aca..3327f15e8 100644 --- a/stdlib/source/library/lux/time/date.lux +++ b/stdlib/source/library/lux/time/date.lux @@ -14,13 +14,13 @@ ["<>" parser (.only) ["<[0]>" text (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" monoid)] [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" dictionary (.only Dictionary)]]] [math [number - ["n" nat ("[1]#[0]" decimal)] + ["n" nat (.open: "[1]#[0]" decimal)] ["i" int]]] [type [primitive (.except)]]]] diff --git a/stdlib/source/library/lux/time/day.lux b/stdlib/source/library/lux/time/day.lux index 590d850ed..a245c924b 100644 --- a/stdlib/source/library/lux/time/day.lux +++ b/stdlib/source/library/lux/time/day.lux @@ -11,7 +11,7 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [macro ["^" pattern] ["[0]" template]] diff --git a/stdlib/source/library/lux/time/duration.lux b/stdlib/source/library/lux/time/duration.lux index 4616890db..75fcddefd 100644 --- a/stdlib/source/library/lux/time/duration.lux +++ b/stdlib/source/library/lux/time/duration.lux @@ -13,11 +13,11 @@ ["<>" parser (.only) ["<[0]>" text (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [math [number ["i" int] - ["[0]" nat ("[1]#[0]" decimal)]]] + ["[0]" nat (.open: "[1]#[0]" decimal)]]] [type [primitive (.except)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/time/instant.lux b/stdlib/source/library/lux/time/instant.lux index 4d36a5a7d..3a6071f59 100644 --- a/stdlib/source/library/lux/time/instant.lux +++ b/stdlib/source/library/lux/time/instant.lux @@ -16,7 +16,7 @@ ["<>" parser (.only) ["<[0]>" text (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [math [number ["i" int] diff --git a/stdlib/source/library/lux/time/month.lux b/stdlib/source/library/lux/time/month.lux index 65cc2f570..0b8d8b8a8 100644 --- a/stdlib/source/library/lux/time/month.lux +++ b/stdlib/source/library/lux/time/month.lux @@ -11,7 +11,7 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [macro ["^" pattern] ["[0]" template]] diff --git a/stdlib/source/library/lux/time/year.lux b/stdlib/source/library/lux/time/year.lux index aac70a1b3..d10df7456 100644 --- a/stdlib/source/library/lux/time/year.lux +++ b/stdlib/source/library/lux/time/year.lux @@ -12,11 +12,11 @@ ["<>" parser (.only) ["<[0]>" text (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" monoid)]] + ["[0]" text (.open: "[1]#[0]" monoid)]] [math [number - ["n" nat ("[1]#[0]" decimal)] - ["i" int ("[1]#[0]" decimal)]]] + ["n" nat (.open: "[1]#[0]" decimal)] + ["i" int (.open: "[1]#[0]" decimal)]]] [type [primitive (.except)]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux index 1b91c925c..6ddca02cf 100644 --- a/stdlib/source/library/lux/tool/compiler/default/init.lux +++ b/stdlib/source/library/lux/tool/compiler/default/init.lux @@ -11,13 +11,13 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary] ["[0]" set] - ["[0]" sequence ("[1]#[0]" functor)]]] + ["[0]" sequence (.open: "[1]#[0]" functor)]]] [meta ["[0]" configuration (.only Configuration)] ["[0]" version]] diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index 72504779c..680a6a759 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -9,22 +9,22 @@ [control ["[0]" function] ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" try (.only Try) (.open: "[1]#[0]" monad)] ["[0]" exception (.only exception:)] [concurrency - ["[0]" async (.only Async Resolver) ("[1]#[0]" monad)] + ["[0]" async (.only Async Resolver) (.open: "[1]#[0]" monad)] ["[0]" stm (.only Var STM)]]] [data ["[0]" binary (.only Binary)] ["[0]" bit] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" dictionary (.only Dictionary)] - ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" mix)] ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" monoid functor mix)]] + ["[0]" list (.open: "[1]#[0]" monoid functor mix)]] [format ["_" binary (.only Writer)]]] ["[0]" meta (.only) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux index d79a962ca..0c8e86526 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux @@ -14,11 +14,11 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only Format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro [syntax (.only syntax:)]] [math diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/complex.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/complex.lux index 633d8868b..65c8db0cb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/complex.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/complex.lux @@ -5,11 +5,11 @@ [equivalence (.only Equivalence)] [hash (.only Hash)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format (.only Format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux index 0a13c9c40..4573ad571 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux @@ -5,23 +5,23 @@ [equivalence (.except)] ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" monoid monad)] + ["[0]" maybe (.open: "[1]#[0]" monoid monad)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] - ["[0]" set (.only Set) ("[1]#[0]" equivalence)]]] + ["[0]" set (.only Set) (.open: "[1]#[0]" equivalence)]]] [macro ["^" pattern] ["[0]" template]] [math [number - ["n" nat ("[1]#[0]" interval)] + ["n" nat (.open: "[1]#[0]" interval)] ["i" int] ["r" rev] ["f" frac]]]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/inference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/inference.lux index 8b3ec93ca..7ac9ebff8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/inference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/inference.lux @@ -13,7 +13,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [macro ["^" pattern] ["[0]" template]] @@ -28,7 +28,7 @@ [phase ["[0]" extension]] [/// - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux index 46ac4596a..9aabc7d10 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/module.lux @@ -8,10 +8,10 @@ ["[0]" try] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix functor)] + ["[0]" list (.open: "[1]#[0]" mix functor)] [dictionary ["[0]" plist]]]] ["[0]" meta]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux index 970c62d7c..bf221d35b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/scope.lux @@ -4,14 +4,14 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" monad)] + ["[0]" maybe (.open: "[1]#[0]" monad)] ["[0]" try] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor mix monoid)] + ["[0]" list (.open: "[1]#[0]" functor mix monoid)] [dictionary ["[0]" plist]]]]]] ["/" // (.only Environment Operation Phase) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/simple.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/simple.lux index ff3deb58d..4907be964 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/simple.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/simple.lux @@ -4,8 +4,8 @@ [abstract [equivalence (.only Equivalence)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only Format)]]] [macro ["^" pattern]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux index 39e1fae5d..7f1c5d418 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux @@ -7,7 +7,7 @@ ["[0]" try]] [data [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]]]] [// ["[0]" analysis] ["[0]" synthesis] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux index 829cbb4a4..1499d8081 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux @@ -10,11 +10,11 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" sequence (.only Sequence)] - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set (.only Set)]]] [macro ["^" pattern] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux index 7fd1b74a9..70dd51a99 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case.lux @@ -13,7 +13,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix monoid monad)]]] + ["[0]" list (.open: "[1]#[0]" mix monoid monad)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux index 411440e41..eeb30664f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux @@ -11,10 +11,10 @@ ["[0]" state]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" dictionary (.only Dictionary)]]] [macro ["[0]" code]] @@ -35,7 +35,7 @@ ["[1][0]" type] ["[1][0]" inference]] [/// - ["[1]" phase ("[1]#[0]" monad)] + ["[1]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux index 57dfe4a2f..19e415b29 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/function.lux @@ -13,7 +13,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monoid monad)]]] + ["[0]" list (.open: "[1]#[0]" monoid monad)]]] [math [number ["n" nat]]] @@ -27,7 +27,7 @@ ["[1][0]" inference] ["[1][0]" scope]] [/// - ["[1]" phase ("[1]#[0]" functor)] + ["[1]" phase (.open: "[1]#[0]" functor)] [reference (.only) [variable (.only)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux index 0bbb089ce..cea38091d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/reference.lux @@ -7,7 +7,7 @@ [control ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [macro ["^" pattern]]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux index a007bdb45..be4a0fd6f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/directive.lux @@ -11,7 +11,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix monoid)]]]]] + ["[0]" list (.open: "[1]#[0]" mix monoid)]]]]] ["[0]" // ["[1][0]" extension] ["[1][0]" analysis] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux index ed854b3cb..493776886 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension.lux @@ -11,7 +11,7 @@ ["[0]" exception (.only exception:)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" order) + ["[0]" text (.open: "[1]#[0]" order) ["%" format (.only Format format)]] [collection ["[0]" list] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux index 49ac7d0fd..b7feef155 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux @@ -8,8 +8,8 @@ ["[0]" predicate]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" monad)] ["[0]" exception (.only exception:)] ["<>" parser (.only) ["<[0]>" code (.only Parser)] @@ -17,10 +17,10 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix monad monoid)] + ["[0]" list (.open: "[1]#[0]" mix monad monoid)] ["[0]" array] ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]] @@ -36,8 +36,8 @@ [target ["[0]" jvm ["[0]!" reflection] - ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["_" bytecode (.only Bytecode) (.open: "[1]#[0]" monad)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" attribute] ["[0]" field] ["[0]" version] @@ -47,7 +47,7 @@ ["[0]" pool (.only Resource)]] [encoding ["[0]" name (.only External)]] - ["[1]" type (.only Type Argument Typed) ("[1]#[0]" equivalence) + ["[1]" type (.only Type Argument Typed) (.open: "[1]#[0]" equivalence) ["[0]" category (.only Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method)] ["[0]" box] ["[0]" reflection] @@ -57,7 +57,7 @@ ["[0]" alias (.only Aliasing)] ["[0]T" lux (.only Mapping)]]]] ["[0]" type (.only) - ["[0]" check (.only Check) ("[1]#[0]" monad)]]]] + ["[0]" check (.only Check) (.open: "[1]#[0]" monad)]]]] ["[0]" // ["[1][0]" lux (.only custom)] ["/[1]" // (.only) @@ -78,7 +78,7 @@ ["[0]A" type] ["[0]" scope]] [/// - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive) [module diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux index 3f973aadb..76f36e336 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux @@ -13,7 +13,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux index 7929f2f83..b770c31cc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/bundle.lux @@ -7,7 +7,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]]]] [// (.only Handler Bundle)]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux index 4bf7e260c..025e863d3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/jvm.lux @@ -6,9 +6,9 @@ ["[0]" monad (.only do)]] [control ["[0]" pipe] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)] ["<[0]>" text] ["<[0]>" synthesis]]] @@ -18,7 +18,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary] ["[0]" sequence] ["[0]" set (.only Set)]] @@ -33,8 +33,8 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["_" bytecode (.only Bytecode) (.open: "[1]#[0]" monad)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" attribute] ["[0]" field] ["[0]" version] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux index b8302f85c..b66e2cc05 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux @@ -7,7 +7,7 @@ ["[0]" monad (.only do)]] [control [io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try] ["[0]" exception (.only exception:)] ["<>" parser (.only) @@ -20,7 +20,7 @@ [collection ["[0]" dictionary] ["[0]" array] - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set (.only Set)]]] [macro ["^" pattern] @@ -28,7 +28,7 @@ [math [number ["n" nat]]] - ["[0]" type (.only sharing) ("[1]#[0]" equivalence) + ["[0]" type (.only sharing) (.open: "[1]#[0]" equivalence) ["[0]" check]]]] ["[0]" /// (.only Extender) ["[1][0]" bundle] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux index 49681e787..355dd5182 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/common.lux @@ -15,7 +15,7 @@ [collection ["[0]" dictionary] ["[0]" set] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux index b12fc2949..f9ad9a81e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux @@ -10,7 +10,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary]]] [macro ["^" pattern]] @@ -37,7 +37,7 @@ [// ["[0]" synthesis (.only %synthesis)] [/// - ["[1]" phase ("[1]#[0]" monad)]]]]]) + ["[1]" phase (.open: "[1]#[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux index 2da6d5756..cbae57e3c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/common.lux @@ -11,7 +11,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" dictionary]]] [math [number @@ -19,7 +19,7 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] + ["_" bytecode (.only Label Bytecode) (.open: "[1]#[0]" monad)] [encoding ["[0]" signed (.only S4)]] ["[0]" type (.only Type) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux index eaf40a8ee..4e60e6693 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux @@ -4,17 +4,17 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] ["<>" parser (.only) ["<[0]>" text] ["<[0]>" synthesis (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [collection - ["[0]" list ("[1]#[0]" monad mix monoid)] + ["[0]" list (.open: "[1]#[0]" monad mix monoid)] ["[0]" dictionary (.only Dictionary)] ["[0]" set (.only Set)] ["[0]" sequence]] @@ -30,14 +30,14 @@ [target [jvm ["[0]" version] - ["[0]" modifier ("[1]#[0]" monoid)] + ["[0]" modifier (.open: "[1]#[0]" monoid)] ["[0]" method (.only Method)] ["[0]" class (.only Class)] [constant [pool (.only Resource)]] [encoding ["[0]" name]] - ["_" bytecode (.only Bytecode) ("[1]#[0]" monad) + ["_" bytecode (.only Bytecode) (.open: "[1]#[0]" monad) ["__" instruction (.only Primitive_Array_Type)]] ["[0]" type (.only Type Typed Argument) ["[0]" category (.only Void Value' Value Return' Return Primitive Object Array Var Parameter)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux index f06cab2c6..834d3448c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/common.lux @@ -14,7 +14,7 @@ ["%" format (.only format)]] [collection ["[0]" dictionary] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math @@ -41,7 +41,7 @@ ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// - ["[1]" phase ("[1]#[0]" monad)]]]]]) + ["[1]" phase (.open: "[1]#[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux index 25eeba0bc..ef05fe70f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/common.lux @@ -15,7 +15,7 @@ [collection ["[0]" dictionary] ["[0]" set] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux index b7219747b..22ffda36e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/common.lux @@ -14,7 +14,7 @@ ["%" format (.only format)]] [collection ["[0]" dictionary] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math @@ -43,7 +43,7 @@ ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// - ["[1]" phase ("[1]#[0]" monad)]]]]]) + ["[1]" phase (.open: "[1]#[0]" monad)]]]]]) (def: .public (statement expression archive synthesis) Phase! diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux index afd160be3..35e433e8e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/common.lux @@ -15,7 +15,7 @@ [collection ["[0]" dictionary] ["[0]" set] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux index c0bfdf7ed..e7395899b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/common.lux @@ -14,7 +14,7 @@ ["%" format (.only format)]] [collection ["[0]" dictionary] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math @@ -41,7 +41,7 @@ ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// - ["[1]" phase ("[1]#[0]" monad)]]]]]) + ["[1]" phase (.open: "[1]#[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux index 8d445eb3c..9dbea2892 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/common.lux @@ -15,7 +15,7 @@ [collection ["[0]" dictionary] ["[0]" set] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux index f88c04f0a..33572414f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp.lux @@ -21,7 +21,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux index 6f93eb386..7a5c774c4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/case.lux @@ -9,7 +9,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix monoid)] + ["[0]" list (.open: "[1]#[0]" functor mix monoid)] ["[0]" set]]] [macro ["^" pattern]] @@ -33,7 +33,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux index 412bf27b7..77569b17e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/function.lux @@ -10,7 +10,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [target ["_" common_lisp (.only Expression Var/1)]]]] ["[0]" // @@ -25,7 +25,7 @@ ["[1][0]" generation (.only Context)] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference [variable (.only Register Variable)]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux index d80a015e6..287d9a6c3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux index efbf5c321..e9bbd9a5c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux @@ -10,11 +10,11 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] ["[0]" encoding]] [collection - ["[0]" list ("[1]#[0]" functor monoid)] + ["[0]" list (.open: "[1]#[0]" functor monoid)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux index 4498fdb1f..b14e852b1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/structure.lux @@ -12,7 +12,7 @@ [analysis (.only Variant Tuple)] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux index 5bfe69fea..317114afc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/extension.lux @@ -8,7 +8,7 @@ ["<[0]>" code]]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] ["[0]" meta] ["[0]" macro (.only with_symbols) ["[0]" code] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux index dde4dcea2..02540a965 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js.lux @@ -28,7 +28,7 @@ [analysis (.only)] ["[0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux index 13d1ed400..9afe42e0c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux @@ -8,7 +8,7 @@ [data ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math @@ -32,7 +32,7 @@ ["//[1]" /// [reference [variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux index 69db5cdd4..69b575162 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" js (.only Expression Computation Var Statement)]]]] ["[0]" // @@ -23,7 +23,7 @@ ["[1][0]" generation] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference [variable (.only Register Variable)]] [meta diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux index 32823cd17..9849f3981 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux index 5605d56ee..12359b713 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux index b57b4b344..14e911912 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/structure.lux @@ -13,7 +13,7 @@ [analysis [complex (.only Variant Tuple)]] ["//[1]" /// (.only) - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux index 73c286f0c..c4b026541 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux @@ -19,7 +19,7 @@ ["[0]" synthesis] [/// ["[0]" reference] - ["[1]" phase ("[1]#[0]" monad)]]]]]) + ["[1]" phase (.open: "[1]#[0]" monad)]]]]]) (def: .public (generate archive synthesis) Phase diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux index e718b504d..8fb2dcd0c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux @@ -7,8 +7,8 @@ ["[0]" function]] [data [collection - ["[0]" list ("[1]#[0]" mix)]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" list (.open: "[1]#[0]" mix)]] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [macro ["^" pattern]] @@ -18,7 +18,7 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad) + ["_" bytecode (.only Label Bytecode) (.open: "[1]#[0]" monad) [environment [limit ["[0]" stack]]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux index b89b43d67..28e90a032 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux @@ -6,7 +6,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" monoid functor)] + ["[0]" list (.open: "[1]#[0]" monoid functor)] ["[0]" sequence]] ["[0]" format ["[1]" binary]]] @@ -17,10 +17,10 @@ [target [jvm ["[0]" version] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" field (.only Field)] ["[0]" method (.only Method)] - ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] + ["_" bytecode (.only Label Bytecode) (.open: "[1]#[0]" monad)] ["[0]" class (.only Class)] ["[0]" type (.only Type) [category (.only Return' Value')] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux index 7d2ad1f85..4aea4dc4f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant.lux @@ -7,7 +7,7 @@ [target [jvm ["[0]" field (.only Field)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] [type (.only Type) [category (.only Value)]] [constant diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux index 2a0bc8cd9..737c6ac4b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux @@ -3,11 +3,11 @@ [lux (.except Type type) [data [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] [target [jvm - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" field (.only Field)] ["_" bytecode (.only Bytecode)] [type (.only Type) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux index 810ce179e..1684e6f8c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/partial.lux @@ -5,14 +5,14 @@ ["[0]" monad]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] [target [jvm ["[0]" field (.only Field)] - ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] + ["_" bytecode (.only Bytecode) (.open: "[1]#[0]" monad)] [type (.only Type) [category (.only Class)]] [constant diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux index 83a14abc9..1301e055c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method.lux @@ -3,7 +3,7 @@ [lux (.except) [target [jvm - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" method (.only Method)]]]]]) (def: .public modifier diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux index 19f568571..69e7d5332 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/apply.lux @@ -7,7 +7,7 @@ ["[0]" try]] [data [collection - ["[0]" list ("[1]#[0]" monoid functor)]]] + ["[0]" list (.open: "[1]#[0]" monoid functor)]]] [math [number ["n" nat] @@ -15,7 +15,7 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] + ["_" bytecode (.only Label Bytecode) (.open: "[1]#[0]" monad)] ["[0]" method (.only Method)] [constant [pool (.only Resource)]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux index 53f43707d..e7e970d87 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/implementation.lux @@ -9,7 +9,7 @@ ["n" nat]]] [target [jvm - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" method (.only Method)] ["_" bytecode (.only Label Bytecode)] [constant diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux index da0d00cb2..32a1e4de8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/init.lux @@ -7,7 +7,7 @@ ["[0]" try]] [data [collection - ["[0]" list ("[1]#[0]" monoid functor)]]] + ["[0]" list (.open: "[1]#[0]" monoid functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux index f52b7d682..51ceaf844 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux @@ -3,7 +3,7 @@ [lux (.except Type type) [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [target [jvm ["[0]" method (.only Method)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux index dc28346dc..ebd1008a1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/host.lux @@ -14,7 +14,7 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)]] [collection ["[0]" array] @@ -26,7 +26,7 @@ [jvm ["_" bytecode (.only Bytecode)] ["[0]" loader (.only Library)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" field (.only Field)] ["[0]" method (.only Method)] ["[0]" version] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux index a0d7cffbc..f06d37da3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/loop.lux @@ -8,13 +8,13 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] [target [jvm - ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)]]]]] + ["_" bytecode (.only Bytecode) (.open: "[1]#[0]" monad)]]]]] ["[0]" // ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" value] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux index 94df434f2..6f9aa8aa3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/program.lux @@ -13,7 +13,7 @@ [target [jvm ["_" bytecode (.only Bytecode)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" method (.only Method)] ["[0]" version] ["[0]" class (.only Class)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux index 9ff51ff95..d923ea65d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/runtime.lux @@ -10,7 +10,7 @@ [binary (.only Binary)] ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]] ["[0]" format ["[1]" binary]] @@ -26,7 +26,7 @@ [target ["[0]" jvm ["_" bytecode (.only Label Bytecode)] - ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" modifier (.only Modifier) (.open: "[1]#[0]" monoid)] ["[0]" field (.only Field)] ["[0]" method (.only Method)] ["[1]/[0]" version] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux index d2fdbb1cc..a415f60fa 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux @@ -4,7 +4,7 @@ [target [jvm ["_" bytecode (.only Bytecode)] - ["[0]" type (.only Type) ("[1]#[0]" equivalence) + ["[0]" type (.only Type) (.open: "[1]#[0]" equivalence) [category (.only Primitive)] ["[0]" box]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux index 859c60b50..8d861e382 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua.lux @@ -28,7 +28,7 @@ [analysis (.only)] ["[0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux index 59d0fa42d..c65093838 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/case.lux @@ -7,7 +7,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] @@ -30,7 +30,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux index d2907e282..a8757090a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" lua (.only Var Expression Label Statement)]]]] ["[0]" // @@ -23,7 +23,7 @@ ["[1][0]" generation] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive ["[0]" unit]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux index 66b05a97e..c79123870 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux index 4f31dd592..9b72bdf74 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux index 1b8610f2b..65ed33699 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/structure.lux @@ -13,7 +13,7 @@ [analysis [complex (.only Variant Tuple)]] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple phase archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux index 38c06a8c2..3d2107867 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux @@ -25,7 +25,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux index 03c82f322..9815d9e3e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/case.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] @@ -32,7 +32,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux index e304677d2..b6c9d1ab2 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/function.lux @@ -10,7 +10,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" php (.only Var Global Expression Argument Label Statement)]]]] ["[0]" // @@ -25,7 +25,7 @@ ["[1][0]" generation (.only Context)] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference [variable (.only Register Variable)]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux index 5fab85e16..633b2c724 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set (.only Set)]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux index 68b9671b1..649463554 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux index e843e0676..d7a945e58 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/structure.lux @@ -15,7 +15,7 @@ [analysis (.only Variant Tuple)] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux index 96a5ebc4e..f3e8d85b8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python.lux @@ -28,7 +28,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux index cbf957e34..dbb669dd8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/case.lux @@ -7,7 +7,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] @@ -34,7 +34,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)] ["[0]" cache diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux index ee09d8060..feb8d0c26 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/function.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" python (.only SVar Expression Statement)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux index d48bad978..d4e202ffc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/loop.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux index 135f8db40..bc10a524b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux @@ -9,12 +9,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux index d8e397694..560fb1c49 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/structure.lux @@ -13,7 +13,7 @@ [complex (.only Variant Tuple)]] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux index 8c8ec4fea..3e4cf4f0e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux @@ -23,7 +23,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux index 60f553909..1ad75fe08 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/case.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern] @@ -33,7 +33,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux index a523fc621..59b92e776 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux @@ -10,7 +10,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" r (.only Expression SVar)]]]] ["[0]" // @@ -25,7 +25,7 @@ ["[1][0]" generation (.only Context)] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference [variable (.only Register Variable)]] [meta diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux index c71e536d2..f3756aad8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/loop.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set (.only Set)]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux index 9bee4f953..e430bfaff 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] @@ -23,7 +23,7 @@ [math [number (.only hex) ["n" nat] - ["i" int ("[1]#[0]" interval)] + ["i" int (.open: "[1]#[0]" interval)] ["[0]" i64]]] ["@" target (.only) ["_" r (.only SVar Expression)]]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux index 82dc15ca4..f41b3268d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/structure.lux @@ -15,7 +15,7 @@ [analysis (.only Variant Tuple)] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux index 0c7d531b9..f93648d04 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/reference.lux @@ -10,7 +10,7 @@ ["[0]" //// ["[1][0]" generation] ["//[1]" /// - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] ["[0]" reference (.only Reference) ["[0]" variable (.only Register Variable)]] [meta diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux index 218c8f226..f0e8638e4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby.lux @@ -28,7 +28,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux index bf7a4bc42..0f805e277 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/case.lux @@ -9,7 +9,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] @@ -36,7 +36,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux index c32ea1cc3..d0ff811b2 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux @@ -8,7 +8,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [target ["_" ruby (.only LVar GVar Expression Statement)]]]] ["[0]" // diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux index e5acb087a..3686ad6d9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux index bb811fc61..e309396f2 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] @@ -23,7 +23,7 @@ [math [number (.only hex) ["[0]" i64] - ["[0]" int ("[1]#[0]" interval)]]] + ["[0]" int (.open: "[1]#[0]" interval)]]] ["@" target (.only) ["_" ruby (.only Expression LVar Computation Literal Statement)]]]] ["[0]" /// diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux index 4ebe22359..791f06d76 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/structure.lux @@ -13,7 +13,7 @@ [complex (.only Variant Tuple)]] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux index 3e9b76aa3..061a5c26c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux @@ -23,7 +23,7 @@ [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux index d111d7349..0c5465e96 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern] @@ -33,7 +33,7 @@ ["//[1]" /// [reference ["[1][0]" variable (.only Register)]] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta [archive (.only Archive)]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux index fe13c1aa2..f74911bc3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension/common.lux @@ -13,7 +13,7 @@ [number (.only hex) ["f" frac]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["dict" dictionary (.only Dictionary)]]] ["[0]" macro (.only with_symbols) ["[0]" code] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux index baf83633b..c937c11e7 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/function.lux @@ -10,7 +10,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [target ["_" scheme (.only Expression Computation Var)]]]] ["[0]" // @@ -25,7 +25,7 @@ ["[1][0]" generation (.only Context)] ["//[1]" /// [arity (.only Arity)] - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference [variable (.only Register Variable)]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux index 0f7a9c50a..6796a3944 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux @@ -8,7 +8,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set (.only Set)]]] [math [number diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux index c60d67bd1..94b77f919 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux @@ -10,12 +10,12 @@ ["<[0]>" code]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux index 2c90b2010..ec1611ddf 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux @@ -15,7 +15,7 @@ [analysis (.only Variant Tuple)] ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]) (def: .public (tuple expression archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux index 0600ba9c0..99db4589b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis.lux @@ -8,7 +8,7 @@ ["[0]" try]] [data [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]]]] @@ -25,7 +25,7 @@ ["[2][0]" simple] ["[2][0]" complex]] [/// - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] [reference (.only) [variable (.only)]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux index 5890ab241..bdbcdeb02 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/case.lux @@ -8,10 +8,10 @@ ["[0]" pipe]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" functor mix monoid)] + ["[0]" list (.open: "[1]#[0]" functor mix monoid)] ["[0]" set (.only Set)]]] [macro ["^" pattern]] @@ -31,7 +31,7 @@ ["[2][0]" side] ["[2][0]" member (.only Member)]]] [/// - ["[1]" phase ("[1]#[0]" monad)] + ["[1]" phase (.open: "[1]#[0]" monad)] ["[1][0]" reference (.only) ["[1]/[0]" variable (.only Register Variable)]] [meta diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux index f1e08702f..dec9a0177 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/function.lux @@ -6,13 +6,13 @@ ["[0]" enum]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)]] [data [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [macro ["^" pattern]] [math @@ -26,7 +26,7 @@ ["/" synthesis (.only Path Abstraction Synthesis Operation Phase)] [/// [arity (.only Arity)] - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] ["[1][0]" reference (.only) ["[1]/[0]" variable (.only Register Variable)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux index e8388ed17..b3cb4d704 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/loop.lux @@ -4,7 +4,7 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data [collection ["[0]" list]]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux index f774ddb6d..584612bbb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/synthesis/variable.lux @@ -4,7 +4,7 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data @@ -13,7 +13,7 @@ ["%" format]] [collection ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux index 30276425b..11d63955b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux @@ -12,7 +12,7 @@ [text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]]]] + ["[0]" list (.open: "[1]#[0]" functor)]]]]] [//// [meta ["[0]" archive (.only Archive) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux index fbc202680..d1cad0503 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux @@ -11,11 +11,11 @@ [data ["[0]" sum] ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only Format format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/simple.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/simple.lux index f925aa95c..17419d58f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/simple.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/simple.lux @@ -7,14 +7,14 @@ [control ["[0]" pipe]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]]] [macro ["^" pattern]] [math [number - ["[0]" i64 ("[1]#[0]" equivalence)] + ["[0]" i64 (.open: "[1]#[0]" equivalence)] ["n" nat] ["i" int] ["f" frac]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 41d12fdc2..b88b57053 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -19,13 +19,13 @@ [format ["[0]" binary (.only Writer)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" set] ["[0]" sequence (.only Sequence)]]] [math [number - ["n" nat ("[1]#[0]" equivalence)]]] + ["n" nat (.open: "[1]#[0]" equivalence)]]] [type [primitive (.except)]]]] [/ diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact/category.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact/category.lux index 085e3d001..146b2d12d 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact/category.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact/category.lux @@ -7,7 +7,7 @@ ["[0]" maybe]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux index 7daff5d95..7f0f4faeb 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/module/document.lux @@ -16,7 +16,7 @@ [type (.only sharing) [primitive (.except)]]]] [/// - ["[0]" signature (.only Signature) ("[1]#[0]" equivalence)] + ["[0]" signature (.only Signature) (.open: "[1]#[0]" equivalence)] ["[0]" key (.only Key)]]) (exception: .public (invalid_signature [expected Signature diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux index 56586bd2e..3b849a479 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux @@ -5,7 +5,7 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] ["<>" parser (.only) ["<[0]>" binary (.only Parser)]]] @@ -16,7 +16,7 @@ [collection [set (.only Set)] ["[0]" list] - ["[0]" sequence (.only Sequence) ("[1]#[0]" functor mix)] + ["[0]" sequence (.only Sequence) (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)]] [format ["[0]" binary (.only Writer)]]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux index 18a6165f6..8008fe5a6 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/artifact.lux @@ -8,7 +8,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" monoid mix monad)] + ["[0]" list (.open: "[1]#[0]" monoid mix monad)] ["[0]" set (.only Set)] ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux index fb2fa3ab8..b1d64ebb5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency/module.lux @@ -4,7 +4,7 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" state] [function @@ -13,7 +13,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" set (.only Set)]]]]] [//// diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux index 35cb42cac..9a4ed2e1b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux @@ -11,10 +11,10 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] [world ["[0]" file]]]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux index 8cb425843..6ccdcdd56 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux @@ -5,13 +5,13 @@ [predicate (.only Predicate)] ["[0]" monad (.only Monad do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" mix functor)] + ["[0]" list (.open: "[1]#[0]" mix functor)] ["[0]" dictionary (.only Dictionary)] ["[0]" set]]] [math diff --git a/stdlib/source/library/lux/tool/compiler/meta/cli.lux b/stdlib/source/library/lux/tool/compiler/meta/cli.lux index a3e631d17..d611dde33 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cli.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cli.lux @@ -14,7 +14,7 @@ ["[0]" text (.only) ["%" format]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux b/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux index bdd1e8714..1d37314b6 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux @@ -12,7 +12,7 @@ ["[0]" text (.only) ["%" format]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number (.only hex)]] [meta diff --git a/stdlib/source/library/lux/tool/compiler/meta/export.lux b/stdlib/source/library/lux/tool/compiler/meta/export.lux index e5391b566..21c75e46c 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/export.lux @@ -4,9 +4,9 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" try (.only Try) (.open: "[1]#[0]" monad)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" functor)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" functor)]]] [data ["[0]" text (.only) ["%" format (.only format)]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux index d5aadcdd9..435a8d3fb 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -7,17 +7,17 @@ [control ["[0]" try (.only Try)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]] ["<>" parser (.only) ["<[0]>" binary (.only Parser)]]] [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection [set (.only Set)] - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" sequence (.only Sequence)]]] [macro diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux index 06c7fb4f8..96e91fbd6 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux @@ -10,10 +10,10 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data [binary (.only Binary)] - ["[0]" text ("[1]#[0]" hash) + ["[0]" text (.open: "[1]#[0]" hash) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux index a45d43772..1543e082f 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux @@ -9,7 +9,7 @@ [collection [dictionary (.only Dictionary)] ["[0]" sequence] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [world ["[0]" file]]]] [// diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux index 197d404b8..63df754f0 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux @@ -5,7 +5,7 @@ [abstract ["[0]" monad (.only Monad do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)]] [data ["[0]" binary (.only Binary)] @@ -13,7 +13,7 @@ ["%" format (.only format)]] [collection ["[0]" sequence] - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary] ["[0]" set (.only Set)]]] [math diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux index a1b7bb6a3..1fbd7ddc9 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux @@ -15,7 +15,7 @@ ["[0]" utf8]]] [collection ["[0]" sequence] - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" set (.only Set)]]] [math diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux index 5c6ba160e..d99635b00 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -14,7 +14,7 @@ ["[0]" encoding]] [collection ["[0]" sequence] - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" set]] [format diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux index 4503723f9..9c140909d 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux @@ -16,7 +16,7 @@ [collection ["[0]" sequence] ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" functor)]]]]] + ["[0]" list (.open: "[1]#[0]" functor)]]]]] ["[0]" // (.only Packager) [// ["[0]" archive (.only Output) diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index 35e8215f6..213d40339 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -6,7 +6,7 @@ [monad (.only Monad do)]] [control ["[0]" state] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only Exception)] ["[0]" io]] [data diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index 74d9a49f1..07405ea54 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -6,7 +6,7 @@ ["[0]" try (.only Try)] ["ex" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [type (.only sharing) ["[0]" check]] diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux index 879334883..6976a1df0 100644 --- a/stdlib/source/library/lux/type.lux +++ b/stdlib/source/library/lux/type.lux @@ -13,20 +13,20 @@ ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid equivalence)] + ["[0]" text (.open: "[1]#[0]" monoid equivalence)] [collection ["[0]" array] - ["[0]" list ("[1]#[0]" monad monoid mix)]]] + ["[0]" list (.open: "[1]#[0]" monad monoid mix)]]] ["[0]" macro (.only) [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math [number - ["n" nat ("[1]#[0]" decimal)]]] + ["n" nat (.open: "[1]#[0]" decimal)]]] ["[0]" meta (.only) ["[0]" location] - ["[0]" symbol ("[1]#[0]" equivalence codec)]]]]) + ["[0]" symbol (.open: "[1]#[0]" equivalence codec)]]]]) (template [<name> <tag>] [(def: .public (<name> type) diff --git a/stdlib/source/library/lux/type/check.lux b/stdlib/source/library/lux/type/check.lux index e61b0fb11..a98b54932 100644 --- a/stdlib/source/library/lux/type/check.lux +++ b/stdlib/source/library/lux/type/check.lux @@ -12,16 +12,16 @@ ["[0]" exception (.only Exception exception:)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" monoid equivalence)] + ["[0]" text (.open: "[1]#[0]" monoid equivalence)] [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" set (.only Set)]]] [macro ["^" pattern]] [math [number - ["n" nat ("[1]#[0]" decimal)]]]]] - ["[0]" // ("[1]#[0]" equivalence)]) + ["n" nat (.open: "[1]#[0]" decimal)]]]]] + ["[0]" // (.open: "[1]#[0]" equivalence)]) (template: (!n#= reference subject) [("lux i64 =" reference subject)]) diff --git a/stdlib/source/library/lux/type/implicit.lux b/stdlib/source/library/lux/type/implicit.lux index e4fb1cac1..622e308ed 100644 --- a/stdlib/source/library/lux/type/implicit.lux +++ b/stdlib/source/library/lux/type/implicit.lux @@ -11,10 +11,10 @@ ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad mix)] + ["[0]" list (.open: "[1]#[0]" monad mix)] ["[0]" dictionary (.only Dictionary)]]] ["[0]" macro (.only) ["[0]" code] @@ -23,7 +23,7 @@ ["[0]" number (.only) ["n" nat]]] ["[0]" meta] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check (.only Check)]]]]) (def: (type_var id env) diff --git a/stdlib/source/library/lux/type/poly.lux b/stdlib/source/library/lux/type/poly.lux index a888e8e7e..cb18f9967 100644 --- a/stdlib/source/library/lux/type/poly.lux +++ b/stdlib/source/library/lux/type/poly.lux @@ -7,14 +7,14 @@ ["[0]" monad (.only do)]] [control ["[0]" maybe] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" type (.only Env)] ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary]]] [macro (.only with_symbols) [syntax (.only syntax:)] diff --git a/stdlib/source/library/lux/type/primitive.lux b/stdlib/source/library/lux/type/primitive.lux index e45876b69..7486a56fc 100644 --- a/stdlib/source/library/lux/type/primitive.lux +++ b/stdlib/source/library/lux/type/primitive.lux @@ -6,19 +6,19 @@ [monad (.only Monad do)]] [control ["[0]" exception (.only exception:)] - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data - ["[0]" text ("[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid)] [collection - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [macro ["^" pattern] ["[0]" code] [syntax (.only syntax:) ["|[0]|" export]]] [meta - ["[0]" symbol ("[1]#[0]" codec)]]]] + ["[0]" symbol (.open: "[1]#[0]" codec)]]]] ["[0]" //]) (type: Stack diff --git a/stdlib/source/library/lux/type/resource.lux b/stdlib/source/library/lux/type/resource.lux index 57d52c9a8..f2365d0cf 100644 --- a/stdlib/source/library/lux/type/resource.lux +++ b/stdlib/source/library/lux/type/resource.lux @@ -16,7 +16,7 @@ [collection ["[0]" set] ["[0]" sequence (.only Sequence)] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] ["[0]" macro (.only) [syntax (.only syntax:)]] [math diff --git a/stdlib/source/library/lux/type/unit.lux b/stdlib/source/library/lux/type/unit.lux index 91942f05c..317dc1848 100644 --- a/stdlib/source/library/lux/type/unit.lux +++ b/stdlib/source/library/lux/type/unit.lux @@ -8,7 +8,7 @@ [order (.only Order)] [enum (.only Enum)]] [control - ["<>" parser ("[1]#[0]" monad) + ["<>" parser (.open: "[1]#[0]" monad) ["<[0]>" code (.only Parser)]]] [data ["[0]" text (.only) diff --git a/stdlib/source/library/lux/world/console.lux b/stdlib/source/library/lux/world/console.lux index a6b0d4668..b1d7dac13 100644 --- a/stdlib/source/library/lux/world/console.lux +++ b/stdlib/source/library/lux/world/console.lux @@ -7,11 +7,11 @@ [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] - ["[0]" io (.only IO io) ("[1]#[0]" functor)] + ["[0]" io (.only IO io) (.open: "[1]#[0]" functor)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)] ["[0]" atom]]] [data ["[0]" text (.only Char) diff --git a/stdlib/source/library/lux/world/db/jdbc.lux b/stdlib/source/library/lux/world/db/jdbc.lux index 6942f788a..c8d453d53 100644 --- a/stdlib/source/library/lux/world/db/jdbc.lux +++ b/stdlib/source/library/lux/world/db/jdbc.lux @@ -8,7 +8,7 @@ ["[0]" try (.only Try)] ["ex" exception] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]] [security ["!" capability (.only capability:)]]] [data diff --git a/stdlib/source/library/lux/world/db/sql.lux b/stdlib/source/library/lux/world/db/sql.lux index 2706dd6a4..084ef671f 100644 --- a/stdlib/source/library/lux/world/db/sql.lux +++ b/stdlib/source/library/lux/world/db/sql.lux @@ -6,10 +6,10 @@ [data [number ["i" int]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" template]] [type diff --git a/stdlib/source/library/lux/world/file.lux b/stdlib/source/library/lux/world/file.lux index 93a3879ac..f03256f14 100644 --- a/stdlib/source/library/lux/world/file.lux +++ b/stdlib/source/library/lux/world/file.lux @@ -6,23 +6,23 @@ ["[0]" monad (.only Monad do)]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] - ["[0]" io (.only IO) ("[1]#[0]" functor)] + ["[0]" io (.only IO) (.open: "[1]#[0]" functor)] ["[0]" function] [concurrency ["[0]" async (.only Async)] ["[0]" stm (.only Var STM)]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" product] ["[0]" binary (.only Binary)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" dictionary (.only Dictionary)]]] ["[0]" ffi (~~ (.for "JavaScript" (~~ (.these ["[0]" node_js])) diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux index 60e01ebc6..a3026e8e8 100644 --- a/stdlib/source/library/lux/world/file/watch.lux +++ b/stdlib/source/library/lux/world/file/watch.lux @@ -20,14 +20,14 @@ ["%" format (.only format)]] [collection ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor monoid mix)] + ["[0]" list (.open: "[1]#[0]" functor monoid mix)] ["[0]" set] ["[0]" array]]] [math [number ["n" nat]]] [time - ["[0]" instant (.only Instant) ("[1]#[0]" equivalence)]] + ["[0]" instant (.only Instant) (.open: "[1]#[0]" equivalence)]] [type [primitive (.only primitive: representation abstraction)]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux index 49ead2fd3..7f0a1588f 100644 --- a/stdlib/source/library/lux/world/net/http/client.lux +++ b/stdlib/source/library/lux/world/net/http/client.lux @@ -8,7 +8,7 @@ [control ["[0]" pipe] ["[0]" io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] [concurrency ["[0]" async (.only Async)]] diff --git a/stdlib/source/library/lux/world/net/http/cookie.lux b/stdlib/source/library/lux/world/net/http/cookie.lux index 60fe0989a..bb09b61ee 100644 --- a/stdlib/source/library/lux/world/net/http/cookie.lux +++ b/stdlib/source/library/lux/world/net/http/cookie.lux @@ -4,7 +4,7 @@ [control [monad (.only do)] ["[0]" try (.only Try)] - ["p" parser ("[1]#[0]" monad) + ["p" parser (.open: "[1]#[0]" monad) ["l" text (.only Parser)]]] [data [number diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux index 6c6325eb6..86d74217d 100644 --- a/stdlib/source/library/lux/world/net/http/request.lux +++ b/stdlib/source/library/lux/world/net/http/request.lux @@ -20,7 +20,7 @@ ["[0]" json (.only JSON)] ["[0]" context (.only Context Property)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary]]] [macro ["^" pattern]] diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux index ed50b5f08..4e4542dde 100644 --- a/stdlib/source/library/lux/world/net/http/response.lux +++ b/stdlib/source/library/lux/world/net/http/response.lux @@ -4,7 +4,7 @@ [control [concurrency ["[0]" async] - ["[0]" frp ("[1]#[0]" monad)]]] + ["[0]" frp (.open: "[1]#[0]" monad)]]] [data ["[0]" text ["[0]" encoding]] @@ -12,7 +12,7 @@ ["[0]" html] ["[0]" css (.only CSS)] ["[0]" context] - ["[0]" json (.only JSON) ("[1]#[0]" codec)]]] + ["[0]" json (.only JSON) (.open: "[1]#[0]" codec)]]] ["[0]" io] [world ["[0]" binary (.only Binary)]]]] diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index 90000b855..c78116cbe 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -7,7 +7,7 @@ [control ["[0]" function] ["[0]" io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" exception (.only exception:)] [concurrency @@ -16,13 +16,13 @@ [parser ["[0]" environment (.only Environment)]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format (.only format)]] [collection ["[0]" array (.only Array)] ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] ["[0]" ffi (.only import:) (~~ (.for "JavaScript" (~~ (.these ["[0]" node_js])) "{old}" (~~ (.these ["node_js" //math])) diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux index be59e7b65..e52d4e0f3 100644 --- a/stdlib/source/library/lux/world/shell.lux +++ b/stdlib/source/library/lux/world/shell.lux @@ -25,7 +25,7 @@ ["[0]" utf8]]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" mix functor)] + ["[0]" list (.open: "[1]#[0]" mix functor)] ["[0]" dictionary]]] [math [number (.only hex) diff --git a/stdlib/source/poly/lux/abstract/equivalence.lux b/stdlib/source/poly/lux/abstract/equivalence.lux index b13c38453..63a88058e 100644 --- a/stdlib/source/poly/lux/abstract/equivalence.lux +++ b/stdlib/source/poly/lux/abstract/equivalence.lux @@ -10,10 +10,10 @@ [data ["[0]" product] ["[0]" bit] - ["[0]" text ("[1]#[0]" monoid) + ["[0]" text (.open: "[1]#[0]" monoid) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" sequence] ["[0]" array] ["[0]" queue] @@ -25,7 +25,7 @@ ["[0]" code]] [math [number - ["[0]" nat ("[1]#[0]" decimal)] + ["[0]" nat (.open: "[1]#[0]" decimal)] ["[0]" int] ["[0]" rev] ["[0]" frac]]] diff --git a/stdlib/source/poly/lux/abstract/functor.lux b/stdlib/source/poly/lux/abstract/functor.lux index 78a11f2fd..f7a4a6d7d 100644 --- a/stdlib/source/poly/lux/abstract/functor.lux +++ b/stdlib/source/poly/lux/abstract/functor.lux @@ -12,7 +12,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad monoid)]]] + ["[0]" list (.open: "[1]#[0]" monad monoid)]]] [macro [syntax (.only syntax:)] ["[0]" code]] diff --git a/stdlib/source/poly/lux/data/format/json.lux b/stdlib/source/poly/lux/data/format/json.lux index 09b65efea..2bf11cdc7 100644 --- a/stdlib/source/poly/lux/data/format/json.lux +++ b/stdlib/source/poly/lux/data/format/json.lux @@ -15,7 +15,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" sequence (.only sequence)] ["[0]" dictionary]]] [macro @@ -23,7 +23,7 @@ ["[0]" code]] [math [number - ["n" nat ("[1]#[0]" decimal)] + ["n" nat (.open: "[1]#[0]" decimal)] ["[0]" i64] ["[0]" int] ["[0]" frac]]] diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index e753fbed6..d14e5ba74 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -8,12 +8,12 @@ [control ["[0]" io (.only IO)] ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] [parser [environment (.only Environment)]] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data [binary (.only Binary)] ["[0]" text (.only) @@ -25,7 +25,7 @@ [collection ["[0]" set] ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [tool [compiler [language diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index 0b7a03d9c..247e4a5d0 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -7,10 +7,10 @@ [hash (.only Hash)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" order) + ["[0]" text (.open: "[1]#[0]" order) ["%" format (.only Format)]] [collection - ["[0]" list ("[1]#[0]" monoid)]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]] [world ["[0]" file (.only Path)] [net diff --git a/stdlib/source/program/aedifex/artifact/time/date.lux b/stdlib/source/program/aedifex/artifact/time/date.lux index 4f364d651..31a2f0f2a 100644 --- a/stdlib/source/program/aedifex/artifact/time/date.lux +++ b/stdlib/source/program/aedifex/artifact/time/date.lux @@ -17,7 +17,7 @@ ["n" nat] ["i" int]]] [time - ["[0]" date ("[1]#[0]" equivalence)] + ["[0]" date (.open: "[1]#[0]" equivalence)] ["[0]" year] ["[0]" month]] [type diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux index b9c158c6b..9c7dab3c6 100644 --- a/stdlib/source/program/aedifex/artifact/versioning.lux +++ b/stdlib/source/program/aedifex/artifact/versioning.lux @@ -16,7 +16,7 @@ [format ["[0]" xml (.only XML)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index 3e175f2d7..d08f7f7b1 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -6,17 +6,17 @@ [order (.only Order)] [monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)] ["[0]" io (.only IO)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" order) + ["[0]" text (.open: "[1]#[0]" order) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)] ["[0]" set]]] [macro diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index 379217a18..915ac8db0 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -10,7 +10,7 @@ [data [collection ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" dictionary]] [text ["%" format]]] diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index 478f77946..784a07d9a 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -4,9 +4,9 @@ [abstract [monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data [text ["%" format (.only format)] diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index 994bf7967..fa3d55d1d 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -6,7 +6,7 @@ [control [try (.only Try)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data [collection ["[0]" dictionary]]] diff --git a/stdlib/source/program/aedifex/dependency.lux b/stdlib/source/program/aedifex/dependency.lux index 3a8a69d81..9e522fa94 100644 --- a/stdlib/source/program/aedifex/dependency.lux +++ b/stdlib/source/program/aedifex/dependency.lux @@ -7,10 +7,10 @@ [hash (.only Hash)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" order) + ["[0]" text (.open: "[1]#[0]" order) ["%" format (.only format)]]]]] ["[0]" // - ["[1]" artifact (.only Artifact) ("[1]#[0]" order) + ["[1]" artifact (.only Artifact) (.open: "[1]#[0]" order) [type (.only Type)]]]) (type: .public Dependency diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux index a904e9f6c..69d85ef9a 100644 --- a/stdlib/source/program/aedifex/dependency/deployment.lux +++ b/stdlib/source/program/aedifex/dependency/deployment.lux @@ -18,7 +18,7 @@ [collection ["[0]" dictionary] ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" monoid)]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]] [time ["[0]" instant (.only Instant)]]]] ["[0]" /// diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index f535dd186..568973c47 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -11,7 +11,7 @@ ["[0]" predicate (.only Predicate)]] [control ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only Exception exception:)] ["<>" parsernone ["<[0]>" xml (.only Parser)]] @@ -28,7 +28,7 @@ [collection ["[0]" dictionary (.only Dictionary)] ["[0]" set] - ["[0]" list ("[1]#[0]" functor monoid)]]] + ["[0]" list (.open: "[1]#[0]" functor monoid)]]] [math [number ["n" nat] diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux index af0521b85..456f621e7 100644 --- a/stdlib/source/program/aedifex/format.lux +++ b/stdlib/source/program/aedifex/format.lux @@ -2,10 +2,10 @@ [library [lux (.except) [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" monad)] + ["[0]" list (.open: "[1]#[0]" monad)] ["[0]" set (.only Set)]]] [macro ["[0]" code] diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux index 113db629d..0ba7371b8 100644 --- a/stdlib/source/program/aedifex/metadata/artifact.lux +++ b/stdlib/source/program/aedifex/metadata/artifact.lux @@ -21,7 +21,7 @@ [format ["[0]" xml (.only XML)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux index 1e0879467..eb2f48c76 100644 --- a/stdlib/source/program/aedifex/metadata/snapshot.lux +++ b/stdlib/source/program/aedifex/metadata/snapshot.lux @@ -22,7 +22,7 @@ [format ["[0]" xml (.only XML)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux index f8f140b40..4706c50ce 100644 --- a/stdlib/source/program/aedifex/package.lux +++ b/stdlib/source/program/aedifex/package.lux @@ -4,7 +4,7 @@ [abstract [equivalence (.only Equivalence)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [data diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index b4014f06a..7f184b2eb 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -5,7 +5,7 @@ [monad (.only do)]] [control ["[0]" maybe] - ["<>" parser ("[1]#[0]" functor) + ["<>" parser (.open: "[1]#[0]" functor) ["<[0]>" code (.only Parser)]]] [data ["[0]" text] diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux index 76be72b40..537fde5e7 100644 --- a/stdlib/source/program/aedifex/pom.lux +++ b/stdlib/source/program/aedifex/pom.lux @@ -5,7 +5,7 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try (.only Try)] ["[0]" exception] ["<>" parser (.only) @@ -15,7 +15,7 @@ [format ["_" xml (.only Tag XML)]] [collection - ["[0]" list ("[1]#[0]" monoid functor mix)] + ["[0]" list (.open: "[1]#[0]" monoid functor mix)] ["[0]" set] ["[0]" dictionary]]] [meta diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux index 622cd3f9b..5ed623591 100644 --- a/stdlib/source/program/aedifex/profile.lux +++ b/stdlib/source/program/aedifex/profile.lux @@ -5,16 +5,16 @@ [monoid (.only Monoid)] [equivalence (.only Equivalence)]] [control - ["[0]" maybe ("[1]#[0]" monoid)] + ["[0]" maybe (.open: "[1]#[0]" monoid)] ["[0]" exception (.only exception:)]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" monoid)] + ["[0]" list (.open: "[1]#[0]" monoid)] ["[0]" set (.only Set)] ["[0]" dictionary (.only Dictionary) - ["[0]" plist (.only PList) ("[1]#[0]" monoid)]]]] + ["[0]" plist (.only PList) (.open: "[1]#[0]" monoid)]]]] [macro ["^" pattern] ["[0]" template]] @@ -32,8 +32,8 @@ [module [descriptor (.only Module)]]]]]]]] [// - ["[0]" runtime (.only Runtime) ("[1]#[0]" equivalence)] - ["[0]" dependency (.only Dependency) ("[1]#[0]" equivalence)] + ["[0]" runtime (.only Runtime) (.open: "[1]#[0]" equivalence)] + ["[0]" dependency (.only Dependency) (.open: "[1]#[0]" equivalence)] ["[0]" artifact (.only Artifact) ["[0]" type]] [repository diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux index 811e89d0c..e4ab5be29 100644 --- a/stdlib/source/program/aedifex/project.lux +++ b/stdlib/source/program/aedifex/project.lux @@ -14,7 +14,7 @@ [collection ["[0]" dictionary (.only Dictionary)] ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" mix)]]]]] + ["[0]" list (.open: "[1]#[0]" mix)]]]]] ["[0]" // ["[1]" profile (.only Name Profile)]]) diff --git a/stdlib/source/program/aedifex/runtime.lux b/stdlib/source/program/aedifex/runtime.lux index 21046fca2..7d49725df 100644 --- a/stdlib/source/program/aedifex/runtime.lux +++ b/stdlib/source/program/aedifex/runtime.lux @@ -8,7 +8,7 @@ ["[0]" text ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monoid)] + ["[0]" list (.open: "[1]#[0]" monoid)] ["[0]" dictionary (.only Dictionary)]]] [macro ["[0]" template]] diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index bcc771965..543900782 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -11,7 +11,7 @@ ["[0]" maybe] ["[0]" try (.only Try)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data [binary (.only Binary)] ["[0]" product] diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux index c0909a558..1fbde2917 100644 --- a/stdlib/source/specification/compositor/generation/case.lux +++ b/stdlib/source/specification/compositor/generation/case.lux @@ -7,13 +7,13 @@ ["[0]" pipe] ["[0]" try (.only Try)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [number ["n" nat] ["f" frac]] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["r" random (.only Random)]] [tool diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux index 334ce7012..e8d5e6ab4 100644 --- a/stdlib/source/specification/compositor/generation/common.lux +++ b/stdlib/source/specification/compositor/generation/common.lux @@ -7,13 +7,13 @@ ["[0]" pipe] ["[0]" try (.only Try)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [number ["[0]" i64] ["n" nat] ["i" int] ["f" frac]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" list]]] diff --git a/stdlib/source/specification/compositor/generation/function.lux b/stdlib/source/specification/compositor/generation/function.lux index d1ab6e87a..7e2c6d66f 100644 --- a/stdlib/source/specification/compositor/generation/function.lux +++ b/stdlib/source/specification/compositor/generation/function.lux @@ -10,9 +10,9 @@ [number ["n" nat]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math - ["r" random (.only Random) ("[1]#[0]" monad)]] + ["r" random (.only Random) (.open: "[1]#[0]" monad)]] [tool [compiler [analysis (.only Arity)] diff --git a/stdlib/source/specification/compositor/generation/primitive.lux b/stdlib/source/specification/compositor/generation/primitive.lux index 375cdf94c..d76f98f0a 100644 --- a/stdlib/source/specification/compositor/generation/primitive.lux +++ b/stdlib/source/specification/compositor/generation/primitive.lux @@ -7,10 +7,10 @@ ["[0]" pipe] ["[0]" try]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [number ["f" frac]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["r" random]] diff --git a/stdlib/source/specification/compositor/generation/structure.lux b/stdlib/source/specification/compositor/generation/structure.lux index e43533acb..d914c309f 100644 --- a/stdlib/source/specification/compositor/generation/structure.lux +++ b/stdlib/source/specification/compositor/generation/structure.lux @@ -11,11 +11,11 @@ [number ["n" nat] ["i" int]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" array (.only Array)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["r" random]] ["[0]" ffi (.only import:)] diff --git a/stdlib/source/specification/lux/abstract/equivalence.lux b/stdlib/source/specification/lux/abstract/equivalence.lux index 8454e002a..eaa2a9b5b 100644 --- a/stdlib/source/specification/lux/abstract/equivalence.lux +++ b/stdlib/source/specification/lux/abstract/equivalence.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux index 6075f38c7..0956528de 100644 --- a/stdlib/source/specification/lux/world/file.lux +++ b/stdlib/source/specification/lux/world/file.lux @@ -7,17 +7,17 @@ ["[0]" predicate]] [control [io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding - ["[0]" utf8 ("[1]#[0]" codec)]]] - ["[0]" binary (.only Binary) ("[1]#[0]" equivalence monoid) + ["[0]" utf8 (.open: "[1]#[0]" codec)]]] + ["[0]" binary (.only Binary) (.open: "[1]#[0]" equivalence monoid) ["$[1]" \\test]] [collection ["[0]" list]]] @@ -26,7 +26,7 @@ [number ["n" nat]]] [time - ["[0]" instant (.only Instant) ("[1]#[0]" equivalence)]]]] + ["[0]" instant (.only Instant) (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/specification/lux/world/shell.lux b/stdlib/source/specification/lux/world/shell.lux index 3bff4626d..64e31abfe 100644 --- a/stdlib/source/specification/lux/world/shell.lux +++ b/stdlib/source/specification/lux/world/shell.lux @@ -5,14 +5,14 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]] [parser ["[0]" environment (.only Environment)]]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random] diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux index e16c5f534..aefe175f4 100644 --- a/stdlib/source/test/aedifex/artifact.lux +++ b/stdlib/source/test/aedifex/artifact.lux @@ -10,7 +10,7 @@ ["$[0]" order] ["$[0]" hash]]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]] [world diff --git a/stdlib/source/test/aedifex/artifact/extension.lux b/stdlib/source/test/aedifex/artifact/extension.lux index 130065193..d8bfd8267 100644 --- a/stdlib/source/test/aedifex/artifact/extension.lux +++ b/stdlib/source/test/aedifex/artifact/extension.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" set] ["[0]" list]]] diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux index e0c7ffc4b..5379dd8af 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot.lux @@ -7,11 +7,11 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] ["$[0]" / ["[1][0]" build] ["[1][0]" stamp] diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux index 96c41ce36..2775467c9 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [math diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux index fc9488004..e097f5420 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [math diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux index 65f17c8a4..28dd249cc 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" text]]] [math diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux index 39883cb64..7ba555256 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [math diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux index 9441be139..27ef6062c 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux @@ -7,14 +7,14 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" text]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["i" int]]] diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux index 81b04c07d..366ec1955 100644 --- a/stdlib/source/test/aedifex/artifact/time.lux +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -7,11 +7,11 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" text]]] [time - ["[0]" instant ("[1]#[0]" equivalence)]] + ["[0]" instant (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux index 4f997fef1..12c4a0da1 100644 --- a/stdlib/source/test/aedifex/artifact/time/date.lux +++ b/stdlib/source/test/aedifex/artifact/time/date.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" text]]] @@ -17,7 +17,7 @@ ["n" nat] ["i" int]]] [time - ["[0]" date ("[1]#[0]" equivalence)] + ["[0]" date (.open: "[1]#[0]" equivalence)] ["[0]" year]]]] [\\program ["[0]" /]]) diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux index 60dda35c0..c3b866451 100644 --- a/stdlib/source/test/aedifex/artifact/time/time.lux +++ b/stdlib/source/test/aedifex/artifact/time/time.lux @@ -6,7 +6,7 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" text]]] [math diff --git a/stdlib/source/test/aedifex/artifact/type.lux b/stdlib/source/test/aedifex/artifact/type.lux index de596592b..a2b5926e5 100644 --- a/stdlib/source/test/aedifex/artifact/type.lux +++ b/stdlib/source/test/aedifex/artifact/type.lux @@ -10,7 +10,7 @@ ["[0]" set] ["[0]" list]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\program diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux index 6a8e29a08..006ec6566 100644 --- a/stdlib/source/test/aedifex/artifact/versioning.lux +++ b/stdlib/source/test/aedifex/artifact/versioning.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" xml]]] [math diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux index 13b8e27d4..de334b03d 100644 --- a/stdlib/source/test/aedifex/cache.lux +++ b/stdlib/source/test/aedifex/cache.lux @@ -19,7 +19,7 @@ ["[0]" set] ["[0]" dictionary]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] [world diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index 6f3d257c6..9cc571bbe 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -16,7 +16,7 @@ [collection ["[0]" list]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] [\\program ["[0]" / (.only) ["/[1]" // diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index 176acc46b..1bb77d307 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -14,7 +14,7 @@ [parser ["[0]" environment]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary]]] [math diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux index 73ad4bcd2..e7bf81855 100644 --- a/stdlib/source/test/aedifex/command/clean.lux +++ b/stdlib/source/test/aedifex/command/clean.lux @@ -11,10 +11,10 @@ [data [binary (.only Binary)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index ade7ffc6f..0a4e08166 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -12,8 +12,8 @@ [parser ["[0]" environment]]] [data - ["[0]" binary ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" binary (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux index c4cf1bcf0..c5e496e29 100644 --- a/stdlib/source/test/aedifex/command/deps.lux +++ b/stdlib/source/test/aedifex/command/deps.lux @@ -12,7 +12,7 @@ [parser ["[0]" environment]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index 7fa9463f7..4de5c5226 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -5,7 +5,7 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception] [concurrency ["[0]" async (.only Async)]] @@ -13,7 +13,7 @@ ["[0]" environment]]] [data ["[0]" binary] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" set (.only Set)]]] diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index 76eb99b89..75509644d 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -5,12 +5,12 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [concurrency ["[0]" async]]] [data - ["[0]" binary ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" binary (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) [encoding ["[0]" utf8]]] [format diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux index a6237f970..50bd8e183 100644 --- a/stdlib/source/test/aedifex/command/test.lux +++ b/stdlib/source/test/aedifex/command/test.lux @@ -12,7 +12,7 @@ [parser ["[0]" environment]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary] ["[0]" list]]] diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux index 9bdb03cc7..fbd864d4b 100644 --- a/stdlib/source/test/aedifex/command/version.lux +++ b/stdlib/source/test/aedifex/command/version.lux @@ -11,7 +11,7 @@ [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random]] diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index cd8c2172e..ab15af81c 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -7,20 +7,20 @@ ["[0]" hash (.only Hash)]] [control ["[0]" io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [concurrency ["[0]" atom (.only Atom)] ["[0]" async]]] [data ["[0]" product] - ["[0]" binary (.only Binary) ("[1]#[0]" equivalence)] + ["[0]" binary (.only Binary) (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format (.only format)]] [collection ["[0]" dictionary (.only Dictionary)] ["[0]" set] - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random (.only Random)] [number @@ -43,7 +43,7 @@ ["[0]" profile] ["[0]" metadata] ["[0]" package (.only Package)] - ["[0]" artifact (.only Artifact) ("[1]#[0]" equivalence) + ["[0]" artifact (.only Artifact) (.open: "[1]#[0]" equivalence) ["[1]/[0]" type] ["[1]/[0]" extension]] ["[0]" repository (.only) diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index 666bd0c53..eaec8b475 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -39,7 +39,7 @@ ["[1]" profile] ["[1][0]" package (.only Package)] ["[1][0]" hash] - ["[1][0]" dependency (.only Dependency) ("[1]#[0]" equivalence) + ["[1][0]" dependency (.only Dependency) (.open: "[1]#[0]" equivalence) ["[1]/[0]" status]] ["[1][0]" pom] ["[1][0]" artifact (.only Artifact) diff --git a/stdlib/source/test/aedifex/dependency/status.lux b/stdlib/source/test/aedifex/dependency/status.lux index c6b6abe9a..6b59fa394 100644 --- a/stdlib/source/test/aedifex/dependency/status.lux +++ b/stdlib/source/test/aedifex/dependency/status.lux @@ -10,7 +10,7 @@ ["[0]" binary ["[1]T" \\test]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] ["$[0]" /// ["[1][0]" hash]] [\\program diff --git a/stdlib/source/test/aedifex/metadata.lux b/stdlib/source/test/aedifex/metadata.lux index b10f192fd..bdac5dfac 100644 --- a/stdlib/source/test/aedifex/metadata.lux +++ b/stdlib/source/test/aedifex/metadata.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random]]]] ["[0]" / diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 34b98590a..34869e646 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -8,14 +8,14 @@ ["$[0]" equivalence]]] [control ["[0]" maybe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["[0]" environment] ["<[0]>" xml]] [concurrency ["[0]" async]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [macro diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index 136e488c8..c45b817cd 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -8,20 +8,20 @@ ["$[0]" equivalence]]] [control ["[0]" maybe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["[0]" environment] ["<[0]>" xml]] [concurrency ["[0]" async]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [macro ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] ["[0]" time (.only) diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index ead5ce5be..6a7f0a960 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -33,7 +33,7 @@ ["[0]" / (.only) ["/[1]" // ["[1]" profile] - ["[1][0]" hash ("[1]#[0]" equivalence)] + ["[1][0]" hash (.open: "[1]#[0]" equivalence)] ["[1][0]" pom] [dependency ["[1][0]" status]] diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 6b53ab371..050d3daef 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -15,7 +15,7 @@ [collection ["[0]" set (.only Set)] ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux index fbc7d12b2..3a58b340c 100644 --- a/stdlib/source/test/aedifex/pom.lux +++ b/stdlib/source/test/aedifex/pom.lux @@ -10,7 +10,7 @@ ["<>" parser (.only) ["<[0]>" xml]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [format ["[0]" xml]]] [math diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux index a77cb4c7e..d45ac5fa9 100644 --- a/stdlib/source/test/aedifex/profile.lux +++ b/stdlib/source/test/aedifex/profile.lux @@ -13,12 +13,12 @@ [parser ["[0]" cli]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" set (.only Set)] ["[0]" dictionary (.only Dictionary)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] [tool diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux index 8a52a39b8..61afbc9da 100644 --- a/stdlib/source/test/aedifex/project.lux +++ b/stdlib/source/test/aedifex/project.lux @@ -8,13 +8,13 @@ ["$[0]" equivalence] ["$[0]" monoid]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [// diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index e8737c5cc..160410bc4 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -5,13 +5,13 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["[0]" environment]] [concurrency ["[0]" async]]] [data - ["[0]" binary ("[1]#[0]" equivalence)] + ["[0]" binary (.open: "[1]#[0]" equivalence)] [text [encoding ["[0]" utf8]]]] diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 72c042fd7..50ae42a09 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -6,13 +6,13 @@ [monad (.only do)]] [control ["[0]" io (.only IO)] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" monad)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" monad)] ["[0]" exception] ["[0]" function]] [data - ["[0]" binary ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" binary (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux index 78ba09d07..a1ba22588 100644 --- a/stdlib/source/test/aedifex/runtime.lux +++ b/stdlib/source/test/aedifex/runtime.lux @@ -7,14 +7,14 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\program diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 790250e73..9fed6be1a 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -9,28 +9,28 @@ [monad (.only do)]] [control ["[0]" io] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] [concurrency ["[0]" atom (.only Atom)]] [parser ["<[0]>" code]]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] - ["[0]" set (.only Set) ("[1]#[0]" equivalence)] + ["[0]" list (.open: "[1]#[0]" functor)] + ["[0]" set (.only Set) (.open: "[1]#[0]" equivalence)] [dictionary ["[0]" plist]]]] ["[0]" macro [syntax (.only syntax:)] ["^" pattern] - ["[0]" code ("[1]#[0]" equivalence)] + ["[0]" code (.open: "[1]#[0]" equivalence)] ["[0]" template]] ["[0]" math - ["[0]" random ("[1]#[0]" functor)] + ["[0]" random (.open: "[1]#[0]" functor)] [number [i8 (.only)] [i16 (.only)] @@ -39,8 +39,8 @@ ["r" rev] ["f" frac] ["[0]" i64]]] - ["[0]" meta ("[1]#[0]" monad) - ["[0]" location ("[1]#[0]" equivalence)]]]] + ["[0]" meta (.open: "[1]#[0]" monad) + ["[0]" location (.open: "[1]#[0]" equivalence)]]]] ... TODO: Must have 100% coverage on tests. ["[0]" / ["[1][0]" abstract] @@ -529,7 +529,7 @@ [(<referral> <module/0>) (<referral> <m2/1>)]] - [(.using ["[0]" <module/0>' ("[1]#[0]" <definition>)]) + [(.using ["[0]" <module/0>' (.open: "[1]#[0]" <definition>)]) ("lux def module" [[<module/0> <module/0>]]) [(<referral> <module/0> (<open/0> <definition>))]] )))))) diff --git a/stdlib/source/test/lux/abstract/codec.lux b/stdlib/source/test/lux/abstract/codec.lux index 120dc7a39..970045e7c 100644 --- a/stdlib/source/test/lux/abstract/codec.lux +++ b/stdlib/source/test/lux/abstract/codec.lux @@ -7,7 +7,7 @@ [control ["[0]" try]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [format ["[0]" json (.only JSON)]]] [math diff --git a/stdlib/source/test/lux/abstract/comonad/cofree.lux b/stdlib/source/test/lux/abstract/comonad/cofree.lux index 1818540f0..8e8c2998d 100644 --- a/stdlib/source/test/lux/abstract/comonad/cofree.lux +++ b/stdlib/source/test/lux/abstract/comonad/cofree.lux @@ -13,7 +13,7 @@ [data [collection ["[0]" list] - ["[0]" stream (.only Stream) ("[1]#[0]" comonad)]]] + ["[0]" stream (.only Stream) (.open: "[1]#[0]" comonad)]]] [math ["[0]" random]]]] [\\library diff --git a/stdlib/source/test/lux/abstract/enum.lux b/stdlib/source/test/lux/abstract/enum.lux index 5aa3fd4c5..d33a9aee8 100644 --- a/stdlib/source/test/lux/abstract/enum.lux +++ b/stdlib/source/test/lux/abstract/enum.lux @@ -5,11 +5,11 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/abstract/equivalence.lux b/stdlib/source/test/lux/abstract/equivalence.lux index 47b2ab03a..2ca34e885 100644 --- a/stdlib/source/test/lux/abstract/equivalence.lux +++ b/stdlib/source/test/lux/abstract/equivalence.lux @@ -8,7 +8,7 @@ [functor ["$[0]" contravariant]]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/abstract/hash.lux b/stdlib/source/test/lux/abstract/hash.lux index 6e2f2504a..cd9a966da 100644 --- a/stdlib/source/test/lux/abstract/hash.lux +++ b/stdlib/source/test/lux/abstract/hash.lux @@ -8,7 +8,7 @@ [functor ["$[0]" contravariant]]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/abstract/interval.lux b/stdlib/source/test/lux/abstract/interval.lux index 4d84cfcb7..74579b53a 100644 --- a/stdlib/source/test/lux/abstract/interval.lux +++ b/stdlib/source/test/lux/abstract/interval.lux @@ -18,7 +18,7 @@ [number ["n" nat]]]]] [\\library - ["[0]" / (.only Interval) ("#[0]" equivalence)]]) + ["[0]" / (.only Interval) (.open: "[1]#[0]" equivalence)]]) (template [<name> <cmp>] [(def: .public <name> @@ -94,7 +94,7 @@ right_outer ..outer] (all _.and (_.property "The union of an interval to itself yields the same interval." - (#= some_interval (/.union some_interval some_interval))) + (/#= some_interval (/.union some_interval some_interval))) (_.property "The union of 2 inner intervals is another inner interval." (/.inner? (/.union left_inner right_inner))) (_.property "The union of 2 outer intervals yields an inner interval when their complements don't overlap, and an outer when they do." @@ -115,7 +115,7 @@ right_outer ..outer] (all _.and (_.property "The intersection of an interval to itself yields the same interval." - (#= some_interval (/.intersection some_interval some_interval))) + (/#= some_interval (/.intersection some_interval some_interval))) (_.property "The intersection of 2 inner intervals yields an inner interval when they overlap, and an outer when they don't." (if (/.overlaps? left_inner right_inner) (/.inner? (/.intersection left_inner right_inner)) @@ -130,7 +130,7 @@ [some_interval ..interval] (all _.and (_.property "The complement of a complement is the same as the original." - (#= some_interval (|> some_interval /.complement /.complement))) + (/#= some_interval (|> some_interval /.complement /.complement))) (_.property "The complement of an interval does not overlap it." (not (/.overlaps? some_interval (/.complement some_interval)))) ))) diff --git a/stdlib/source/test/lux/abstract/monad.lux b/stdlib/source/test/lux/abstract/monad.lux index 5ea6a5404..b0dc3f1cc 100644 --- a/stdlib/source/test/lux/abstract/monad.lux +++ b/stdlib/source/test/lux/abstract/monad.lux @@ -5,7 +5,7 @@ [data ["[0]" identity (.only Identity)] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/abstract/monad/free.lux b/stdlib/source/test/lux/abstract/monad/free.lux index 0d63275d5..9d9329a6c 100644 --- a/stdlib/source/test/lux/abstract/monad/free.lux +++ b/stdlib/source/test/lux/abstract/monad/free.lux @@ -12,7 +12,7 @@ ["$[0]" monad]]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random]]]] [\\library diff --git a/stdlib/source/test/lux/abstract/order.lux b/stdlib/source/test/lux/abstract/order.lux index a283abfdf..68eedeeba 100644 --- a/stdlib/source/test/lux/abstract/order.lux +++ b/stdlib/source/test/lux/abstract/order.lux @@ -8,7 +8,7 @@ [functor ["$[0]" contravariant]]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/abstract/predicate.lux b/stdlib/source/test/lux/abstract/predicate.lux index 6a8b64dbe..46c44ceea 100644 --- a/stdlib/source/test/lux/abstract/predicate.lux +++ b/stdlib/source/test/lux/abstract/predicate.lux @@ -12,7 +12,7 @@ [control ["[0]" function]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math diff --git a/stdlib/source/test/lux/control/concatenative.lux b/stdlib/source/test/lux/control/concatenative.lux index d158a83a0..825228c31 100644 --- a/stdlib/source/test/lux/control/concatenative.lux +++ b/stdlib/source/test/lux/control/concatenative.lux @@ -6,7 +6,7 @@ [monad (.only do)]] [data ["[0]" sum] - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [macro ["[0]" template]] [math diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux index 1df46e911..5713f1599 100644 --- a/stdlib/source/test/lux/control/concurrency/actor.lux +++ b/stdlib/source/test/lux/control/concurrency/actor.lux @@ -22,7 +22,7 @@ ["[0]" / (.only actor: message:) [// ["[0]" atom (.only Atom)] - ["[0]" async (.only Async Resolver) ("[1]#[0]" monad)] + ["[0]" async (.only Async Resolver) (.open: "[1]#[0]" monad)] ["[0]" frp]]]]) (exception: got_wrecked) diff --git a/stdlib/source/test/lux/control/concurrency/frp.lux b/stdlib/source/test/lux/control/concurrency/frp.lux index 4dc2b1da7..79d2fe727 100644 --- a/stdlib/source/test/lux/control/concurrency/frp.lux +++ b/stdlib/source/test/lux/control/concurrency/frp.lux @@ -14,7 +14,7 @@ ["[0]" io (.only IO io)]] [data [collection - ["[0]" list ("[1]#[0]" mix monoid)] + ["[0]" list (.open: "[1]#[0]" mix monoid)] ["[0]" sequence (.only Sequence)]]] [math ["[0]" random] @@ -25,7 +25,7 @@ [\\library ["[0]" / (.only) [// - ["[0]" async (.only Async) ("[1]#[0]" monad)] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)] ["[0]" atom (.only Atom atom)]]]]) (def: injection diff --git a/stdlib/source/test/lux/control/concurrency/semaphore.lux b/stdlib/source/test/lux/control/concurrency/semaphore.lux index bc99871e9..1df21f823 100644 --- a/stdlib/source/test/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/test/lux/control/concurrency/semaphore.lux @@ -15,10 +15,10 @@ ["[0]" async (.only Async)] ["[0]" atom (.only Atom)]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index 7bbe7f398..05d6f33da 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -13,7 +13,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/control/exception.lux b/stdlib/source/test/lux/control/exception.lux index b71d50025..459e7101a 100644 --- a/stdlib/source/test/lux/control/exception.lux +++ b/stdlib/source/test/lux/control/exception.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random] diff --git a/stdlib/source/test/lux/control/function/memo.lux b/stdlib/source/test/lux/control/function/memo.lux index 2d8b7f7b0..b16902c88 100644 --- a/stdlib/source/test/lux/control/function/memo.lux +++ b/stdlib/source/test/lux/control/function/memo.lux @@ -6,12 +6,12 @@ [monad (.only do)]] [control ["[0]" io (.only IO)] - ["[0]" state (.only State) ("[1]#[0]" monad)]] + ["[0]" state (.only State) (.open: "[1]#[0]" monad)]] [data ["[0]" product] [collection ["[0]" dictionary (.only Dictionary)] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/test/lux/control/function/mixin.lux b/stdlib/source/test/lux/control/function/mixin.lux index 01dd7ab47..c19295365 100644 --- a/stdlib/source/test/lux/control/function/mixin.lux +++ b/stdlib/source/test/lux/control/function/mixin.lux @@ -13,7 +13,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/test/lux/control/function/mutual.lux b/stdlib/source/test/lux/control/function/mutual.lux index 3e9c053e7..698685d0c 100644 --- a/stdlib/source/test/lux/control/function/mutual.lux +++ b/stdlib/source/test/lux/control/function/mutual.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [text ["%" format (.only format)]]] [math diff --git a/stdlib/source/test/lux/control/maybe.lux b/stdlib/source/test/lux/control/maybe.lux index d24ea6166..b986c2fbc 100644 --- a/stdlib/source/test/lux/control/maybe.lux +++ b/stdlib/source/test/lux/control/maybe.lux @@ -12,7 +12,7 @@ ["$[0]" apply] ["$[0]" monad]]] [control - ["[0]" io ("[1]#[0]" monad)] + ["[0]" io (.open: "[1]#[0]" monad)] ["[0]" pipe]] [data ["[0]" text] @@ -23,7 +23,7 @@ [number ["n" nat]]]]] [\\library - ["[0]" / ("[1]#[0]" monoid monad)]]) + ["[0]" / (.open: "[1]#[0]" monoid monad)]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/parser.lux b/stdlib/source/test/lux/control/parser.lux index e4312d220..c5fdb888a 100644 --- a/stdlib/source/test/lux/control/parser.lux +++ b/stdlib/source/test/lux/control/parser.lux @@ -14,10 +14,10 @@ [parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/control/parser/analysis.lux b/stdlib/source/test/lux/control/parser/analysis.lux index bb68755c0..1e1a288b2 100644 --- a/stdlib/source/test/lux/control/parser/analysis.lux +++ b/stdlib/source/test/lux/control/parser/analysis.lux @@ -10,8 +10,8 @@ ["[0]" exception] ["<>" parser]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math @@ -22,7 +22,7 @@ ["f" frac] ["r" rev]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence)]] + ["[0]" symbol (.open: "[1]#[0]" equivalence)]] [tool [compiler [reference (.only Constant) diff --git a/stdlib/source/test/lux/control/parser/binary.lux b/stdlib/source/test/lux/control/parser/binary.lux index 34bfab2f7..41d2cec10 100644 --- a/stdlib/source/test/lux/control/parser/binary.lux +++ b/stdlib/source/test/lux/control/parser/binary.lux @@ -17,7 +17,7 @@ ["[0]" binary] ["[0]" sum] ["[0]" bit] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index 731cea3e4..28e5fb4a2 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -8,7 +8,7 @@ ["[0]" try] ["<>" parser]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [macro @@ -16,7 +16,7 @@ [math ["[0]" random] [number - ["n" nat ("[1]#[0]" decimal)]]]]] + ["n" nat (.open: "[1]#[0]" decimal)]]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/control/parser/code.lux b/stdlib/source/test/lux/control/parser/code.lux index 81a90c5b0..ad59d2ba3 100644 --- a/stdlib/source/test/lux/control/parser/code.lux +++ b/stdlib/source/test/lux/control/parser/code.lux @@ -17,7 +17,7 @@ ["^" pattern] ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" functor)] + ["[0]" random (.only Random) (.open: "[1]#[0]" functor)] [number ["[0]" nat] ["[0]" int] diff --git a/stdlib/source/test/lux/control/parser/environment.lux b/stdlib/source/test/lux/control/parser/environment.lux index cce8c0d99..9b098cf1a 100644 --- a/stdlib/source/test/lux/control/parser/environment.lux +++ b/stdlib/source/test/lux/control/parser/environment.lux @@ -8,7 +8,7 @@ ["[0]" try] ["[0]" exception]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary]]] [math @@ -17,7 +17,7 @@ ["n" nat]]]]] [\\library ["[0]" / (.only) - ["/[1]" // ("[1]#[0]" monad)]]]) + ["/[1]" // (.open: "[1]#[0]" monad)]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/parser/json.lux b/stdlib/source/test/lux/control/parser/json.lux index de37cc4dd..75a817481 100644 --- a/stdlib/source/test/lux/control/parser/json.lux +++ b/stdlib/source/test/lux/control/parser/json.lux @@ -14,10 +14,10 @@ ["[0]" bit] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set] ["[0]" dictionary] - ["[0]" sequence (.only sequence) ("[1]#[0]" functor)]] + ["[0]" sequence (.only sequence) (.open: "[1]#[0]" functor)]] [format ["[0]" json]]] [macro diff --git a/stdlib/source/test/lux/control/parser/synthesis.lux b/stdlib/source/test/lux/control/parser/synthesis.lux index 3a279ab7a..8e974ad33 100644 --- a/stdlib/source/test/lux/control/parser/synthesis.lux +++ b/stdlib/source/test/lux/control/parser/synthesis.lux @@ -12,7 +12,7 @@ ["[0]" bit] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux index ae26c9858..af56ad878 100644 --- a/stdlib/source/test/lux/control/parser/text.lux +++ b/stdlib/source/test/lux/control/parser/text.lux @@ -10,14 +10,14 @@ ["[0]" exception (.only Exception)] ["[0]" function]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] ["[0]" unicode ["[1]" set] ["[1]/[0]" block]]] [collection ["[0]" set] - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] [tree ["[0]" finger]]]] [math diff --git a/stdlib/source/test/lux/control/parser/type.lux b/stdlib/source/test/lux/control/parser/type.lux index dc7a62b96..779c63cd2 100644 --- a/stdlib/source/test/lux/control/parser/type.lux +++ b/stdlib/source/test/lux/control/parser/type.lux @@ -2,7 +2,7 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [monad (.only do)]] [control @@ -20,7 +20,7 @@ [number ["n" nat]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence)]]]] + ["[0]" symbol (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" / (.only) ["/[1]" //]]]) diff --git a/stdlib/source/test/lux/control/parser/xml.lux b/stdlib/source/test/lux/control/parser/xml.lux index 02262b6f8..95e6c3713 100644 --- a/stdlib/source/test/lux/control/parser/xml.lux +++ b/stdlib/source/test/lux/control/parser/xml.lux @@ -2,16 +2,16 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [format - ["[0]" xml ("[1]#[0]" equivalence)]] + ["[0]" xml (.open: "[1]#[0]" equivalence)]] [collection ["[0]" dictionary] ["[0]" list]]] @@ -23,10 +23,10 @@ [number ["n" nat]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence)]]]] + ["[0]" symbol (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" / (.only) - ["/[1]" // ("[1]#[0]" monad)]]]) + ["/[1]" // (.open: "[1]#[0]" monad)]]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index c181ba0f4..cc455e8aa 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -7,7 +7,7 @@ [monad (.only do)]] [data ["[0]" identity] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random] diff --git a/stdlib/source/test/lux/control/remember.lux b/stdlib/source/test/lux/control/remember.lux index 2488b31cc..38bd18517 100644 --- a/stdlib/source/test/lux/control/remember.lux +++ b/stdlib/source/test/lux/control/remember.lux @@ -17,7 +17,7 @@ ["%" format (.only format)]]] [math [number (.only hex)] - ["[0]" random (.only Random) ("[1]#[0]" monad)]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]] [time ["[0]" date (.only Date)] ["[0]" instant] diff --git a/stdlib/source/test/lux/control/security/policy.lux b/stdlib/source/test/lux/control/security/policy.lux index 0fcb1e901..efd4a029c 100644 --- a/stdlib/source/test/lux/control/security/policy.lux +++ b/stdlib/source/test/lux/control/security/policy.lux @@ -10,7 +10,7 @@ ["$[0]" apply] ["$[0]" monad]]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [macro ["^" pattern]] [math diff --git a/stdlib/source/test/lux/control/try.lux b/stdlib/source/test/lux/control/try.lux index 995b0125f..043890c39 100644 --- a/stdlib/source/test/lux/control/try.lux +++ b/stdlib/source/test/lux/control/try.lux @@ -13,7 +13,7 @@ ["[0]" pipe] ["[0]" io]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/control/writer.lux b/stdlib/source/test/lux/control/writer.lux index a6f496598..78d475ce1 100644 --- a/stdlib/source/test/lux/control/writer.lux +++ b/stdlib/source/test/lux/control/writer.lux @@ -14,7 +14,7 @@ ["[0]" io]] [data ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux index ba454ead3..15df63e2e 100644 --- a/stdlib/source/test/lux/data/binary.lux +++ b/stdlib/source/test/lux/data/binary.lux @@ -14,7 +14,7 @@ ["[0]" exception (.only Exception)]] [data [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] [array [\\unsafe (.only)]]]] [math diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux index b1d6b549f..ee06a8073 100644 --- a/stdlib/source/test/lux/data/collection/array.lux +++ b/stdlib/source/test/lux/data/collection/array.lux @@ -13,10 +13,10 @@ ["$[0]" equivalence] ["$[0]" functor (.only Injection)]]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" bit] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list] ["[0]" set]]] diff --git a/stdlib/source/test/lux/data/collection/dictionary.lux b/stdlib/source/test/lux/data/collection/dictionary.lux index ad26c0120..11a4da3cb 100644 --- a/stdlib/source/test/lux/data/collection/dictionary.lux +++ b/stdlib/source/test/lux/data/collection/dictionary.lux @@ -9,13 +9,13 @@ ["$[0]" equivalence] ["$[0]" functor (.only Injection)]]] [control - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try] ["[0]" exception]] [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set]]] [math ["[0]" random] diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux index 01c979131..75e7a36e2 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux @@ -9,15 +9,15 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" set] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux index 3b8f1ae99..252ca9f85 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux @@ -8,9 +8,9 @@ ["$[0]" equivalence] ["$[0]" monoid]]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text] [collection ["[0]" set] diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux index c727f3041..81e8d76dc 100644 --- a/stdlib/source/test/lux/data/collection/list.lux +++ b/stdlib/source/test/lux/data/collection/list.lux @@ -21,7 +21,7 @@ [data ["[0]" bit] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" set]]] [math @@ -30,7 +30,7 @@ ["n" nat] ["[0]" int]]]]] [\\library - ["[0]" / ("[1]#[0]" monad)]]) + ["[0]" / (.open: "[1]#[0]" monad)]]) (def: bounded_size (Random Nat) diff --git a/stdlib/source/test/lux/data/collection/queue.lux b/stdlib/source/test/lux/data/collection/queue.lux index 05388830b..a67697de2 100644 --- a/stdlib/source/test/lux/data/collection/queue.lux +++ b/stdlib/source/test/lux/data/collection/queue.lux @@ -8,10 +8,10 @@ ["$[0]" equivalence] ["$[0]" functor (.only Injection)]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" set] - ["[0]" list ("[1]#[0]" monoid)]]] + ["[0]" list (.open: "[1]#[0]" monoid)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/collection/queue/priority.lux b/stdlib/source/test/lux/data/collection/queue/priority.lux index fc8484b42..624231fb1 100644 --- a/stdlib/source/test/lux/data/collection/queue/priority.lux +++ b/stdlib/source/test/lux/data/collection/queue/priority.lux @@ -5,9 +5,9 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/data/collection/sequence.lux b/stdlib/source/test/lux/data/collection/sequence.lux index f86951ea4..92d59f68d 100644 --- a/stdlib/source/test/lux/data/collection/sequence.lux +++ b/stdlib/source/test/lux/data/collection/sequence.lux @@ -15,17 +15,17 @@ ["[0]" try (.only Try)] ["[0]" exception]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" set]]] [math ["[0]" random] [number ["n" nat]]]]] [\\library - ["[0]" / ("[1]#[0]" monad)]]) + ["[0]" / (.open: "[1]#[0]" monad)]]) (def: signatures Test diff --git a/stdlib/source/test/lux/data/collection/set.lux b/stdlib/source/test/lux/data/collection/set.lux index 53bf5ee0e..17617c2dc 100644 --- a/stdlib/source/test/lux/data/collection/set.lux +++ b/stdlib/source/test/lux/data/collection/set.lux @@ -10,7 +10,7 @@ ["$[0]" hash] ["$[0]" monoid]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math @@ -18,7 +18,7 @@ [number ["n" nat]]]]] [\\library - ["[0]" / ("#[0]" equivalence)]]) + ["[0]" / (.open: "[1]#[0]" equivalence)]]) (def: gen_nat (Random Nat) @@ -68,7 +68,7 @@ (bit#= (/.empty? setL) (n.= 0 (/.size setL)))) (_.coverage [/.list /.of_list] - (|> setL /.list (/.of_list n.hash) (#= setL))) + (|> setL /.list (/.of_list n.hash) (/#= setL))) (_.coverage [/.member?] (and (list.every? (/.member? setL) (/.list setL)) (not (/.member? setL non_memberL)))) @@ -89,12 +89,12 @@ (|> setL (/.has non_memberL) (/.lacks non_memberL) - (#= setL)) + (/#= setL)) idempotency! (|> setL (/.lacks non_memberL) - (#= setL))] + (/#= setL))] (and symmetry! idempotency!))) (_.coverage [/.union /.sub?] @@ -107,7 +107,7 @@ union_with_empty_set! (|> setL (/.union (/.empty n.hash)) - (#= setL))] + (/#= setL))] (and sets_are_subs_of_their_unions! union_with_empty_set!))) (_.coverage [/.intersection /.super?] diff --git a/stdlib/source/test/lux/data/collection/set/multi.lux b/stdlib/source/test/lux/data/collection/set/multi.lux index 2811e074c..555d7e210 100644 --- a/stdlib/source/test/lux/data/collection/set/multi.lux +++ b/stdlib/source/test/lux/data/collection/set/multi.lux @@ -10,10 +10,10 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" set] - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/data/collection/set/ordered.lux b/stdlib/source/test/lux/data/collection/set/ordered.lux index f8dba7aaf..64a1dc4bb 100644 --- a/stdlib/source/test/lux/data/collection/set/ordered.lux +++ b/stdlib/source/test/lux/data/collection/set/ordered.lux @@ -8,11 +8,11 @@ [\\specification ["$[0]" equivalence]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library diff --git a/stdlib/source/test/lux/data/collection/stack.lux b/stdlib/source/test/lux/data/collection/stack.lux index 70141fc19..337b7de4e 100644 --- a/stdlib/source/test/lux/data/collection/stack.lux +++ b/stdlib/source/test/lux/data/collection/stack.lux @@ -10,7 +10,7 @@ [control ["[0]" maybe]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/collection/stream.lux b/stdlib/source/test/lux/data/collection/stream.lux index 7c6f10baf..ee293cfa8 100644 --- a/stdlib/source/test/lux/data/collection/stream.lux +++ b/stdlib/source/test/lux/data/collection/stream.lux @@ -13,7 +13,7 @@ ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/collection/tree.lux b/stdlib/source/test/lux/data/collection/tree.lux index c936ded41..945c1c6b8 100644 --- a/stdlib/source/test/lux/data/collection/tree.lux +++ b/stdlib/source/test/lux/data/collection/tree.lux @@ -11,7 +11,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux index d2ddb1b96..a9e3d68e6 100644 --- a/stdlib/source/test/lux/data/collection/tree/finger.lux +++ b/stdlib/source/test/lux/data/collection/tree/finger.lux @@ -5,11 +5,11 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data - ["[0]" text ("[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence monoid)] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/collection/tree/zipper.lux b/stdlib/source/test/lux/data/collection/tree/zipper.lux index 4270e0f88..4a2bbac26 100644 --- a/stdlib/source/test/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/test/lux/data/collection/tree/zipper.lux @@ -10,7 +10,7 @@ ["$[0]" comonad]]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data ["[0]" product] ["[0]" text] diff --git a/stdlib/source/test/lux/data/format/binary.lux b/stdlib/source/test/lux/data/format/binary.lux index 4210d2563..8c69f0c64 100644 --- a/stdlib/source/test/lux/data/format/binary.lux +++ b/stdlib/source/test/lux/data/format/binary.lux @@ -8,7 +8,7 @@ [\\specification ["$[0]" monoid]]] [data - ["[0]" binary ("[1]#[0]" equivalence)]] + ["[0]" binary (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 9ae374636..1fb8f94fa 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -9,7 +9,7 @@ ["$[0]" equivalence] ["$[0]" codec]]] [control - ["[0]" try ("[1]#[0]" functor)]] + ["[0]" try (.open: "[1]#[0]" functor)]] [data ["[0]" product] ["[0]" bit] @@ -19,7 +19,7 @@ ["[0]" sequence] ["[0]" dictionary] ["[0]" set] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random (.only Random)] [number @@ -29,7 +29,7 @@ ["[0]" syntax (.only syntax:)] ["[0]" code]]]] [\\library - ["[0]" / (.only JSON) ("#[0]" equivalence)]]) + ["[0]" / (.only JSON) (.open: "[1]#[0]" equivalence)]]) (def: .public random (Random /.JSON) @@ -85,7 +85,7 @@ (|> expected /.format (# /.codec decoded) - (try#each (#= expected)) + (try#each (/#= expected)) (try.else false)))) (do random.monad [keys (random.set text.hash 3 (random.alphabetic 1)) @@ -106,7 +106,7 @@ (_.coverage [/.field] (list.every? (function (_ [key expected]) (|> (/.field key object) - (try#each (#= expected)) + (try#each (/#= expected)) (try.else false))) expected)) )) @@ -122,7 +122,7 @@ .let [can_find_known_key! (|> object (/.field key) - (try#each (#= {/.#Number expected})) + (try#each (/#= {/.#Number expected})) (try.else false)) cannot_find_unknown_key! @@ -165,15 +165,15 @@ <key5> (string) <key6> (string)] (_.coverage [/.json] - (and (#= {/.#Null} (/.json ())) + (and (/#= {/.#Null} (/.json ())) (~~ (template [<tag> <value>] - [(#= {<tag> <value>} (/.json <value>))] + [(/#= {<tag> <value>} (/.json <value>))] [/.#Boolean <boolean>] [/.#Number <number>] [/.#String <string>] )) - (#= {/.#Array <array_sequence>} (/.json [() <boolean> <number> <string>])) + (/#= {/.#Array <array_sequence>} (/.json [() <boolean> <number> <string>])) (let [object (/.json {<key0> () <key1> <boolean> <key2> <number> @@ -189,11 +189,11 @@ value4 (/.field <key4> object) value5 (/.field <key5> object) value6 (/.field <key6> value5)] - (in (and (#= {/.#Null} value0) - (#= {/.#Boolean <boolean>} value1) - (#= {/.#Number <number>} value2) - (#= {/.#String <string>} value3) - (#= {/.#Array <array_sequence>} value4) - (#= {/.#Number <number>} value6)))))) + (in (and (/#= {/.#Null} value0) + (/#= {/.#Boolean <boolean>} value1) + (/#= {/.#Number <number>} value2) + (/#= {/.#String <string>} value3) + (/#= {/.#Array <array_sequence>} value4) + (/#= {/.#Number <number>} value6)))))) ))) )))) diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 24c1be821..c30fb086b 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -12,8 +12,8 @@ ["<b>" binary]]] [data ["[0]" product] - ["[0]" binary ("[1]#[0]" equivalence monoid)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" binary (.open: "[1]#[0]" equivalence monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]] @@ -22,7 +22,7 @@ ["[1]/[0]" block]]] [collection ["[0]" sequence] - ["[0]" list ("[1]#[0]" mix)]] + ["[0]" list (.open: "[1]#[0]" mix)]] ["[0]" format ["[1]" binary]]] [time diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index 89c68a67a..dc95a00fe 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -13,15 +13,15 @@ ["p" parser ["</>" xml]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" dictionary] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["^" pattern]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] [meta diff --git a/stdlib/source/test/lux/data/sum.lux b/stdlib/source/test/lux/data/sum.lux index 9dd279775..82adfdc49 100644 --- a/stdlib/source/test/lux/data/sum.lux +++ b/stdlib/source/test/lux/data/sum.lux @@ -12,7 +12,7 @@ [data ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux index 0def44bd6..b6d868fbd 100644 --- a/stdlib/source/test/lux/data/text/buffer.lux +++ b/stdlib/source/test/lux/data/text/buffer.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/lux/data/text/encoding.lux b/stdlib/source/test/lux/data/text/encoding.lux index 42f0e9d38..d56fd8bdc 100644 --- a/stdlib/source/test/lux/data/text/encoding.lux +++ b/stdlib/source/test/lux/data/text/encoding.lux @@ -10,9 +10,9 @@ ["[0]" maybe] ["[0]" try]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" mix)] + ["[0]" list (.open: "[1]#[0]" mix)] ["[0]" set]]] [macro ["[0]" template]] diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index c2d06ce89..aba3d5948 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -12,8 +12,8 @@ [parser ["<[0]>" code]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text (.only Char) ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.only Char) (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" set (.only Set)]]] diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux index 9026a7029..903e13497 100644 --- a/stdlib/source/test/lux/data/text/format.lux +++ b/stdlib/source/test/lux/data/text/format.lux @@ -11,13 +11,13 @@ [control ["[0]" try]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] ["[0]" bit] [format ["[0]" xml] ["[0]" json]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] ["[0]" time (.only) ["[0]" day] ["[0]" month] @@ -25,7 +25,7 @@ ["[0]" duration] ["[0]" date]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] ["[0]" modulus] ["[0]" modular] [number diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index 646e29e6c..c16388e4e 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -11,7 +11,7 @@ ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux index a0cc8b90f..af36a8463 100644 --- a/stdlib/source/test/lux/data/text/unicode/set.lux +++ b/stdlib/source/test/lux/data/text/unicode/set.lux @@ -8,9 +8,9 @@ ["$[0]" equivalence]]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection - ["[0]" set ("[1]#[0]" equivalence)]]] + ["[0]" set (.open: "[1]#[0]" equivalence)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/debug.lux b/stdlib/source/test/lux/debug.lux index 30b464449..9b61ab55d 100644 --- a/stdlib/source/test/lux/debug.lux +++ b/stdlib/source/test/lux/debug.lux @@ -6,15 +6,15 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]] + ["[0]" list (.open: "[1]#[0]" functor)]] [format [json (.only JSON)] [xml (.only XML)]]] diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux index b6a08b480..40ad67b42 100644 --- a/stdlib/source/test/lux/documentation.lux +++ b/stdlib/source/test/lux/documentation.lux @@ -9,7 +9,7 @@ [parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [format ["md" markdown]]] diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux index a40850eb7..c8434e1c6 100644 --- a/stdlib/source/test/lux/extension.lux +++ b/stdlib/source/test/lux/extension.lux @@ -19,7 +19,7 @@ [abstract ["[0]" monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["<>" parser (.only) ["<[0]>" code] ["<[0]>" analysis] @@ -27,11 +27,11 @@ [data ["[0]" binary] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" sequence] - ["[0]" list ("[1]#[0]" functor)]] + ["[0]" list (.open: "[1]#[0]" functor)]] [format ["[0]F" binary]]] [macro diff --git a/stdlib/source/test/lux/ffi.js.lux b/stdlib/source/test/lux/ffi.js.lux index 20920baa6..6d0946605 100644 --- a/stdlib/source/test/lux/ffi.js.lux +++ b/stdlib/source/test/lux/ffi.js.lux @@ -7,8 +7,8 @@ [control ["[0]" try]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux index 9e4af45a8..0174a039f 100644 --- a/stdlib/source/test/lux/ffi.jvm.lux +++ b/stdlib/source/test/lux/ffi.jvm.lux @@ -2,7 +2,7 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] ["[0]" meta] ["[0]" debug] ["[0]" static] @@ -10,13 +10,13 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" code]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" array (.only Array)]]] @@ -25,15 +25,15 @@ ["[0]" code] ["[0]" template]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number (.only hex) ["[0]" i64] ["n" nat] - ["i" int ("[1]#[0]" equivalence)] - ["f" frac ("[1]#[0]" equivalence)]]] + ["i" int (.open: "[1]#[0]" equivalence)] + ["f" frac (.open: "[1]#[0]" equivalence)]]] [target ["[0]" jvm - ["[1]" type ("[1]#[0]" equivalence)]]]]] + ["[1]" type (.open: "[1]#[0]" equivalence)]]]]] [\\library ["[0]" /]] ["$[0]" / diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux index 53b14d335..e5f5ab8aa 100644 --- a/stdlib/source/test/lux/ffi.old.lux +++ b/stdlib/source/test/lux/ffi.old.lux @@ -8,7 +8,7 @@ [control ["[0]" pipe]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [macro ["[0]" template]] @@ -18,7 +18,7 @@ ["n" nat] ["i" int] ["f" frac]]] - ["[0]" type ("[1]#[0]" equivalence)]]] + ["[0]" type (.open: "[1]#[0]" equivalence)]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/ffi.php.lux b/stdlib/source/test/lux/ffi.php.lux index d880303ec..22532f1b1 100644 --- a/stdlib/source/test/lux/ffi.php.lux +++ b/stdlib/source/test/lux/ffi.php.lux @@ -7,7 +7,7 @@ [control ["[0]" try]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/ffi.scm.lux b/stdlib/source/test/lux/ffi.scm.lux index d880303ec..22532f1b1 100644 --- a/stdlib/source/test/lux/ffi.scm.lux +++ b/stdlib/source/test/lux/ffi.scm.lux @@ -7,7 +7,7 @@ [control ["[0]" try]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/ffi/export.jvm.lux b/stdlib/source/test/lux/ffi/export.jvm.lux index b01c607ef..7dc0e194d 100644 --- a/stdlib/source/test/lux/ffi/export.jvm.lux +++ b/stdlib/source/test/lux/ffi/export.jvm.lux @@ -8,18 +8,18 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]]] [macro ["[0]" code] ["[0]" template]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number (.only hex) ["[0]" i64] - ["[0]" int ("[1]#[0]" equivalence)] - ["[0]" frac ("[1]#[0]" equivalence)]]]]] + ["[0]" int (.open: "[1]#[0]" equivalence)] + ["[0]" frac (.open: "[1]#[0]" equivalence)]]]]] [\\library ["[0]" / (.only) ["/[1]" //]]]) diff --git a/stdlib/source/test/lux/locale.lux b/stdlib/source/test/lux/locale.lux index 7116e3e67..7f4f183fb 100644 --- a/stdlib/source/test/lux/locale.lux +++ b/stdlib/source/test/lux/locale.lux @@ -8,9 +8,9 @@ ["$[0]" equivalence] ["$[0]" hash]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["[0]" encoding (.only Encoding)]] [collection ["[0]" list]]]]] diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index 66f34be4f..6c8b4f6ad 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -13,7 +13,7 @@ ["[0]" text] [collection ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux index c1d82e8fc..067d68595 100644 --- a/stdlib/source/test/lux/locale/territory.lux +++ b/stdlib/source/test/lux/locale/territory.lux @@ -13,7 +13,7 @@ ["[0]" text] [collection ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux index cda98f580..f1f2bce0b 100644 --- a/stdlib/source/test/lux/macro.lux +++ b/stdlib/source/test/lux/macro.lux @@ -6,11 +6,11 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" code]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format (.only format)]] [collection @@ -18,7 +18,7 @@ [macro ["^" pattern]] [math - ["[0]" random (.only Random) ("[1]#[0]" functor)] + ["[0]" random (.only Random) (.open: "[1]#[0]" functor)] [number ["n" nat]]] ["[0]" meta (.only) @@ -27,7 +27,7 @@ [\\library ["[0]" / (.only) [syntax (.only syntax:)] - ["[0]" code ("[1]#[0]" equivalence)] + ["[0]" code (.open: "[1]#[0]" equivalence)] ["[0]" template]]] ["[0]" / ["[1][0]" code] diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index 34f759fed..f3991eda0 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -12,9 +12,9 @@ ["[0]" product] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] [meta diff --git a/stdlib/source/test/lux/macro/pattern.lux b/stdlib/source/test/lux/macro/pattern.lux index 1353b17ed..6fb9ef8d0 100644 --- a/stdlib/source/test/lux/macro/pattern.lux +++ b/stdlib/source/test/lux/macro/pattern.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [macro ["[0]" code]] [math diff --git a/stdlib/source/test/lux/macro/syntax/check.lux b/stdlib/source/test/lux/macro/syntax/check.lux index c7e4dbc39..cb43a209c 100644 --- a/stdlib/source/test/lux/macro/syntax/check.lux +++ b/stdlib/source/test/lux/macro/syntax/check.lux @@ -13,7 +13,7 @@ [math ["[0]" random (.only Random)]] [macro - ["[0]" code ("[1]#[0]" equivalence)]]]] + ["[0]" code (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" /]] ["$[0]" /// diff --git a/stdlib/source/test/lux/macro/syntax/definition.lux b/stdlib/source/test/lux/macro/syntax/definition.lux index 2365e0d6b..7fa3550dd 100644 --- a/stdlib/source/test/lux/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/macro/syntax/definition.lux @@ -12,7 +12,7 @@ ["<>" parser (.only) ["<[0]>" code]]] [macro - ["[0]" code ("[1]#[0]" equivalence)]] + ["[0]" code (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]] [meta diff --git a/stdlib/source/test/lux/macro/syntax/export.lux b/stdlib/source/test/lux/macro/syntax/export.lux index a2133452c..151d72ada 100644 --- a/stdlib/source/test/lux/macro/syntax/export.lux +++ b/stdlib/source/test/lux/macro/syntax/export.lux @@ -6,11 +6,11 @@ [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" code]]] [macro - ["[0]" code ("[1]#[0]" equivalence)]] + ["[0]" code (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/macro/syntax/type/variable.lux b/stdlib/source/test/lux/macro/syntax/type/variable.lux index db7e23daa..0e1d52f6f 100644 --- a/stdlib/source/test/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/test/lux/macro/syntax/type/variable.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" code]]] [math diff --git a/stdlib/source/test/lux/math.lux b/stdlib/source/test/lux/math.lux index 6c7cfd915..38c704927 100644 --- a/stdlib/source/test/lux/math.lux +++ b/stdlib/source/test/lux/math.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [macro ["[0]" template]] [math diff --git a/stdlib/source/test/lux/math/infix.lux b/stdlib/source/test/lux/math/infix.lux index 249f8d3a2..441df11b9 100644 --- a/stdlib/source/test/lux/math/infix.lux +++ b/stdlib/source/test/lux/math/infix.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/math/logic/fuzzy.lux b/stdlib/source/test/lux/math/logic/fuzzy.lux index e0e5bc1ea..2cfc62142 100644 --- a/stdlib/source/test/lux/math/logic/fuzzy.lux +++ b/stdlib/source/test/lux/math/logic/fuzzy.lux @@ -9,7 +9,7 @@ [functor ["$[0]" contravariant]]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list] ["[0]" set]]] diff --git a/stdlib/source/test/lux/math/modular.lux b/stdlib/source/test/lux/math/modular.lux index e05d7c8e9..0137ba9ae 100644 --- a/stdlib/source/test/lux/math/modular.lux +++ b/stdlib/source/test/lux/math/modular.lux @@ -2,7 +2,7 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [monad (.only do)] ["[0]" predicate] @@ -16,7 +16,7 @@ ["[0]" exception]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/math/number/complex.lux b/stdlib/source/test/lux/math/number/complex.lux index ec11a5428..087ee1245 100644 --- a/stdlib/source/test/lux/math/number/complex.lux +++ b/stdlib/source/test/lux/math/number/complex.lux @@ -8,7 +8,7 @@ ["$[0]" equivalence]]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/math/number/frac.lux b/stdlib/source/test/lux/math/number/frac.lux index 5f4c021bd..c302d876c 100644 --- a/stdlib/source/test/lux/math/number/frac.lux +++ b/stdlib/source/test/lux/math/number/frac.lux @@ -13,7 +13,7 @@ ["$[0]" monoid] ["$[0]" codec]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [macro ["[0]" template]] [math diff --git a/stdlib/source/test/lux/math/number/i64.lux b/stdlib/source/test/lux/math/number/i64.lux index f6ade938b..550d6f03d 100644 --- a/stdlib/source/test/lux/math/number/i64.lux +++ b/stdlib/source/test/lux/math/number/i64.lux @@ -3,7 +3,7 @@ [lux (.except) ["_" test (.only Test)] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [abstract [monad (.only do)] [\\specification @@ -13,7 +13,7 @@ [math ["[0]" random (.only Random)]]]] [\\library - ["[0]" / ("#[0]" equivalence) + ["[0]" / (.open: "[1]#[0]" equivalence) [// (.only hex) ["n" nat] ["i" int]]]]) @@ -26,20 +26,20 @@ (all _.and (_.coverage [/.one? /.one] (if (/.one? idx pattern) - (#= pattern (/.one idx pattern)) - (not (#= pattern (/.one idx pattern))))) + (/#= pattern (/.one idx pattern)) + (not (/#= pattern (/.one idx pattern))))) (_.coverage [/.zero? /.zero] (if (/.zero? idx pattern) - (#= pattern (/.zero idx pattern)) - (not (#= pattern (/.zero idx pattern))))) + (/#= pattern (/.zero idx pattern)) + (not (/#= pattern (/.zero idx pattern))))) (_.coverage [/.flipped] - (#= (/.flipped idx pattern) - (if (/.one? idx pattern) - (/.zero idx pattern) - (/.one idx pattern)))) + (/#= (/.flipped idx pattern) + (if (/.one? idx pattern) + (/.zero idx pattern) + (/.one idx pattern)))) (_.coverage [/.bit] (bit#= (/.zero? idx pattern) - (#= /.false (/.and (/.bit idx) pattern)))) + (/#= /.false (/.and (/.bit idx) pattern)))) ))) (def: shift @@ -51,19 +51,19 @@ [idx (# ! each (|>> (n.% (-- /.width)) ++) random.nat)] (_.coverage [/.left_shifted /.right_shifted] (let [nullity! - (and (#= pattern (/.left_shifted 0 pattern)) - (#= pattern (/.right_shifted 0 pattern))) + (and (/#= pattern (/.left_shifted 0 pattern)) + (/#= pattern (/.right_shifted 0 pattern))) idempotency! - (and (#= pattern (/.left_shifted /.width pattern)) - (#= pattern (/.right_shifted /.width pattern))) + (and (/#= pattern (/.left_shifted /.width pattern)) + (/#= pattern (/.right_shifted /.width pattern))) movement! (let [shift (n.- idx /.width)] - (#= (/.and (/.mask idx) pattern) - (|> pattern - (/.left_shifted shift) - (/.right_shifted shift))))] + (/#= (/.and (/.mask idx) pattern) + (|> pattern + (/.left_shifted shift) + (/.right_shifted shift))))] (and nullity! idempotency! movement!)))) @@ -78,20 +78,20 @@ signed random.int] (all _.and (_.coverage [/.sign] - (bit#= (#= (.i64 0) (/.and /.sign signed)) + (bit#= (/#= (.i64 0) (/.and /.sign signed)) (i.positive? signed))) (_.coverage [/.mask] (let [mask (/.mask idx) - idempotency! (#= (/.and mask pattern) - (/.and mask (/.and mask pattern))) + idempotency! (/#= (/.and mask pattern) + (/.and mask (/.and mask pattern))) limit (++ (.nat mask)) limit! (if (n.< limit pattern) - (#= pattern (/.and mask pattern)) + (/#= pattern (/.and mask pattern)) (n.< limit (/.and mask pattern))) - empty! (#= /.false (/.mask 0)) - full! (#= /.true (/.mask /.width))] + empty! (/#= /.false (/.mask 0)) + full! (/#= /.true (/.mask /.width))] (and idempotency! limit! @@ -103,19 +103,19 @@ offset (# ! each (n.% spare) random.nat)] (_.coverage [/.region] (case size - 0 (#= /.false (/.region offset size)) - _ (#= (|> pattern - ... NNNNYYYYNNNN - (/.right_shifted offset) - ... ____NNNNYYYY - (/.left_shifted spare) - ... YYYY________ - (/.right_shifted spare) - ... ________YYYY - (/.left_shifted offset) - ... ____YYYY____ - ) - (/.and (/.region offset size) pattern))))) + 0 (/#= /.false (/.region offset size)) + _ (/#= (|> pattern + ... NNNNYYYYNNNN + (/.right_shifted offset) + ... ____NNNNYYYY + (/.left_shifted spare) + ... YYYY________ + (/.right_shifted spare) + ... ________YYYY + (/.left_shifted offset) + ... ____YYYY____ + ) + (/.and (/.region offset size) pattern))))) )))) (def: sub @@ -143,7 +143,7 @@ ($equivalence.spec (# sub sub_equivalence) (random (# sub narrow))) (_.coverage [/.sub] (let [actual (|> expected .i64 (# sub narrow) (# sub wide))] - (#= expected actual))) + (/#= expected actual))) )))))) (def: signature @@ -175,27 +175,27 @@ (_.coverage [/.false] (n.= 0 (/.ones /.false))) (_.coverage [/.or] - (and (#= /.true (/.or /.true pattern)) - (#= pattern (/.or /.false pattern)))) + (and (/#= /.true (/.or /.true pattern)) + (/#= pattern (/.or /.false pattern)))) (_.coverage [/.true] (n.= /.width (/.ones /.true))) (_.coverage [/.and] - (and (#= pattern (/.and /.true pattern)) - (#= /.false (/.and /.false pattern)))) + (and (/#= pattern (/.and /.true pattern)) + (/#= /.false (/.and /.false pattern)))) (_.coverage [/.not] - (and (#= /.false - (/.and pattern - (/.not pattern))) - (#= /.true - (/.or pattern - (/.not pattern))))) + (and (/#= /.false + (/.and pattern + (/.not pattern))) + (/#= /.true + (/.or pattern + (/.not pattern))))) (_.coverage [/.xor] - (and (#= /.true - (/.xor pattern - (/.not pattern))) - (#= /.false - (/.xor pattern - pattern)))) + (and (/#= /.true + (/.xor pattern + (/.not pattern))) + (/#= /.false + (/.xor pattern + pattern)))) (_.coverage [/.ones] (let [zero&one! (if (/.one? idx pattern) @@ -210,52 +210,52 @@ complementarity!))) (_.coverage [/.left_rotated /.right_rotated] (let [false! - (and (#= /.false (/.left_rotated idx /.false)) - (#= /.false (/.right_rotated idx /.false))) + (and (/#= /.false (/.left_rotated idx /.false)) + (/#= /.false (/.right_rotated idx /.false))) true! - (and (#= /.true (/.left_rotated idx /.true)) - (#= /.true (/.right_rotated idx /.true))) + (and (/#= /.true (/.left_rotated idx /.true)) + (/#= /.true (/.right_rotated idx /.true))) inverse! (and (|> pattern (/.left_rotated idx) (/.right_rotated idx) - (#= pattern)) + (/#= pattern)) (|> pattern (/.right_rotated idx) (/.left_rotated idx) - (#= pattern))) + (/#= pattern))) nullity! (and (|> pattern (/.left_rotated 0) - (#= pattern)) + (/#= pattern)) (|> pattern (/.right_rotated 0) - (#= pattern))) + (/#= pattern))) futility! (and (|> pattern (/.left_rotated /.width) - (#= pattern)) + (/#= pattern)) (|> pattern (/.right_rotated /.width) - (#= pattern)))] + (/#= pattern)))] (and false! true! inverse! nullity! futility!))) (_.coverage [/.reversed] - (and (|> pattern /.reversed /.reversed (#= pattern)) - (or (|> pattern /.reversed (#= pattern) not) + (and (|> pattern /.reversed /.reversed (/#= pattern)) + (or (|> pattern /.reversed (/#= pattern) not) (let [high (/.and (hex "FFFFFFFF00000000") pattern) low (/.and (hex "00000000FFFFFFFF") pattern)] - (#= (/.reversed high) - low))))) + (/#= (/.reversed high) + low))))) ..bit ..shift diff --git a/stdlib/source/test/lux/math/number/int.lux b/stdlib/source/test/lux/math/number/int.lux index 200d932ea..1509a65fc 100644 --- a/stdlib/source/test/lux/math/number/int.lux +++ b/stdlib/source/test/lux/math/number/int.lux @@ -13,7 +13,7 @@ ["$[0]" monoid] ["$[0]" codec]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/math/number/nat.lux b/stdlib/source/test/lux/math/number/nat.lux index 04a0418c1..733b6445e 100644 --- a/stdlib/source/test/lux/math/number/nat.lux +++ b/stdlib/source/test/lux/math/number/nat.lux @@ -13,7 +13,7 @@ ["$[0]" monoid] ["$[0]" codec]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random]]]] [\\library diff --git a/stdlib/source/test/lux/math/number/ratio.lux b/stdlib/source/test/lux/math/number/ratio.lux index b851e47eb..fe01953dc 100644 --- a/stdlib/source/test/lux/math/number/ratio.lux +++ b/stdlib/source/test/lux/math/number/ratio.lux @@ -10,15 +10,15 @@ ["$[0]" monoid] ["$[0]" codec]]] [control - ["[0]" maybe ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library ["[0]" / (.only) [// - ["n" nat ("[1]#[0]" equivalence)]]]]) + ["n" nat (.open: "[1]#[0]" equivalence)]]]]) (def: part (Random Nat) diff --git a/stdlib/source/test/lux/math/number/rev.lux b/stdlib/source/test/lux/math/number/rev.lux index 45ce9ff55..82b16e725 100644 --- a/stdlib/source/test/lux/math/number/rev.lux +++ b/stdlib/source/test/lux/math/number/rev.lux @@ -13,7 +13,7 @@ ["$[0]" monoid] ["$[0]" codec]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random]]]] [\\library @@ -21,7 +21,7 @@ [// (.only hex) ["n" nat] ["f" frac] - ["[0]" i64 ("[1]#[0]" hash)]]]]) + ["[0]" i64 (.open: "[1]#[0]" hash)]]]]) (def: signature Test diff --git a/stdlib/source/test/lux/meta.lux b/stdlib/source/test/lux/meta.lux index 31119081b..87823e85a 100644 --- a/stdlib/source/test/lux/meta.lux +++ b/stdlib/source/test/lux/meta.lux @@ -2,7 +2,7 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [equivalence (.only Equivalence)] [monad (.only do)] @@ -12,14 +12,14 @@ ["$[0]" monad]]] [control ["[0]" maybe] - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)] + ["[0]" list (.open: "[1]#[0]" functor monoid)] ["[0]" set]]] [macro ["^" pattern]] @@ -29,7 +29,7 @@ ["n" nat]]] [meta ["[0]" location] - ["[0]" symbol ("[1]#[0]" equivalence)]]]] + ["[0]" symbol (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" /]] ["[0]" / diff --git a/stdlib/source/test/lux/meta/configuration.lux b/stdlib/source/test/lux/meta/configuration.lux index 8f9539fae..a8d7f0169 100644 --- a/stdlib/source/test/lux/meta/configuration.lux +++ b/stdlib/source/test/lux/meta/configuration.lux @@ -9,7 +9,7 @@ ["$[0]" equivalence] ["$[0]" monoid]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] ["<>" parser (.only) ["<[0]>" text] @@ -22,7 +22,7 @@ [syntax (.only syntax:)] ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/static.lux b/stdlib/source/test/lux/static.lux index c5ecf3a71..2e810c517 100644 --- a/stdlib/source/test/lux/static.lux +++ b/stdlib/source/test/lux/static.lux @@ -5,14 +5,14 @@ ["@" target] ["[0]" meta] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [macro ["[0]" code]] [math - ["[0]" random ("[1]#[0]" functor)] + ["[0]" random (.open: "[1]#[0]" functor)] [number ["n" nat] ["i" int] diff --git a/stdlib/source/test/lux/target/js.lux b/stdlib/source/test/lux/target/js.lux index c759cc02e..84cd62bdf 100644 --- a/stdlib/source/test/lux/target/js.lux +++ b/stdlib/source/test/lux/target/js.lux @@ -9,18 +9,18 @@ [control ["[0]" pipe] ["[0]" function] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text (.only \n) ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.only \n) (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" template]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["i" int] diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 0dddacfb5..c2c1e49f3 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -13,8 +13,8 @@ [concurrency ["[0]" atom]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] ["[0]" format ["[1]" binary]] @@ -23,9 +23,9 @@ ["[0]" dictionary] ["[0]" sequence] ["[0]" set] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["i" int] @@ -37,7 +37,7 @@ ["[0]" / ["[1][0]" loader (.only Library)] ["[1][0]" version] - ["[1][0]" modifier ("[1]#[0]" monoid)] + ["[1][0]" modifier (.open: "[1]#[0]" monoid)] ["[1][0]" field] ["[1][0]" method (.only Method)] ["[1][0]" class] diff --git a/stdlib/source/test/lux/target/lua.lux b/stdlib/source/test/lux/target/lua.lux index 381758793..fbdc7625e 100644 --- a/stdlib/source/test/lux/target/lua.lux +++ b/stdlib/source/test/lux/target/lua.lux @@ -12,18 +12,18 @@ [control ["[0]" pipe] ["[0]" function] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text (.only \n) ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.only \n) (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" template]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["i" int] diff --git a/stdlib/source/test/lux/target/python.lux b/stdlib/source/test/lux/target/python.lux index 0b484f9ef..35fbf47c8 100644 --- a/stdlib/source/test/lux/target/python.lux +++ b/stdlib/source/test/lux/target/python.lux @@ -12,25 +12,25 @@ ["$[0]" hash]]] [control ["[0]" function] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [macro ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["i" int] ["f" frac] ["[0]" i64]]]]] [\\library - ["[0]" / ("[1]#[0]" equivalence)]]) + ["[0]" / (.open: "[1]#[0]" equivalence)]]) (ffi.import: (eval [Text] "try" "?" Any)) diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux index 94e1df527..5e5588be7 100644 --- a/stdlib/source/test/lux/target/ruby.lux +++ b/stdlib/source/test/lux/target/ruby.lux @@ -11,17 +11,17 @@ ["$[0]" equivalence]]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)]] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor)] + ["[0]" list (.open: "[1]#[0]" functor)] ["[0]" set]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number (.only hex) ["n" nat] ["i" int] @@ -35,7 +35,7 @@ [world ["[0]" file]]]] [\\library - ["[0]" / ("[1]#[0]" equivalence)]]) + ["[0]" / (.open: "[1]#[0]" equivalence)]]) (ffi.import: (eval [Text] "try" "?" Any)) diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux index 1a1842846..b43483870 100644 --- a/stdlib/source/test/lux/test.lux +++ b/stdlib/source/test/lux/test.lux @@ -10,7 +10,7 @@ ["[0]" async] ["[0]" atom (.only Atom)]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [collection ["[0]" list] diff --git a/stdlib/source/test/lux/time.lux b/stdlib/source/test/lux/time.lux index 8f478b695..456409afd 100644 --- a/stdlib/source/test/lux/time.lux +++ b/stdlib/source/test/lux/time.lux @@ -11,7 +11,7 @@ ["$[0]" codec]]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" text]]] diff --git a/stdlib/source/test/lux/time/date.lux b/stdlib/source/test/lux/time/date.lux index 1d0da3548..2d9a2486b 100644 --- a/stdlib/source/test/lux/time/date.lux +++ b/stdlib/source/test/lux/time/date.lux @@ -10,7 +10,7 @@ ["$[0]" enum] ["$[0]" codec]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" text]]] diff --git a/stdlib/source/test/lux/time/day.lux b/stdlib/source/test/lux/time/day.lux index 4537d684d..432012147 100644 --- a/stdlib/source/test/lux/time/day.lux +++ b/stdlib/source/test/lux/time/day.lux @@ -12,14 +12,14 @@ ["$[0]" enum] ["$[0]" codec]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data [collection ["[0]" list] ["[0]" set]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library diff --git a/stdlib/source/test/lux/time/duration.lux b/stdlib/source/test/lux/time/duration.lux index 80e516133..d637ebf2f 100644 --- a/stdlib/source/test/lux/time/duration.lux +++ b/stdlib/source/test/lux/time/duration.lux @@ -11,7 +11,7 @@ ["$[0]" monoid] ["$[0]" codec]]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/time/instant.lux b/stdlib/source/test/lux/time/instant.lux index 50c1eec56..0ae5bf04c 100644 --- a/stdlib/source/test/lux/time/instant.lux +++ b/stdlib/source/test/lux/time/instant.lux @@ -15,12 +15,12 @@ ["[0]" io]] [data [collection - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random]] [time ["[0]" duration (.only Duration)] - ["[0]" day (.only Day) ("[1]#[0]" enum)]]]] + ["[0]" day (.only Day) (.open: "[1]#[0]" enum)]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/time/month.lux b/stdlib/source/test/lux/time/month.lux index 61172c7be..b1950994b 100644 --- a/stdlib/source/test/lux/time/month.lux +++ b/stdlib/source/test/lux/time/month.lux @@ -12,12 +12,12 @@ ["$[0]" enum] ["$[0]" codec]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data [collection ["[0]" set] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/time/year.lux b/stdlib/source/test/lux/time/year.lux index d96fb4539..f80e03838 100644 --- a/stdlib/source/test/lux/time/year.lux +++ b/stdlib/source/test/lux/time/year.lux @@ -12,7 +12,7 @@ ["[0]" try] ["[0]" exception]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [text ["%" format (.only format)]]] [math diff --git a/stdlib/source/test/lux/tool/compiler/arity.lux b/stdlib/source/test/lux/tool/compiler/arity.lux index cba1ec670..7ba4457d0 100644 --- a/stdlib/source/test/lux/tool/compiler/arity.lux +++ b/stdlib/source/test/lux/tool/compiler/arity.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux index 3ee106194..a1f45b42d 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux @@ -14,14 +14,14 @@ ["[0]" try] ["[0]" exception (.only exception:)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [macro ["[0]" template]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["f" frac]]] [meta @@ -45,7 +45,7 @@ ["[1][0]" symbol] ["[0]" location ["[2][1]" /] - ["[1]" \\library ("[1]#[0]" equivalence)]]]]]] + ["[1]" \\library (.open: "[1]#[0]" equivalence)]]]]]] [\\library ["[0]" / (.only) [// diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux index 4167b14b8..6b10cb6ea 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux @@ -8,11 +8,11 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux index 0b8e456e7..362d94927 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux @@ -9,23 +9,23 @@ ["$[0]" equivalence]]] [control ["[0]" pipe] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only Exception)]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]] [collection ["[0]" set] ["[0]" dictionary] - ["[0]" list ("[1]#[0]" functor mix)]]] + ["[0]" list (.open: "[1]#[0]" functor mix)]]] [macro ["^" pattern]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number - ["n" nat ("[1]#[0]" interval)] + ["n" nat (.open: "[1]#[0]" interval)] ["i" int] ["r" rev] ["f" frac]]]]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux index 1f73e45e7..f7acc50f8 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux @@ -5,19 +5,19 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only Exception)]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] [meta @@ -25,7 +25,7 @@ ["$[1]" \\test]] ["[0]" configuration ["$[1]" \\test]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check (.only Check)]]]] [\\library ["[0]" / (.only) @@ -42,7 +42,7 @@ ["[1]/[0]" analysis ["[1]" lux]]]] [/// - ["[2][0]" phase ("[1]#[0]" monad)] + ["[2][0]" phase (.open: "[1]#[0]" monad)] [meta ["[0]" archive]]]]]]]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux index 832684b48..684873614 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux @@ -8,18 +8,18 @@ ["$[0]" equivalence]]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection - ["[0]" list ("[1]#[0]" monad)]]] + ["[0]" list (.open: "[1]#[0]" monad)]]] [macro - ["[0]" code ("[1]#[0]" equivalence)]] + ["[0]" code (.open: "[1]#[0]" equivalence)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]] ["[0]" meta (.only) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux index 1093d5917..ef24e378b 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux @@ -6,11 +6,11 @@ ["[0]" monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list] ["[0]" set]]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux index 38be6c002..b78881b03 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux @@ -7,10 +7,10 @@ [\\specification ["$[0]" equivalence]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["f" frac]]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux index e2c440224..8a4730a35 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux @@ -6,8 +6,8 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data ["[0]" product] @@ -26,7 +26,7 @@ [phase ["[1][0]" extension]] [/// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [reference ["[1][0]" variable (.only Register Variable)]]]]]]] ["$[0]" // diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux index 223b22cca..a918dc13c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux @@ -7,10 +7,10 @@ [\\specification ["$[0]" equivalence]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["f" frac]]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux index 4a2f18b51..5b2c340dc 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux @@ -6,7 +6,7 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)]] + ["[0]" try (.open: "[1]#[0]" functor)]] [data ["[0]" product]] [math @@ -14,7 +14,7 @@ [meta ["[0]" configuration ["$[1]" \\test]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]] [\\library ["[0]" / (.only) @@ -24,7 +24,7 @@ [phase ["[2][0]" extension]] [/// - ["[2][0]" phase ("[1]#[0]" functor)]]]]]]) + ["[2][0]" phase (.open: "[1]#[0]" functor)]]]]]]) (def: .public random_state (Random Lux) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux index 87ca59d95..67c097440 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux @@ -18,7 +18,7 @@ ["[0]" random] [number ["n" nat]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]] [\\library ["[0]" / (.only) @@ -36,7 +36,7 @@ ["[1][0]" type (.only) ["$[1]" \\test]]] [/// - ["[0]" phase ("[1]#[0]" monad)] + ["[0]" phase (.open: "[1]#[0]" monad)] [meta ["[0]" archive]]]]]]] ["[0]" / diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux index 2c2367a0c..f69c47c4c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux @@ -5,7 +5,7 @@ [abstract [monad (.only do)]] [control - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception]] [data ["[0]" product] @@ -15,7 +15,7 @@ ["[0]" code]] [math ["[0]" random]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]] [\\library ["[0]" / (.only) @@ -36,7 +36,7 @@ ["[2][0]" inference ["$[1]" \\test]]] [/// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta ["[0]" archive]]]]]]]]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux index 2db4901b8..669d747ff 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux @@ -6,22 +6,22 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.only Try) (.open: "[1]#[0]" functor)] ["[0]" exception (.only Exception)]] [data ["[0]" product] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" text (.only) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" monad monoid)] + ["[0]" list (.open: "[1]#[0]" monad monoid)] ["[0]" set]]] [macro ["^" pattern] ["[0]" code]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat] ["f" frac]]] @@ -30,7 +30,7 @@ ["$[1]" \\test]] ["[0]" configuration ["$[1]" \\test]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["[0]" check]]]] [\\library ["[0]" / (.only) @@ -48,7 +48,7 @@ ["[2][0]" complex] ["[2][0]" scope]] [/// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta ["[0]" archive]]]]]]]]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux index 423a541aa..90730f325 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux @@ -6,7 +6,7 @@ [monad (.only do)]] [control ["[0]" function] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data ["[0]" product] @@ -23,7 +23,7 @@ [meta ["[0]" symbol ["$[1]" \\test]]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["$[1]" \\test] ["[0]" check]]]] [\\library @@ -43,7 +43,7 @@ ["[2][0]" inference ["$[1]" \\test]]] [/// - ["[1][0]" phase ("[1]#[0]" monad)] + ["[1][0]" phase (.open: "[1]#[0]" monad)] [meta ["[0]" archive]]]]]]]]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux index a6ec3d851..9f09dba69 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux @@ -6,14 +6,14 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception]] [data ["[0]" product] ["[0]" text]] [math ["[0]" random]] - ["[0]" type ("[1]#[0]" equivalence) + ["[0]" type (.open: "[1]#[0]" equivalence) ["$[1]" \\test]]]] [\\library ["[0]" / (.only) @@ -27,7 +27,7 @@ ["[2][0]" type (.only) ["$[1]" \\test]]] [/// - ["[1][0]" phase ("[1]#[0]" monad)]]]]]]]) + ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux index 6796d5da7..66d8d5833 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux @@ -2,7 +2,7 @@ [library [lux (.except) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract [monad (.only do)]] [control @@ -24,7 +24,7 @@ ["[2][0]" type] ["[2][0]" module]] [/// - ["[1][0]" phase ("[1]#[0]" functor)]]]]]]) + ["[1][0]" phase (.open: "[1]#[0]" functor)]]]]]]) (def: (analysis state module type it ?) (-> Lux Text Type (Operation Analysis) (-> Analysis Bit) Bit) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux index c4417535c..05ddfaaff 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux @@ -12,12 +12,12 @@ ["[0]" try] ["[0]" exception]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" dictionary] - ["[0]" list ("[1]#[0]" mix)]]] + ["[0]" list (.open: "[1]#[0]" mix)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux index 7159422cc..c7d2ba84e 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux @@ -14,7 +14,7 @@ ["[0]" atom]]] [data ["[0]" product]] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [macro ["[0]" code]] [meta diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux index c885819a5..351098c03 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux @@ -6,7 +6,7 @@ ["[0]" monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)]] + ["[0]" try (.open: "[1]#[0]" functor)]] [data ["[0]" sum] ["[0]" text (.only) @@ -17,7 +17,7 @@ ["[0]" rev] ["[0]" frac]] [collection - ["[0]" list ("[1]#[0]" functor mix monoid)] + ["[0]" list (.open: "[1]#[0]" functor mix monoid)] ["[0]" set]]] [math ["[0]" random (.only Random)]]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux index fb46bc028..8ab54be6f 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux @@ -12,7 +12,7 @@ [number ["n" nat]] [collection - ["[0]" list ("[1]#[0]" functor mix monoid)] + ["[0]" list (.open: "[1]#[0]" functor mix monoid)] ["[0]" dictionary (.only Dictionary)] ["[0]" set]]] [macro diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux index 4d0ae78d3..96c5116be 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux @@ -10,9 +10,9 @@ [number ["n" nat]] [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]] [\\ ["[0]" / [//// diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux index fca41d4c5..3e6cdda9c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux @@ -10,7 +10,7 @@ ["n" nat]] [collection ["[0]" list]]] - ["r" math/random (.only Random) ("[1]#[0]" monad)] + ["r" math/random (.only Random) (.open: "[1]#[0]" monad)] ["_" test (.only Test)] [meta ["[0]" symbol]]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux index d2d62f1db..954818c48 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux @@ -10,7 +10,7 @@ ["[0]" pipe] ["[0]" try]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" product] [number ["n" nat]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux index c683c8bb8..006790ba4 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux @@ -14,7 +14,7 @@ [number ["n" nat]] [collection - ["[0]" list ("[1]#[0]" functor mix)] + ["[0]" list (.open: "[1]#[0]" functor mix)] ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]]] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux index 7719130c8..7e92f65ae 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux @@ -5,7 +5,7 @@ ["%" text/format (.only format)] [number ["n" nat]]] - ["r" math/random (.only Random) ("[1]#[0]" monad)] + ["r" math/random (.only Random) (.open: "[1]#[0]" monad)] ["_" test (.only Test)] [control ["[0]" try] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux index 929b99b71..fec861dfd 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux @@ -8,8 +8,8 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux index 20b38598b..61080fd2c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux @@ -8,8 +8,8 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux index c8135b2ad..cd422dccc 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux @@ -8,8 +8,8 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive.lux b/stdlib/source/test/lux/tool/compiler/meta/archive.lux index 9c013079f..359446987 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive.lux @@ -13,7 +13,7 @@ ["%" format (.only format)]] [collection ["[0]" list] - ["[0]" set ("[1]#[0]" equivalence)] + ["[0]" set (.open: "[1]#[0]" equivalence)] ["[0]" sequence]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux index 87ce44514..2f8086595 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux @@ -6,7 +6,7 @@ [\\specification ["$[0]" equivalence]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux index 9bf3509c5..b62b50e3c 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux @@ -7,15 +7,15 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" binary]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [format ["[0]" binary]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux index e67f4e18e..ce5dd5566 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux @@ -6,7 +6,7 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [parser ["<[0]>" binary]]] @@ -20,7 +20,7 @@ [\\library ["[0]" / (.only) [/// - ["[1][0]" signature ("[1]#[0]" equivalence)] + ["[1][0]" signature (.open: "[1]#[0]" equivalence)] ["[1][0]" key]]]] ["[0]" /// ["[1][0]" signature]]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux index f441916d2..7305277cb 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux @@ -5,8 +5,8 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" binary]]] [data @@ -15,7 +15,7 @@ [collection ["[0]" sequence (.only Sequence)] ["[0]" set (.only Set)] - ["[0]" list ("[1]#[0]" mix functor)]] + ["[0]" list (.open: "[1]#[0]" mix functor)]] [format ["[0]" binary]]] [math diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux index b54e7cc63..23a2d62c9 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux @@ -7,12 +7,12 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [parser ["<[0]>" binary]]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [format ["[0]F" binary]]] [math diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux index 1aaa9bfae..3d42ef1e1 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux @@ -5,11 +5,11 @@ [abstract [monad (.only do)]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [concurrency ["[0]" async]]] [data - ["[0]" binary ("[1]#[0]" equivalence)] + ["[0]" binary (.open: "[1]#[0]" equivalence)] [collection ["[0]" sequence]]] [math diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux index 4b31a3c36..de5344cf1 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux @@ -7,9 +7,9 @@ [control ["[0]" try] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [data - ["[0]" binary ("[1]#[0]" equivalence) + ["[0]" binary (.open: "[1]#[0]" equivalence) ["$[1]" \\test]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux index ea51f0f9b..8091e33c8 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux @@ -8,7 +8,7 @@ ["[0]" try] ["[0]" exception] [concurrency - ["[0]" async (.only Async) ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) (.open: "[1]#[0]" monad)]]] [math ["[0]" random]] [world diff --git a/stdlib/source/test/lux/tool/compiler/meta/cli.lux b/stdlib/source/test/lux/tool/compiler/meta/cli.lux index a50a44fc5..6df5fc3dd 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli.lux @@ -6,20 +6,20 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["<>" parser (.only) ["<[0]>" cli]]] [data ["[0]" product] ["[0]" text] [collection - ["[0]" list ("[1]#[0]" monoid monad)]]] + ["[0]" list (.open: "[1]#[0]" monoid monad)]]] [math ["[0]" random (.only Random)] [number ["n" nat]]] [meta - ["[0]" configuration ("[1]#[0]" equivalence) + ["[0]" configuration (.open: "[1]#[0]" equivalence) ["$[1]" \\test]]]]] [\\library ["[0]" / (.only) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux b/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux index 85ea91687..988227519 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux @@ -7,7 +7,7 @@ [\\specification ["$[0]" equivalence]]] [control - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["<>" parser ["<[0]>" text]]] [math diff --git a/stdlib/source/test/lux/tool/compiler/meta/context.lux b/stdlib/source/test/lux/tool/compiler/meta/context.lux index 6031daabf..46d9c6343 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/context.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/context.lux @@ -8,7 +8,7 @@ ["[0]" text] [collection ["[0]" set] - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random (.only Random)] [number diff --git a/stdlib/source/test/lux/tool/compiler/meta/export.lux b/stdlib/source/test/lux/tool/compiler/meta/export.lux index ca92ca74c..eccebdfe0 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/export.lux @@ -6,18 +6,18 @@ [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] [concurrency ["[0]" async]] [parser ["<[0]>" binary]]] [data ["[0]" product] - ["[0]" binary (.only Binary) ("[1]#[0]" equivalence)] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" binary (.only Binary) (.open: "[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [format ["[0]" tar]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/lux/tool/compiler/meta/import.lux b/stdlib/source/test/lux/tool/compiler/meta/import.lux index 7145da568..a055d3408 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/import.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/import.lux @@ -5,8 +5,8 @@ [abstract [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception] [concurrency ["[0]" async]] @@ -14,12 +14,12 @@ ["<[0]>" binary]]] [data ["[0]" product] - ["[0]" binary (.only Binary) ("[1]#[0]" equivalence)] - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" binary (.only Binary) (.open: "[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" format ["[0]" tar (.only Tar)] ["[1]" binary]] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)] [encoding ["[0]" utf8]]] diff --git a/stdlib/source/test/lux/tool/compiler/phase.lux b/stdlib/source/test/lux/tool/compiler/phase.lux index b6d7ac312..6fa17a691 100644 --- a/stdlib/source/test/lux/tool/compiler/phase.lux +++ b/stdlib/source/test/lux/tool/compiler/phase.lux @@ -9,10 +9,10 @@ ["$[0]" monad]]] [control ["[0]" pipe] - ["[0]" try ("[1]#[0]" functor)] + ["[0]" try (.open: "[1]#[0]" functor)] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random] diff --git a/stdlib/source/test/lux/tool/compiler/reference.lux b/stdlib/source/test/lux/tool/compiler/reference.lux index d6ef6ace8..37e61b319 100644 --- a/stdlib/source/test/lux/tool/compiler/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/reference.lux @@ -8,14 +8,14 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format]]] [math ["[0]" random (.only Random)] [number ["n" nat]]] [meta - ["[0]" symbol ("[1]#[0]" equivalence)]]]] + ["[0]" symbol (.open: "[1]#[0]" equivalence)]]]] [\\library ["[0]" / (.only) ["[0]" variable (.only Register)]]] diff --git a/stdlib/source/test/lux/tool/compiler/reference/variable.lux b/stdlib/source/test/lux/tool/compiler/reference/variable.lux index 082350228..cfbd5eeaa 100644 --- a/stdlib/source/test/lux/tool/compiler/reference/variable.lux +++ b/stdlib/source/test/lux/tool/compiler/reference/variable.lux @@ -8,7 +8,7 @@ ["$[0]" equivalence] ["$[0]" hash]]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] [math ["[0]" random (.only Random)]]]] [\\library diff --git a/stdlib/source/test/lux/tool/compiler/version.lux b/stdlib/source/test/lux/tool/compiler/version.lux index 96cd64fa0..cd3bf39ee 100644 --- a/stdlib/source/test/lux/tool/compiler/version.lux +++ b/stdlib/source/test/lux/tool/compiler/version.lux @@ -5,8 +5,8 @@ [abstract [monad (.only do)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/lux/type.lux b/stdlib/source/test/lux/type.lux index 0c6d1e6fa..e93535317 100644 --- a/stdlib/source/test/lux/type.lux +++ b/stdlib/source/test/lux/type.lux @@ -10,20 +10,20 @@ ["[0]" pipe] ["[0]" maybe]] [data - ["[0]" bit ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list] ["[0]" array]]] [macro ["^" pattern] - ["[0]" code ("[1]#[0]" equivalence)]] + ["[0]" code (.open: "[1]#[0]" equivalence)]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library - ["[0]" / ("[1]#[0]" equivalence)]] + ["[0]" / (.open: "[1]#[0]" equivalence)]] ["[0]" / ["[1][0]" primitive] ["[1][0]" check] diff --git a/stdlib/source/test/lux/type/check.lux b/stdlib/source/test/lux/type/check.lux index 27c63dc0b..d8e92bebc 100644 --- a/stdlib/source/test/lux/type/check.lux +++ b/stdlib/source/test/lux/type/check.lux @@ -2,7 +2,7 @@ [library [lux (.except type symbol) ["_" test (.only Test)] - ["[0]" type ("[1]#[0]" equivalence)] + ["[0]" type (.open: "[1]#[0]" equivalence)] [abstract ["[0]" monad (.only do)] [\\specification @@ -15,17 +15,17 @@ ["[0]" try] ["[0]" exception (.only exception:)]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] ["[0]" product] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection - ["[0]" list ("[1]#[0]" functor monoid)] + ["[0]" list (.open: "[1]#[0]" functor monoid)] ["[0]" set]]] [macro ["^" pattern]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)] [number ["n" nat]]]]] [\\library diff --git a/stdlib/source/test/lux/type/dynamic.lux b/stdlib/source/test/lux/type/dynamic.lux index 3b9179d37..cb5931ff7 100644 --- a/stdlib/source/test/lux/type/dynamic.lux +++ b/stdlib/source/test/lux/type/dynamic.lux @@ -8,7 +8,7 @@ ["[0]" try] ["[0]" exception]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random (.only Random)] diff --git a/stdlib/source/test/lux/type/implicit.lux b/stdlib/source/test/lux/type/implicit.lux index 4eb575a18..7a345cd53 100644 --- a/stdlib/source/test/lux/type/implicit.lux +++ b/stdlib/source/test/lux/type/implicit.lux @@ -9,7 +9,7 @@ [monad (.only do)] ["[0]" enum]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math diff --git a/stdlib/source/test/lux/type/primitive.lux b/stdlib/source/test/lux/type/primitive.lux index bb6defdda..15b084af1 100644 --- a/stdlib/source/test/lux/type/primitive.lux +++ b/stdlib/source/test/lux/type/primitive.lux @@ -11,7 +11,7 @@ [parser ["<[0]>" code]]] [data - ["[0]" text ("[1]#[0]" equivalence)]] + ["[0]" text (.open: "[1]#[0]" equivalence)]] ["[0]" macro (.only) [syntax (.only syntax:)] ["[0]" code] diff --git a/stdlib/source/test/lux/type/quotient.lux b/stdlib/source/test/lux/type/quotient.lux index a0f2fa444..c8652e8c7 100644 --- a/stdlib/source/test/lux/type/quotient.lux +++ b/stdlib/source/test/lux/type/quotient.lux @@ -7,12 +7,12 @@ [\\specification ["$[0]" equivalence]]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random (.only Random)] [number - ["n" nat ("[1]#[0]" equivalence)]]]]] + ["n" nat (.open: "[1]#[0]" equivalence)]]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/type/refinement.lux b/stdlib/source/test/lux/type/refinement.lux index fbf318736..514d59e79 100644 --- a/stdlib/source/test/lux/type/refinement.lux +++ b/stdlib/source/test/lux/type/refinement.lux @@ -6,10 +6,10 @@ [predicate (.only Predicate)] [monad (.only do)]] [control - ["[0]" maybe ("[1]#[0]" monad)]] + ["[0]" maybe (.open: "[1]#[0]" monad)]] [data [collection - ["[0]" list ("[1]#[0]" functor)]]] + ["[0]" list (.open: "[1]#[0]" functor)]]] [math ["[0]" random] [number diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index f49981fdd..a33c4817d 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -16,7 +16,7 @@ ["<[0]>" code]]] [data ["[0]" identity (.only Identity)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] ["[0]" macro (.only) [syntax (.only syntax:)] diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index 19b2bc9c2..7ea97fc3f 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -18,7 +18,7 @@ ["[0]" random (.only Random)] [number ["i" int] - ["[0]" ratio ("[1]#[0]" equivalence)]]]]] + ["[0]" ratio (.open: "[1]#[0]" equivalence)]]]]] [\\library ["[0]" /]]) diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index 9cfe5dbc5..cb0978bda 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -9,7 +9,7 @@ ["[0]" try (.only Try)] ["[0]" exception (.only exception:)]] [data - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]]] [math ["[0]" random]]]] diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index 53c2c7ce9..2e06d0af5 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -12,8 +12,8 @@ ["[0]" async (.only Async)] ["[0]" atom (.only Atom)]]] [data - ["[0]" binary (.only Binary) ("[1]#[0]" monoid)] - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" binary (.only Binary) (.open: "[1]#[0]" monoid)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary (.only Dictionary)] ["[0]" list]]] diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux index af69350e0..9ab9e68ec 100644 --- a/stdlib/source/test/lux/world/file/watch.lux +++ b/stdlib/source/test/lux/world/file/watch.lux @@ -11,13 +11,13 @@ [concurrency ["[0]" async (.only Async)]]] [data - ["[0]" binary (.only Binary) ("[1]#[0]" equivalence)] - ["[0]" text ("[1]#[0]" equivalence) + ["[0]" binary (.only Binary) (.open: "[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence) ["%" format (.only format)]] [collection ["[0]" list]]] [math - ["[0]" random (.only Random) ("[1]#[0]" monad)]]]] + ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]]]] [\\library ["[0]" / (.only) ["/[1]" //]]] diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index f13e615a0..3ffd0edf6 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -7,7 +7,7 @@ [control ["[0]" maybe]] [data - ["[0]" bit ("[1]#[0]" equivalence)] + ["[0]" bit (.open: "[1]#[0]" equivalence)] [collection ["[0]" list] ["[0]" set (.only Set)]]] diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux index 21cbaa354..cf5005977 100644 --- a/stdlib/source/test/lux/world/net/http/client.lux +++ b/stdlib/source/test/lux/world/net/http/client.lux @@ -10,7 +10,7 @@ ["[0]" try (.only Try)] ["[0]" function] [concurrency - ["[0]" async ("[1]#[0]" functor)]]] + ["[0]" async (.open: "[1]#[0]" functor)]]] [data ["[0]" binary] ["[0]" product] diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux index 3d7119229..390a77515 100644 --- a/stdlib/source/test/lux/world/program.lux +++ b/stdlib/source/test/lux/world/program.lux @@ -7,13 +7,13 @@ [control ["[0]" pipe] ["[0]" io] - ["[0]" maybe ("[1]#[0]" functor)] + ["[0]" maybe (.open: "[1]#[0]" functor)] ["[0]" try] ["[0]" exception] [parser [environment (.only Environment)]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" dictionary] ["[0]" list]]] diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux index c9960e037..c30aef45d 100644 --- a/stdlib/source/test/lux/world/shell.lux +++ b/stdlib/source/test/lux/world/shell.lux @@ -13,7 +13,7 @@ [parser ["[0]" environment (.only Environment)]]] [data - ["[0]" text ("[1]#[0]" equivalence)] + ["[0]" text (.open: "[1]#[0]" equivalence)] [collection ["[0]" list]]] [math |