diff options
| author | Eduardo Julian | 2022-06-01 21:52:34 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-01 21:52:34 -0400 |
| commit | 5d44577c3849a045052dc1c9f0dd7deddd032120 (patch) | |
| tree | b0e00801734720e9f985c7dfa239aaa0bdea7bcd /stdlib/source/library | |
| parent | 659537b4ec859f1e705cdd1f82da29ab1a662d94 (diff) | |
Extensible import syntax: Part 1
Diffstat (limited to 'stdlib/source/library')
455 files changed, 3138 insertions, 3109 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 7ff877259..53eb1b987 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -3378,10 +3378,10 @@ (type: Referrals (Variant {#All} - {#Only (List Text)} {#Exclude (List Text)} {#Ignore} - {#Nothing})) + {#Nothing} + {#Referral [Symbol (List Code)]})) (type: Openings [Text (List Text)]) @@ -3407,17 +3407,15 @@ (meta#in name) _ - (failure "only/+ and exclude/- require symbols.")))) + (failure "+ and exclude/- require symbols.")))) defs)) (def: (referrals_parser tokens) (-> (List Code) (Meta [Referrals (List Code)])) (case tokens - (pattern#or (pattern (partial_list [_ {#Variant (partial_list [_ {#Text "+"}] defs)}] tokens')) - (pattern (partial_list [_ {#Variant (partial_list [_ {#Text "only"}] defs)}] tokens'))) - (do meta_monad - [defs' (..referral_references defs)] - (in [{#Only defs'} tokens'])) + (pattern (partial_list [_ {#Form (partial_list [_ {#Symbol macro}] defs)}] tokens')) + (meta#in [{#Referral [macro defs]} + tokens']) (pattern#or (pattern (partial_list [_ {#Variant (partial_list [_ {#Text "-"}] defs)}] tokens')) (pattern (partial_list [_ {#Variant (partial_list [_ {#Text "exclude"}] defs)}] tokens'))) @@ -3723,6 +3721,52 @@ cases)] output)) +... TODO: Allow asking the compiler for the name of the definition +... currently being defined. That name can then be fed into +... 'wrong_syntax_error' for easier maintenance of the error_messages. +(def: (wrong_syntax_error it) + (-> Symbol Text) + (|> it + symbol#encoded + (text#composite "Wrong syntax for "))) + +(macro: .public (symbol tokens) + (case tokens + (pattern (list [_ {#Symbol [module name]}])) + (meta#in (list (` [(~ (text$ module)) (~ (text$ name))]))) + + _ + (failure (..wrong_syntax_error [..prelude_module "symbol"])))) + +(def: (test_referrals current_module imported_module all_defs referred_defs) + (-> Text Text (List Text) (List Text) (Meta (List Any))) + (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 " imported_module " @ " current_module))))) + referred_defs)) + +(def: (alias_definition imported_module def) + (-> Text Text Code) + (` ("lux def alias" (~ (local$ def)) (~ (symbol$ [imported_module def]))))) + +(macro: .public (only tokens) + (case (..parsed (all ..andP + ..textP + ..textP + (..someP ..localP)) + tokens) + {.#Some [current_module imported_module actual]} + (do meta_monad + [expected (exported_definitions imported_module) + _ (test_referrals current_module imported_module expected actual)] + (in (list#each (..alias_definition imported_module) actual))) + + {.#None} + (failure (..wrong_syntax_error (symbol ..only))))) + (def: (in_env name state) (-> Text Lux (Maybe Type)) (case state @@ -4129,32 +4173,32 @@ (meta#in []) (failure (all text#composite _def " is not defined in module " module_name " @ " current_module))))) referred_defs)))] - defs' (case r_defs - {#All} - (exported_definitions module_name) - - {#Only +defs} - (do meta_monad - [*defs (exported_definitions module_name) - _ (test_referrals module_name *defs +defs)] - (in +defs)) - - {#Exclude _defs} - (do meta_monad - [*defs (exported_definitions module_name) - _ (test_referrals module_name *defs _defs)] - (in (..list#only (|>> (is_member? _defs) not) *defs))) - - {#Ignore} - (in (list)) - - {#Nothing} - (in (list))) - .let [defs (list#each (is (-> Text Code) - (function (_ def) - (` ("lux def alias" (~ (local$ def)) (~ (symbol$ [module_name def])))))) - defs') - openings (|> r_opens + defs (case r_defs + {#All} + (do meta_monad + [*defs (exported_definitions module_name)] + (in (list#each (alias_definition module_name) + *defs))) + + {#Exclude _defs} + (do meta_monad + [*defs (exported_definitions module_name) + _ (test_referrals module_name *defs _defs)] + (in (list#each (alias_definition module_name) + (..list#only (|>> (is_member? _defs) not) *defs)))) + + {#Ignore} + (in (list)) + + {#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) @@ -4181,9 +4225,6 @@ {#All} (list (' "*")) - {#Only defs} - (list (variant$ (partial_list (' "+") (list#each local$ defs)))) - {#Exclude defs} (list (variant$ (partial_list (' "-") (list#each local$ defs)))) @@ -4191,7 +4232,10 @@ (list) {#Nothing} - (list))) + (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)))) @@ -4690,22 +4734,6 @@ _ (failure "Wrong syntax for pattern#multi"))) -... TODO: Allow asking the compiler for the name of the definition -... currently being defined. That name can then be fed into -... 'wrong_syntax_error' for easier maintenance of the error_messages. -(def: wrong_syntax_error - (-> Symbol Text) - (|>> symbol#encoded - (text#composite "Wrong syntax for "))) - -(macro: .public (symbol tokens) - (case tokens - (pattern (list [_ {#Symbol [module name]}])) - (meta#in (list (` [(~ (text$ module)) (~ (text$ name))]))) - - _ - (failure (..wrong_syntax_error [..prelude_module "symbol"])))) - (def: .public (same? reference sample) (All (_ a) (-> a a Bit)) diff --git a/stdlib/source/library/lux/abstract/algebra.lux b/stdlib/source/library/lux/abstract/algebra.lux index 0ed8b85a5..5708c3f5b 100644 --- a/stdlib/source/library/lux/abstract/algebra.lux +++ b/stdlib/source/library/lux/abstract/algebra.lux @@ -1,8 +1,8 @@ (.using - [library - [lux "*" - [control - [functor {"+" Fix}]]]]) + [library + [lux "*" + [control + [functor (.only Fix)]]]]) (type: .public (Algebra f a) (-> (f a) a)) diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux index 90fedf8d3..45e9c0595 100644 --- a/stdlib/source/library/lux/abstract/apply.lux +++ b/stdlib/source/library/lux/abstract/apply.lux @@ -3,8 +3,8 @@ [lux "*" ["@" target]]] [// - [monad {"+" Monad do}] - ["[0]" functor {"+" Functor}]]) + [monad (.only Monad do)] + ["[0]" functor (.only Functor)]]) (type: .public (Apply f) (Interface diff --git a/stdlib/source/library/lux/abstract/codec.lux b/stdlib/source/library/lux/abstract/codec.lux index d7ff3c13f..012b6502d 100644 --- a/stdlib/source/library/lux/abstract/codec.lux +++ b/stdlib/source/library/lux/abstract/codec.lux @@ -2,9 +2,9 @@ [library [lux "*" [control - ["[0]" try {"+" Try}]]]] + ["[0]" try (.only Try)]]]] [// - [monad {"+" do}] + [monad (.only do)] ["[0]" functor]]) (type: .public (Codec m a) diff --git a/stdlib/source/library/lux/abstract/comonad.lux b/stdlib/source/library/lux/abstract/comonad.lux index c1b40888f..14880ab3e 100644 --- a/stdlib/source/library/lux/abstract/comonad.lux +++ b/stdlib/source/library/lux/abstract/comonad.lux @@ -10,7 +10,7 @@ [meta ["[0]" location]]]] [// - [functor {"+" Functor}]]) + [functor (.only Functor)]]) (type: .public (CoMonad w) (Interface diff --git a/stdlib/source/library/lux/abstract/comonad/cofree.lux b/stdlib/source/library/lux/abstract/comonad/cofree.lux index 4a198b0f6..d90a48fcc 100644 --- a/stdlib/source/library/lux/abstract/comonad/cofree.lux +++ b/stdlib/source/library/lux/abstract/comonad/cofree.lux @@ -1,9 +1,9 @@ (.using [library [lux "*"]] - [// {"+" CoMonad} + [// (.only CoMonad) [// - [functor {"+" Functor}]]]) + [functor (.only Functor)]]]) (type: .public (CoFree F a) [a (F (CoFree F a))]) diff --git a/stdlib/source/library/lux/abstract/enum.lux b/stdlib/source/library/lux/abstract/enum.lux index 280c2b4d0..55051d1a0 100644 --- a/stdlib/source/library/lux/abstract/enum.lux +++ b/stdlib/source/library/lux/abstract/enum.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["[0]" order {"+" Order}]]) + ["[0]" order (.only Order)]]) (type: .public (Enum e) (Interface diff --git a/stdlib/source/library/lux/abstract/hash.lux b/stdlib/source/library/lux/abstract/hash.lux index c1aa6e3dc..3eefb19ef 100644 --- a/stdlib/source/library/lux/abstract/hash.lux +++ b/stdlib/source/library/lux/abstract/hash.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["[0]" equivalence {"+" Equivalence}] + ["[0]" equivalence (.only Equivalence)] [functor ["[0]" contravariant]]]) diff --git a/stdlib/source/library/lux/abstract/interval.lux b/stdlib/source/library/lux/abstract/interval.lux index 131d18017..720e78ebb 100644 --- a/stdlib/source/library/lux/abstract/interval.lux +++ b/stdlib/source/library/lux/abstract/interval.lux @@ -3,9 +3,9 @@ [library [lux "*"]] [// - [equivalence {"+" Equivalence}] + [equivalence (.only Equivalence)] ["[0]" order] - [enum {"+" Enum}]]) + [enum (.only Enum)]]) (type: .public (Interval a) (Interface diff --git a/stdlib/source/library/lux/abstract/mix.lux b/stdlib/source/library/lux/abstract/mix.lux index 1c13dd985..3cc9de707 100644 --- a/stdlib/source/library/lux/abstract/mix.lux +++ b/stdlib/source/library/lux/abstract/mix.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - [monoid {"+" Monoid}]]) + [monoid (.only Monoid)]]) (type: .public (Mix F) (Interface diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux index 6c853b9e4..468ebf29c 100644 --- a/stdlib/source/library/lux/abstract/monad.lux +++ b/stdlib/source/library/lux/abstract/monad.lux @@ -1,10 +1,10 @@ (.using [library - [lux {"-" all} + [lux {"-" all only} [meta ["[0]" location]]]] [// - [functor {"+" Functor}]]) + [functor (.only Functor)]]) (def: (list#mix f init xs) (All (_ a b) diff --git a/stdlib/source/library/lux/abstract/monad/free.lux b/stdlib/source/library/lux/abstract/monad/free.lux index bd250ef05..b0184619f 100644 --- a/stdlib/source/library/lux/abstract/monad/free.lux +++ b/stdlib/source/library/lux/abstract/monad/free.lux @@ -2,9 +2,9 @@ [library [lux "*"]] [/// - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad}]]) + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad)]]) (type: .public (Free F a) (Variant diff --git a/stdlib/source/library/lux/abstract/monad/indexed.lux b/stdlib/source/library/lux/abstract/monad/indexed.lux index fb6371bad..44d67817a 100644 --- a/stdlib/source/library/lux/abstract/monad/indexed.lux +++ b/stdlib/source/library/lux/abstract/monad/indexed.lux @@ -3,12 +3,12 @@ [lux {"-" global} [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" list ("[1]#[0]" functor mix)]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/abstract/order.lux b/stdlib/source/library/lux/abstract/order.lux index 2370a508a..278931fb8 100644 --- a/stdlib/source/library/lux/abstract/order.lux +++ b/stdlib/source/library/lux/abstract/order.lux @@ -4,7 +4,7 @@ [control ["[0]" function]]]] [// - ["[0]" equivalence {"+" Equivalence}] + ["[0]" equivalence (.only Equivalence)] [functor ["[0]" contravariant]]]) diff --git a/stdlib/source/library/lux/abstract/predicate.lux b/stdlib/source/library/lux/abstract/predicate.lux index 7e87cfc9d..7fe2714e6 100644 --- a/stdlib/source/library/lux/abstract/predicate.lux +++ b/stdlib/source/library/lux/abstract/predicate.lux @@ -4,7 +4,7 @@ [control ["[0]" function]]]] [// - [monoid {"+" Monoid}] + [monoid (.only Monoid)] [functor ["[0]" contravariant]]]) diff --git a/stdlib/source/library/lux/control/concatenative.lux b/stdlib/source/library/lux/control/concatenative.lux index 59c692222..9867aa790 100644 --- a/stdlib/source/library/lux/control/concatenative.lux +++ b/stdlib/source/library/lux/control/concatenative.lux @@ -8,13 +8,13 @@ ["[0]" maybe ("[1]#[0]" monad)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix functor)]]] - ["[0]" macro {"+" with_symbols} + ["[0]" macro (.only with_symbols) ["[0]" code] ["[0]" template] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" export]]] [math [number @@ -24,7 +24,7 @@ ["f" frac]]]]] [// ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]]) + ["<[0]>" code (.only Parser)]]]) (type: Alias [Text Code]) diff --git a/stdlib/source/library/lux/control/concurrency/actor.lux b/stdlib/source/library/lux/control/concurrency/actor.lux index 18b114cd1..f9ed552bb 100644 --- a/stdlib/source/library/lux/control/concurrency/actor.lux +++ b/stdlib/source/library/lux/control/concurrency/actor.lux @@ -3,37 +3,37 @@ [lux "*" ["[0]" debug] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" pipe] ["[0]" function] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO io}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO io)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" bit] ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monoid monad)]]] - ["[0]" macro {"+" with_symbols} + ["[0]" macro (.only with_symbols) ["[0]" code] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" input] ["|[0]|" export]]] [math [number ["n" nat]]] - ["[0]" meta {"+" monad}] - [type {"+" sharing} - ["[0]" primitive {"+" primitive: representation abstraction}]]]] + ["[0]" meta (.only monad)] + [type (.only sharing) + ["[0]" primitive (.only primitive: representation abstraction)]]]] [// - ["[0]" atom {"+" Atom atom}] - ["[0]" async {"+" Async Resolver} ("[1]#[0]" monad)] - ["[0]" frp {"+" Channel Channel'}]]) + ["[0]" atom (.only Atom atom)] + ["[0]" async (.only Async Resolver) ("[1]#[0]" monad)] + ["[0]" frp (.only Channel Channel')]]) (exception: .public poisoned) (exception: .public dead) diff --git a/stdlib/source/library/lux/control/concurrency/async.lux b/stdlib/source/library/lux/control/concurrency/async.lux index afd05d94b..ba521dc88 100644 --- a/stdlib/source/library/lux/control/concurrency/async.lux +++ b/stdlib/source/library/lux/control/concurrency/async.lux @@ -2,24 +2,24 @@ [library [lux {"-" and or} [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control ["[0]" pipe] ["[0]" function] - ["[0]" io {"+" IO io}] + ["[0]" io (.only IO io)] ["[0]" maybe ("[1]#[0]" functor)]] [data ["[0]" product]] [macro ["^" pattern]] - [type {"+" sharing} + [type (.only sharing) [primitive "*"] - ["[0]" variance {"+" Mutable}]]]] + ["[0]" variance (.only Mutable)]]]] [// ["[0]" thread] - ["[0]" atom {"+" Atom atom}]]) + ["[0]" atom (.only Atom atom)]]) (primitive: .public (Async'' a) (Atom [(Maybe a) (List (-> a (IO Any)))]) diff --git a/stdlib/source/library/lux/control/concurrency/atom.lux b/stdlib/source/library/lux/control/concurrency/atom.lux index d5f9299f7..86e9f2ba9 100644 --- a/stdlib/source/library/lux/control/concurrency/atom.lux +++ b/stdlib/source/library/lux/control/concurrency/atom.lux @@ -4,10 +4,10 @@ ["@" target] ["[0]" ffi] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" function] - ["[0]" io {"+" IO} ("[1]#[0]" functor)]] + ["[0]" io (.only IO) ("[1]#[0]" functor)]] [data ["[0]" product] [collection @@ -15,7 +15,7 @@ ["[1]" \\unsafe]]]] [type [primitive "*"] - ["[0]" variance {"+" Mutable}]]]]) + ["[0]" variance (.only Mutable)]]]]) (with_expansions [<jvm> (these (ffi.import: (java/util/concurrent/atomic/AtomicReference a) "[1]::[0]" diff --git a/stdlib/source/library/lux/control/concurrency/frp.lux b/stdlib/source/library/lux/control/concurrency/frp.lux index d0f9799b1..2a9236ed0 100644 --- a/stdlib/source/library/lux/control/concurrency/frp.lux +++ b/stdlib/source/library/lux/control/concurrency/frp.lux @@ -1,21 +1,21 @@ (.using [library - [lux {"-" list} + [lux {"-" list only} [abstract - [equivalence {"+" Equivalence}] - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [equivalence (.only Equivalence)] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO io}]] - [type {"+" sharing} - ["[0]" variance {"+" Mutable}]]]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO io)]] + [type (.only sharing) + ["[0]" variance (.only Mutable)]]]] [// - ["[0]" atom {"+" Atom}] - ["[0]" async {"+" Async Async'} ("[1]#[0]" monad)]]) + ["[0]" atom (.only Atom)] + ["[0]" async (.only Async Async') ("[1]#[0]" monad)]]) (type: .public (Channel'' a) (Async (Maybe [a (Channel'' a)]))) diff --git a/stdlib/source/library/lux/control/concurrency/semaphore.lux b/stdlib/source/library/lux/control/concurrency/semaphore.lux index 5661894ad..bc8a518c4 100644 --- a/stdlib/source/library/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/library/lux/control/concurrency/semaphore.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" pipe] - ["[0]" io {"+" IO}] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" io (.only IO)] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" queue {"+" Queue}]]] + ["[0]" queue (.only Queue)]]] [math [number ["n" nat] @@ -21,8 +21,8 @@ ["[0]" primitive "*"] ["[0]" refinement]]]] [// - ["[0]" atom {"+" Atom}] - ["[0]" async {"+" Async Resolver}]]) + ["[0]" atom (.only Atom)] + ["[0]" async (.only Async Resolver)]]) (type: State (Record diff --git a/stdlib/source/library/lux/control/concurrency/stm.lux b/stdlib/source/library/lux/control/concurrency/stm.lux index f6d1423c3..b9f7df872 100644 --- a/stdlib/source/library/lux/control/concurrency/stm.lux +++ b/stdlib/source/library/lux/control/concurrency/stm.lux @@ -2,11 +2,11 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control - ["[0]" io {"+" IO io}] + ["[0]" io (.only IO io)] ["[0]" maybe] ["[0]" try]] [data @@ -15,13 +15,13 @@ ["[0]" list]]] [macro ["^" pattern]] - [type {"+" sharing} + [type (.only sharing) [primitive "*"] - ["[0]" variance {"+" Mutable}]]]] + ["[0]" variance (.only Mutable)]]]] [// - ["[0]" atom {"+" Atom atom}] - ["[0]" async {"+" Async Resolver}] - ["[0]" frp {"+" Channel Sink}]]) + ["[0]" atom (.only Atom atom)] + ["[0]" async (.only Async Resolver)] + ["[0]" frp (.only Channel Sink)]]) (type: (Observer a) (-> a (IO Any))) diff --git a/stdlib/source/library/lux/control/concurrency/thread.lux b/stdlib/source/library/lux/control/concurrency/thread.lux index 0902501b4..92523ef84 100644 --- a/stdlib/source/library/lux/control/concurrency/thread.lux +++ b/stdlib/source/library/lux/control/concurrency/thread.lux @@ -4,11 +4,11 @@ ["@" target] ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO io}]] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO io)]] [data ["[0]" text] [collection @@ -22,7 +22,7 @@ [time ["[0]" instant]]]] [// - ["[0]" atom {"+" Atom}]]) + ["[0]" atom (.only Atom)]]) (with_expansions [<jvm> (these (ffi.import: java/lang/Object "[1]::[0]") diff --git a/stdlib/source/library/lux/control/continuation.lux b/stdlib/source/library/lux/control/continuation.lux index 2f67178bf..7fceb2551 100644 --- a/stdlib/source/library/lux/control/continuation.lux +++ b/stdlib/source/library/lux/control/continuation.lux @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)]] [control ["[0]" function] [parser ["<[0]>" code]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]]]]) (type: .public (Cont i o) diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index 173b8b9bf..ab8b994f0 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -4,11 +4,11 @@ ["[0]" macro] ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid)] @@ -16,7 +16,7 @@ ["[0]" list ("[1]#[0]" functor mix)]]] [macro ["[0]" code] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" input] ["[0]" type "_" ["|[1]_[0]|" variable]]]] @@ -24,7 +24,7 @@ [number ["n" nat ("[1]#[0]" decimal)]]]]] [// - ["//" try {"+" Try}]]) + ["//" try (.only Try)]]) (type: .public (Exception a) (Record diff --git a/stdlib/source/library/lux/control/function.lux b/stdlib/source/library/lux/control/function.lux index d014a9ccd..4e162faa0 100644 --- a/stdlib/source/library/lux/control/function.lux +++ b/stdlib/source/library/lux/control/function.lux @@ -1,8 +1,8 @@ (.using - [library - [lux "*" - [abstract - [monoid {"+" Monoid}]]]]) + [library + [lux "*" + [abstract + [monoid (.only Monoid)]]]]) (def: .public identity (All (_ a) (-> a a)) diff --git a/stdlib/source/library/lux/control/function/contract.lux b/stdlib/source/library/lux/control/function/contract.lux index b36aa75c6..c2cec1438 100644 --- a/stdlib/source/library/lux/control/function/contract.lux +++ b/stdlib/source/library/lux/control/function/contract.lux @@ -2,14 +2,14 @@ [library [lux "*" [control - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] [parser ["<[0]>" code]]] [data [text - ["%" format {"+" format}]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + ["%" format (.only format)]]] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]] [math [number diff --git a/stdlib/source/library/lux/control/function/inline.lux b/stdlib/source/library/lux/control/function/inline.lux index 8785e6cb7..e9d69818a 100644 --- a/stdlib/source/library/lux/control/function/inline.lux +++ b/stdlib/source/library/lux/control/function/inline.lux @@ -3,16 +3,16 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" list ("[1]#[0]" monad)]]] ["[0]" macro ["[0]" code] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" export]]]]]) (def: declaration diff --git a/stdlib/source/library/lux/control/function/memo.lux b/stdlib/source/library/lux/control/function/memo.lux index 69b78c0c3..6737e2f5c 100644 --- a/stdlib/source/library/lux/control/function/memo.lux +++ b/stdlib/source/library/lux/control/function/memo.lux @@ -1,20 +1,21 @@ ... Inspired by; ... "The Different Aspects of Monads and Mixins" by Bruno C. d. S. Oliveira + (.using [library [lux {"-" open} ["[0]" type] [abstract - [hash {"+" Hash}] - [monad {"+" do}]] + [hash (.only Hash)] + [monad (.only do)]] [control - ["[0]" state {"+" State}]] + ["[0]" state (.only State)]] [data ["[0]" product] [collection - ["[0]" dictionary {"+" Dictionary}]]]]] + ["[0]" dictionary (.only Dictionary)]]]]] ["[0]" // "_" - ["[1]" mixin {"+" Mixin Recursive}]]) + ["[1]" mixin (.only Mixin Recursive)]]) (def: .public memoization (All (_ i o) diff --git a/stdlib/source/library/lux/control/function/mixin.lux b/stdlib/source/library/lux/control/function/mixin.lux index 95d31f350..fe453b395 100644 --- a/stdlib/source/library/lux/control/function/mixin.lux +++ b/stdlib/source/library/lux/control/function/mixin.lux @@ -2,12 +2,12 @@ ... "The Different Aspects of Monads and Mixins" by Bruno C. d. S. Oliveira (.using - [library - [lux "*" - [abstract - [monoid {"+" Monoid}] - [predicate {"+" Predicate}] - [monad {"+" Monad do}]]]]) + [library + [lux "*" + [abstract + [monoid (.only Monoid)] + [predicate (.only Predicate)] + [monad (.only Monad do)]]]]) (type: .public (Mixin i o) (-> (-> i o) (-> i o) (-> i o))) diff --git a/stdlib/source/library/lux/control/function/mutual.lux b/stdlib/source/library/lux/control/function/mutual.lux index 95a7f132f..dcd749f97 100644 --- a/stdlib/source/library/lux/control/function/mutual.lux +++ b/stdlib/source/library/lux/control/function/mutual.lux @@ -3,25 +3,25 @@ [lux {"-" Definition let def: macro} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] [dictionary - ["[0]" plist {"+" PList}]]]] + ["[0]" plist (.only PList)]]]] ["[0]" macro ["[0]" local] ["[0]" code] - [syntax {"+" syntax:} - ["[0]" declaration {"+" Declaration}]]]]] + [syntax (.only syntax:) + ["[0]" declaration (.only Declaration)]]]]] ["[0]" //]) (type: Mutual diff --git a/stdlib/source/library/lux/control/io.lux b/stdlib/source/library/lux/control/io.lux index 297442420..ab1c36168 100644 --- a/stdlib/source/library/lux/control/io.lux +++ b/stdlib/source/library/lux/control/io.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)]] [control [parser ["<[0]>" code]]] [type [primitive "*"]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" template]]]]) (primitive: .public (IO a) diff --git a/stdlib/source/library/lux/control/lazy.lux b/stdlib/source/library/lux/control/lazy.lux index 3c0116e14..9d4567ff4 100644 --- a/stdlib/source/library/lux/control/lazy.lux +++ b/stdlib/source/library/lux/control/lazy.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}] - [equivalence {"+" Equivalence}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)] + [equivalence (.only Equivalence)]] [control ["[0]" io] [parser ["<[0]>" code]] [concurrency ["[0]" atom]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}]] - [type {"+" sharing} + [macro (.only with_symbols) + [syntax (.only syntax:)]] + [type (.only sharing) [primitive "*"]]]]) (primitive: .public (Lazy a) diff --git a/stdlib/source/library/lux/control/maybe.lux b/stdlib/source/library/lux/control/maybe.lux index ecf814d21..233696c13 100644 --- a/stdlib/source/library/lux/control/maybe.lux +++ b/stdlib/source/library/lux/control/maybe.lux @@ -2,12 +2,12 @@ [library [lux {"-" list} [abstract - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [apply {"+" Apply}] - ["[0]" functor {"+" Functor}] - ["[0]" monad {"+" Monad do}]] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [apply (.only Apply)] + ["[0]" functor (.only Functor)] + ["[0]" monad (.only Monad do)]] [meta ["[0]" location]]]]) diff --git a/stdlib/source/library/lux/control/parser.lux b/stdlib/source/library/lux/control/parser.lux index 4b9735560..4fdb693e2 100644 --- a/stdlib/source/library/lux/control/parser.lux +++ b/stdlib/source/library/lux/control/parser.lux @@ -1,13 +1,13 @@ (.using [library - [lux {"-" or and not} + [lux {"-" or and not only} [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}] - [codec {"+" Codec}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)] + [codec (.only Codec)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" product] [collection diff --git a/stdlib/source/library/lux/control/parser/analysis.lux b/stdlib/source/library/lux/control/parser/analysis.lux index 26d74c274..0adeaa56b 100644 --- a/stdlib/source/library/lux/control/parser/analysis.lux +++ b/stdlib/source/library/lux/control/parser/analysis.lux @@ -2,14 +2,14 @@ [library [lux {"-" nat int rev local} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" bit] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [macro @@ -25,12 +25,12 @@ ["[0]" symbol]] [tool [compiler - [arity {"+" Arity}] - [reference {"+" } - [variable {"+" }]] + [arity (.only Arity)] + [reference (.only) + [variable (.only)]] [language [lux - ["/" analysis {"+" Environment Analysis}]]]]]]] + ["/" analysis (.only Environment Analysis)]]]]]]] ["[0]" //]) (def: (remaining_inputs asts) diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux index 2c32f7b8d..79408450d 100644 --- a/stdlib/source/library/lux/control/parser/binary.lux +++ b/stdlib/source/library/lux/control/parser/binary.lux @@ -1,27 +1,27 @@ (.using [library [lux {"-" and or nat int rev list type symbol} - [ffi {"+"}] - [type {"+" sharing}] + [ffi (.only)] + [type (.only sharing)] [abstract - [hash {"+" Hash}] - [monad {"+" do}]] + [hash (.only Hash)] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["/" binary "_" - ["[1]" \\unsafe {"+" Binary}]] + ["[1]" \\unsafe (.only Binary)]] [text - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list] - ["[0]" sequence {"+" Sequence}] - ["[0]" set {"+" Set}] + ["[0]" sequence (.only Sequence)] + ["[0]" set (.only Set)] [array - [\\unsafe {"+"}]]]] + [\\unsafe (.only)]]]] [macro ["^" pattern] ["[0]" template]] diff --git a/stdlib/source/library/lux/control/parser/cli.lux b/stdlib/source/library/lux/control/parser/cli.lux index 8424b4d37..1a71a39e3 100644 --- a/stdlib/source/library/lux/control/parser/cli.lux +++ b/stdlib/source/library/lux/control/parser/cli.lux @@ -2,12 +2,12 @@ [library [lux {"-" parameter} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]]]]] + ["%" format (.only format)]]]]] ["[0]" //]) (type: .public (Parser a) diff --git a/stdlib/source/library/lux/control/parser/code.lux b/stdlib/source/library/lux/control/parser/code.lux index 70a65f6e5..1e1f433a4 100644 --- a/stdlib/source/library/lux/control/parser/code.lux +++ b/stdlib/source/library/lux/control/parser/code.lux @@ -2,9 +2,9 @@ [library [lux {"-" nat int rev local not symbol local global} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" bit] ["[0]" text ("[1]#[0]" monoid)] diff --git a/stdlib/source/library/lux/control/parser/environment.lux b/stdlib/source/library/lux/control/parser/environment.lux index a844787f7..708c2ad84 100644 --- a/stdlib/source/library/lux/control/parser/environment.lux +++ b/stdlib/source/library/lux/control/parser/environment.lux @@ -2,14 +2,14 @@ [library [lux "*" [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" dictionary {"+" Dictionary}]]]]] + ["[0]" dictionary (.only Dictionary)]]]]] ["[0]" //]) (type: .public Property diff --git a/stdlib/source/library/lux/control/parser/json.lux b/stdlib/source/library/lux/control/parser/json.lux index 4064ed450..57fc15789 100644 --- a/stdlib/source/library/lux/control/parser/json.lux +++ b/stdlib/source/library/lux/control/parser/json.lux @@ -2,19 +2,19 @@ [library [lux {"-" symbol} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" bit] ["[0]" text ("[1]#[0]" equivalence monoid)] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence] - ["[0]" dictionary {"+" Dictionary}]] + ["[0]" dictionary (.only Dictionary)]] [format - ["/" json {"+" JSON}]]] + ["/" json (.only JSON)]]] [macro ["[0]" code]] [math diff --git a/stdlib/source/library/lux/control/parser/synthesis.lux b/stdlib/source/library/lux/control/parser/synthesis.lux index f457e13fb..ff9522a55 100644 --- a/stdlib/source/library/lux/control/parser/synthesis.lux +++ b/stdlib/source/library/lux/control/parser/synthesis.lux @@ -2,14 +2,14 @@ [library [lux {"-" function loop i64 local} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" bit] ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [math [number ["n" nat] @@ -19,13 +19,13 @@ ["[0]" symbol]] [tool [compiler - [reference {"+" } - [variable {"+" Register}]] - [arity {"+" Arity}] + [reference (.only) + [variable (.only Register)]] + [arity (.only Arity)] [language [lux - [analysis {"+" Environment}] - ["/" synthesis {"+" Synthesis Abstraction}]]]]]]] + [analysis (.only Environment)] + ["/" synthesis (.only Synthesis Abstraction)]]]]]]] ["[0]" //]) (exception: .public (cannot_parse [input (List Synthesis)]) diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux index b4f3daa90..524c0d291 100644 --- a/stdlib/source/library/lux/control/parser/text.lux +++ b/stdlib/source/library/lux/control/parser/text.lux @@ -2,13 +2,13 @@ [library [lux {"-" and not local} [abstract - [monad {"+" Monad do}]] + [monad (.only Monad do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data - ["/" text {"+" Char} ("[1]#[0]" monoid)] + ["/" text (.only Char) ("[1]#[0]" monoid)] ["[0]" product] [collection ["[0]" list ("[1]#[0]" mix)]]] diff --git a/stdlib/source/library/lux/control/parser/tree.lux b/stdlib/source/library/lux/control/parser/tree.lux index 2db46e2b5..d6926d6de 100644 --- a/stdlib/source/library/lux/control/parser/tree.lux +++ b/stdlib/source/library/lux/control/parser/tree.lux @@ -1,16 +1,16 @@ (.using - [library - [lux {"-" left right} - [abstract - [monad {"+" do}]] - [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] - [data - [collection - [tree {"+" Tree} - ["[0]" zipper {"+" Zipper}]]]]]] - ["[0]" //]) + [library + [lux {"-" left right} + [abstract + [monad (.only do)]] + [control + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] + [data + [collection + [tree (.only Tree) + ["[0]" zipper (.only Zipper)]]]]]] + ["[0]" //]) (type: .public (Parser t a) (//.Parser (Zipper t) a)) diff --git a/stdlib/source/library/lux/control/parser/type.lux b/stdlib/source/library/lux/control/parser/type.lux index f95894b0b..167e4a020 100644 --- a/stdlib/source/library/lux/control/parser/type.lux +++ b/stdlib/source/library/lux/control/parser/type.lux @@ -2,17 +2,17 @@ [library [lux {"-" function local parameter} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["[0]" function]] [data ["[0]" text ("[1]#[0]" monoid) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern] ["[0]" code]] diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux index 45c6cf178..771c8c97f 100644 --- a/stdlib/source/library/lux/control/parser/xml.lux +++ b/stdlib/source/library/lux/control/parser/xml.lux @@ -2,18 +2,18 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try} ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" exception (.only exception:)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list] ["[0]" dictionary]] [format - ["/" xml {"+" Attribute Attrs Tag XML}]]] + ["/" xml (.only Attribute Attrs Tag XML)]]] [meta ["[0]" symbol ("[1]#[0]" equivalence codec)]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/control/pipe.lux b/stdlib/source/library/lux/control/pipe.lux index 476664344..dc75e17b0 100644 --- a/stdlib/source/library/lux/control/pipe.lux +++ b/stdlib/source/library/lux/control/pipe.lux @@ -6,13 +6,13 @@ [control ["[0]" try] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" identity] [collection ["[0]" list ("[1]#[0]" monad)]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]] [math [number diff --git a/stdlib/source/library/lux/control/reader.lux b/stdlib/source/library/lux/control/reader.lux index 95cbe91b9..4d5966fed 100644 --- a/stdlib/source/library/lux/control/reader.lux +++ b/stdlib/source/library/lux/control/reader.lux @@ -3,9 +3,9 @@ [lux {"-" local} ["@" target] [abstract - [apply {"+" Apply}] - ["[0]" functor {"+" Functor}] - ["[0]" monad {"+" Monad do}]]]]) + [apply (.only Apply)] + ["[0]" functor (.only Functor)] + ["[0]" monad (.only Monad do)]]]]) (type: .public (Reader r a) (-> r a)) diff --git a/stdlib/source/library/lux/control/region.lux b/stdlib/source/library/lux/control/region.lux index 2296de83f..934c923d0 100644 --- a/stdlib/source/library/lux/control/region.lux +++ b/stdlib/source/library/lux/control/region.lux @@ -2,18 +2,18 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix)]]]]] [// - ["[0]" exception {"+" Exception exception:}]]) + ["[0]" exception (.only Exception exception:)]]) (type: (Cleaner r !) (-> r (! (Try Any)))) diff --git a/stdlib/source/library/lux/control/remember.lux b/stdlib/source/library/lux/control/remember.lux index 672783d02..42addfea5 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -2,24 +2,24 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" io] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" functor) - ["<c>" code {"+" Parser}]]] + ["<c>" code (.only Parser)]]] [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [time ["[0]" instant] - ["[0]" date {"+" Date} ("[1]#[0]" order)]] + ["[0]" date (.only Date) ("[1]#[0]" order)]] ["[0]" meta] [macro ["[0]" code] ["[0]" template] - [syntax {"+" syntax:}]]]]) + [syntax (.only syntax:)]]]]) (exception: .public (must_remember [deadline Date today Date diff --git a/stdlib/source/library/lux/control/security/capability.lux b/stdlib/source/library/lux/control/security/capability.lux index 84f146614..b46765f78 100644 --- a/stdlib/source/library/lux/control/security/capability.lux +++ b/stdlib/source/library/lux/control/security/capability.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" io {"+" IO}] + ["[0]" io (.only IO)] ["<>" parser ["<c>" code]] [concurrency - ["[0]" async {"+" Async}]]] + ["[0]" async (.only Async)]]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [type @@ -19,7 +19,7 @@ ["[0]" meta] ["[0]" macro ["[0]" code] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" export] ["|[0]|" declaration]]]]]) diff --git a/stdlib/source/library/lux/control/security/policy.lux b/stdlib/source/library/lux/control/security/policy.lux index a05faeae2..1482581e4 100644 --- a/stdlib/source/library/lux/control/security/policy.lux +++ b/stdlib/source/library/lux/control/security/policy.lux @@ -2,9 +2,9 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad)]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/control/state.lux b/stdlib/source/library/lux/control/state.lux index d1d587861..66d3c2359 100644 --- a/stdlib/source/library/lux/control/state.lux +++ b/stdlib/source/library/lux/control/state.lux @@ -2,9 +2,9 @@ [library [lux {"-" local} [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}]]]]) + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)]]]]) (type: .public (State s a) (-> s [s a])) diff --git a/stdlib/source/library/lux/control/thread.lux b/stdlib/source/library/lux/control/thread.lux index cc65e598d..99a405024 100644 --- a/stdlib/source/library/lux/control/thread.lux +++ b/stdlib/source/library/lux/control/thread.lux @@ -3,18 +3,18 @@ [lux "*" ["@" target] [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)]] [control - ["[0]" io {"+" IO}]] + ["[0]" io (.only IO)]] [data [collection ["[0]" array "_" - ["[1]" \\unsafe {"+" Array}]]]] + ["[1]" \\unsafe (.only Array)]]]] [type [primitive "*"] - ["[0]" variance {"+" Mutable}]]]]) + ["[0]" variance (.only Mutable)]]]]) (type: .public (Thread ! a) (-> ! a)) diff --git a/stdlib/source/library/lux/control/try.lux b/stdlib/source/library/lux/control/try.lux index 1fd3037b9..24c104b17 100644 --- a/stdlib/source/library/lux/control/try.lux +++ b/stdlib/source/library/lux/control/try.lux @@ -3,10 +3,10 @@ [lux "*" ["@" target] [abstract - [apply {"+" Apply}] - [equivalence {"+" Equivalence}] - ["[0]" functor {"+" Functor}] - ["[0]" monad {"+" Monad do}]] + [apply (.only Apply)] + [equivalence (.only Equivalence)] + ["[0]" functor (.only Functor)] + ["[0]" monad (.only Monad do)]] [meta ["[0]" location]]]]) diff --git a/stdlib/source/library/lux/control/writer.lux b/stdlib/source/library/lux/control/writer.lux index b8326b542..3e3cb9714 100644 --- a/stdlib/source/library/lux/control/writer.lux +++ b/stdlib/source/library/lux/control/writer.lux @@ -3,10 +3,10 @@ [lux "*" ["@" target] [abstract - [monoid {"+" Monoid}] - [apply {"+" Apply}] - ["[0]" functor {"+" Functor}] - ["[0]" monad {"+" Monad do}]]]]) + [monoid (.only Monoid)] + [apply (.only Apply)] + ["[0]" functor (.only Functor)] + ["[0]" monad (.only Monad do)]]]]) (type: .public (Writer log value) (Record diff --git a/stdlib/source/library/lux/data/binary.lux b/stdlib/source/library/lux/data/binary.lux index 6ccbb0442..76d1801a2 100644 --- a/stdlib/source/library/lux/data/binary.lux +++ b/stdlib/source/library/lux/data/binary.lux @@ -3,17 +3,17 @@ [lux "*" ["[0]" ffi] [abstract - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}]] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data [text ["%" format]] [collection ["[0]" array - [\\unsafe {"+"}]]]] + [\\unsafe (.only)]]]] [math [number ["n" nat]]]]] diff --git a/stdlib/source/library/lux/data/bit.lux b/stdlib/source/library/lux/data/bit.lux index 266d8b8b0..6ef201146 100644 --- a/stdlib/source/library/lux/data/bit.lux +++ b/stdlib/source/library/lux/data/bit.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [codec {"+" Codec}]] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [codec (.only Codec)]] [control ["[0]" function]]]]) diff --git a/stdlib/source/library/lux/data/collection/array.lux b/stdlib/source/library/lux/data/collection/array.lux index eb0cf93b0..69f701e82 100644 --- a/stdlib/source/library/lux/data/collection/array.lux +++ b/stdlib/source/library/lux/data/collection/array.lux @@ -2,16 +2,16 @@ [library [lux {"-" list} [abstract - [monoid {"+" Monoid}] - [functor {"+" Functor}] - [equivalence {"+" Equivalence}] - [mix {"+" Mix}] - [predicate {"+" Predicate}]] + [monoid (.only Monoid)] + [functor (.only Functor)] + [equivalence (.only Equivalence)] + [mix (.only Mix)] + [predicate (.only Predicate)]] [data [collection ["[0]" list]]] [type - [variance {"+"}]]]] + [variance (.only)]]]] ["!" \\unsafe]) (def: .public type_name diff --git a/stdlib/source/library/lux/data/collection/bits.lux b/stdlib/source/library/lux/data/collection/bits.lux index 45d3e154e..303da37fa 100644 --- a/stdlib/source/library/lux/data/collection/bits.lux +++ b/stdlib/source/library/lux/data/collection/bits.lux @@ -2,13 +2,13 @@ [library [lux {"-" not and or} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" pipe] ["[0]" maybe]] [data [collection - ["[0]" array {"+" Array} ("[1]#[0]" mix)]]] + ["[0]" array (.only Array) ("[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 9c5469265..72e3ba8fc 100644 --- a/stdlib/source/library/lux/data/collection/dictionary.lux +++ b/stdlib/source/library/lux/data/collection/dictionary.lux @@ -2,20 +2,20 @@ [library [lux {"-" has revised} [abstract - [hash {"+" Hash}] - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}] - [functor {"+" Functor}]] + [hash (.only Hash)] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)] + [functor (.only Functor)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" mix functor monoid)] ["[0]" array "_" - ["[1]" \\unsafe {"+" Array}]]]] + ["[1]" \\unsafe (.only Array)]]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index 3c95f2544..3c6f1a2e9 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -3,8 +3,8 @@ [lux {"-" has revised} [abstract equivalence - [monad {"+" Monad do}] - ["[0]" order {"+" Order}]] + [monad (.only Monad do)] + ["[0]" order (.only Order)]] [control ["[0]" maybe]] [data diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux index 03227f727..379b4f947 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux @@ -2,8 +2,8 @@ [library [lux {"-" has revised} [abstract - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}]] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)]] [control ["[0]" maybe ("[1]#[0]" functor)]] [data diff --git a/stdlib/source/library/lux/data/collection/list.lux b/stdlib/source/library/lux/data/collection/list.lux index 19ac281fc..180c963cd 100644 --- a/stdlib/source/library/lux/data/collection/list.lux +++ b/stdlib/source/library/lux/data/collection/list.lux @@ -1,16 +1,16 @@ (.using [library - [lux {"-" revised all} + [lux {"-" revised all only} ["@" target] [abstract - [monoid {"+" Monoid}] - [apply {"+" Apply}] - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [mix {"+" Mix}] - [predicate {"+" Predicate}] - ["[0]" functor {"+" Functor}] - ["[0]" monad {"+" Monad do}] + [monoid (.only Monoid)] + [apply (.only Apply)] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [mix (.only Mix)] + [predicate (.only Predicate)] + ["[0]" functor (.only Functor)] + ["[0]" monad (.only Monad do)] ["[0]" enum]] [data ["[0]" bit] diff --git a/stdlib/source/library/lux/data/collection/queue.lux b/stdlib/source/library/lux/data/collection/queue.lux index f5f35402c..767b49118 100644 --- a/stdlib/source/library/lux/data/collection/queue.lux +++ b/stdlib/source/library/lux/data/collection/queue.lux @@ -2,8 +2,8 @@ [library [lux {"-" list} [abstract - [equivalence {"+" Equivalence}] - [functor {"+" Functor}]] + [equivalence (.only Equivalence)] + [functor (.only Functor)]] [data [collection ["[0]" list ("[1]#[0]" monoid functor)]]] diff --git a/stdlib/source/library/lux/data/collection/queue/priority.lux b/stdlib/source/library/lux/data/collection/queue/priority.lux index b399fc342..7e2cf3c0b 100644 --- a/stdlib/source/library/lux/data/collection/queue/priority.lux +++ b/stdlib/source/library/lux/data/collection/queue/priority.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [monad (.only do)]] [control ["[0]" maybe]] [data [collection ["[0]" tree "_" - ["[1]" finger {"+" Tree}]]]] + ["[1]" finger (.only Tree)]]]] [math [number ["n" nat ("[1]#[0]" interval)]]] - [type {"+" by_example} - [primitive {"+" primitive: abstraction representation}]]]]) + [type (.only by_example) + [primitive (.only primitive: abstraction representation)]]]]) (type: .public Priority Nat) diff --git a/stdlib/source/library/lux/data/collection/sequence.lux b/stdlib/source/library/lux/data/collection/sequence.lux index 20748c069..6ddf4bb6b 100644 --- a/stdlib/source/library/lux/data/collection/sequence.lux +++ b/stdlib/source/library/lux/data/collection/sequence.lux @@ -3,30 +3,30 @@ ... https://hypirion.com/musings/understanding-persistent-vector-pt-3 (.using [library - [lux {"-" list has revised} + [lux {"-" list has revised only} ["@" target] [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}] - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}] - [mix {"+" Mix}] - [predicate {"+" Predicate}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)] + [mix (.only Mix)] + [predicate (.only Predicate)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" mix functor monoid)] ["[0]" array "_" - ["[1]" \\unsafe {"+" Array}]]]] + ["[1]" \\unsafe (.only Array)]]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/data/collection/set.lux b/stdlib/source/library/lux/data/collection/set.lux index fa4604ccc..f79b996ce 100644 --- a/stdlib/source/library/lux/data/collection/set.lux +++ b/stdlib/source/library/lux/data/collection/set.lux @@ -2,10 +2,10 @@ [library [lux {"-" has list} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [predicate {"+" Predicate}] - [monoid {"+" Monoid}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [predicate (.only Predicate)] + [monoid (.only Monoid)]] [data [collection ["[0]" list ("[1]#[0]" mix)]]] @@ -15,7 +15,7 @@ [number ["n" nat]]]]] ["[0]" // "_" - ["[1]" dictionary {"+" Dictionary}]]) + ["[1]" dictionary (.only Dictionary)]]) (type: .public (Set a) (Dictionary a Any)) diff --git a/stdlib/source/library/lux/data/collection/set/multi.lux b/stdlib/source/library/lux/data/collection/set/multi.lux index 7c741594e..3500e756e 100644 --- a/stdlib/source/library/lux/data/collection/set/multi.lux +++ b/stdlib/source/library/lux/data/collection/set/multi.lux @@ -3,8 +3,8 @@ [library [lux {"-" has list} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" function] ["[0]" maybe]] @@ -14,11 +14,11 @@ [number ["n" nat]]] [type - ["[0]" primitive {"+" primitive: abstraction representation}]]]] + ["[0]" primitive (.only primitive: abstraction representation)]]]] ["[0]" // [// ["[0]" list ("[1]#[0]" mix monoid)] - ["[0]" dictionary {"+" Dictionary}]]]) + ["[0]" dictionary (.only Dictionary)]]]) (primitive: .public (Set a) (Dictionary a Nat) diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux index 2852070ae..a8bee8098 100644 --- a/stdlib/source/library/lux/data/collection/set/ordered.lux +++ b/stdlib/source/library/lux/data/collection/set/ordered.lux @@ -2,8 +2,8 @@ [library [lux {"-" has list} [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}]] + [equivalence (.only Equivalence)] + [order (.only Order)]] [data [collection ["[0]" list ("[1]#[0]" mix)] diff --git a/stdlib/source/library/lux/data/collection/stack.lux b/stdlib/source/library/lux/data/collection/stack.lux index 1dc7266ad..f6905d632 100644 --- a/stdlib/source/library/lux/data/collection/stack.lux +++ b/stdlib/source/library/lux/data/collection/stack.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [functor {"+" Functor}]] + [equivalence (.only Equivalence)] + [functor (.only Functor)]] [data [collection ["//" list]]] diff --git a/stdlib/source/library/lux/data/collection/stream.lux b/stdlib/source/library/lux/data/collection/stream.lux index 495b26afa..f764ff369 100644 --- a/stdlib/source/library/lux/data/collection/stream.lux +++ b/stdlib/source/library/lux/data/collection/stream.lux @@ -1,19 +1,19 @@ (.using [library - [lux {"-" pattern} + [lux {"-" pattern only} [abstract - [functor {"+" Functor}] - [comonad {"+" CoMonad}]] + [functor (.only Functor)] + [comonad (.only CoMonad)]] [control - ["//" continuation {"+" Cont}] + ["//" continuation (.only Cont)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" bit] [collection ["[0]" list ("[1]#[0]" monad)]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]] [math [number diff --git a/stdlib/source/library/lux/data/collection/tree.lux b/stdlib/source/library/lux/data/collection/tree.lux index 58694df25..f1c5ac967 100644 --- a/stdlib/source/library/lux/data/collection/tree.lux +++ b/stdlib/source/library/lux/data/collection/tree.lux @@ -2,18 +2,18 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [equivalence {"+" Equivalence}] - [mix {"+" Mix}] - [monad {"+" do}]] + [functor (.only Functor)] + [equivalence (.only Equivalence)] + [mix (.only Mix)] + [monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" list ("[1]#[0]" monad mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]]]]) (type: .public (Tree a) diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux index 19e3dae15..3939f2d38 100644 --- a/stdlib/source/library/lux/data/collection/tree/finger.lux +++ b/stdlib/source/library/lux/data/collection/tree/finger.lux @@ -2,13 +2,13 @@ [library [lux "*" [abstract - [predicate {"+" Predicate}] - ["[0]" monoid {"+" Monoid}]] + [predicate (.only Predicate)] + ["[0]" monoid (.only Monoid)]] [data [collection ["[0]" list ("[1]#[0]" monoid)]]] [type - [primitive {"+" primitive: abstraction representation}]]]]) + [primitive (.only primitive: abstraction representation)]]]]) ... https://en.wikipedia.org/wiki/Finger_tree (primitive: .public (Tree @ t v) diff --git a/stdlib/source/library/lux/data/collection/tree/zipper.lux b/stdlib/source/library/lux/data/collection/tree/zipper.lux index d0790fa4f..0111a1990 100644 --- a/stdlib/source/library/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/library/lux/data/collection/tree/zipper.lux @@ -3,19 +3,19 @@ [lux {"-" left right} ["@" target] [abstract - [functor {"+" Functor}] - [comonad {"+" CoMonad}] - [monad {"+" do}] - [equivalence {"+" Equivalence}]] + [functor (.only Functor)] + [comonad (.only CoMonad)] + [monad (.only do)] + [equivalence (.only Equivalence)]] [control ["[0]" maybe ("[1]#[0]" monad)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor monoid)]]]]] - ["[0]" // {"+" Tree} ("[1]#[0]" functor)]) + ["[0]" // (.only Tree) ("[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 e29a9260d..4b1a2a9da 100644 --- a/stdlib/source/library/lux/data/color.lux +++ b/stdlib/source/library/lux/data/color.lux @@ -2,9 +2,9 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}] - ["[0]" hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)] + ["[0]" hash (.only Hash)]] [data [collection ["[0]" list ("[1]#[0]" functor)]]] diff --git a/stdlib/source/library/lux/data/color/named.lux b/stdlib/source/library/lux/data/color/named.lux index c25c5fb16..8caf8efc2 100644 --- a/stdlib/source/library/lux/data/color/named.lux +++ b/stdlib/source/library/lux/data/color/named.lux @@ -1,9 +1,9 @@ (.using - [library - [lux "*" - [math - [number {"+" hex}]]]] - ["[0]" // {"+" Color}]) + [library + [lux "*" + [math + [number (.only hex)]]]] + ["[0]" // (.only Color)]) ... https://developer.mozilla.org/en-US/docs/Web/CSS/color_value (template [<red> <green> <blue> <name>] diff --git a/stdlib/source/library/lux/data/format/binary.lux b/stdlib/source/library/lux/data/format/binary.lux index 88ee81c34..3d95706af 100644 --- a/stdlib/source/library/lux/data/format/binary.lux +++ b/stdlib/source/library/lux/data/format/binary.lux @@ -1,30 +1,30 @@ (.using [library [lux {"-" and or nat int rev list type symbol} - [ffi {"+"}] + [ffi (.only)] [abstract - [monoid {"+" Monoid}] - [monad {"+" Monad do}] - [equivalence {"+" Equivalence}]] + [monoid (.only Monoid)] + [monad (.only Monad do)] + [equivalence (.only Equivalence)]] [control ["[0]" pipe] ["[0]" function] ["<>" parser ("[1]#[0]" monad) - ["</>" binary {"+" Offset Size Parser}]]] + ["</>" binary (.only Offset Size Parser)]]] [data ["/" binary "_" - ["[1]" \\unsafe {"+" Binary}]] + ["[1]" \\unsafe (.only Binary)]] ["[0]" product] [text - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list] - ["[0]" sequence {"+" Sequence} ("[1]#[0]" functor)] - ["[0]" set {"+" Set}] + ["[0]" sequence (.only Sequence) ("[1]#[0]" functor)] + ["[0]" set (.only Set)] [array - [\\unsafe {"+"}]]]] + [\\unsafe (.only)]]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux index f3f5c445f..ca05ccc98 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/data/format/css.lux @@ -5,8 +5,8 @@ ["[0]" maybe]] [data ["[0]" text - ["%" format {"+" format}] - ["[0]" encoding {"+" Encoding}]] + ["%" format (.only format)] + ["[0]" encoding (.only Encoding)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [math @@ -15,14 +15,14 @@ [type [primitive {"-" Frame pattern}]] [world - [net {"+" URL}]]]] + [net (.only URL)]]]] ["[0]" / "_" - ["[1][0]" selector {"+" Selector Combinator Specializer Generic}] - ["[1][0]" value {"+" Value Animation Percentage}] - ["[1][0]" property {"+" Property}] - ["[1][0]" font {"+" Font}] + ["[1][0]" selector (.only Selector Combinator Specializer Generic)] + ["[1][0]" value (.only Value Animation Percentage)] + ["[1][0]" property (.only Property)] + ["[1][0]" font (.only Font)] ["[1][0]" style] - ["[1][0]" query {"+" Query}]]) + ["[1][0]" query (.only Query)]]) (primitive: .public Common Any) (primitive: .public Special Any) diff --git a/stdlib/source/library/lux/data/format/css/class.lux b/stdlib/source/library/lux/data/format/css/class.lux index 4c9018688..036a5a8ed 100644 --- a/stdlib/source/library/lux/data/format/css/class.lux +++ b/stdlib/source/library/lux/data/format/css/class.lux @@ -3,12 +3,12 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [data ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/data/format/css/font.lux b/stdlib/source/library/lux/data/format/css/font.lux index 8f199f020..7eaf89726 100644 --- a/stdlib/source/library/lux/data/format/css/font.lux +++ b/stdlib/source/library/lux/data/format/css/font.lux @@ -1,17 +1,17 @@ (.using - [library - [lux "*" - [type - abstract] - [control - [parser - ["s" code]]] - ["[0]" macro - [syntax {"+" syntax:}]] - [world - [net {"+" URL}]]]] - ["[0]" // "_" - ["[1][0]" value {"+" Value Font_Stretch Font_Style Font_Weight}]]) + [library + [lux "*" + [type + abstract] + [control + [parser + ["s" code]]] + ["[0]" macro + [syntax (.only syntax:)]] + [world + [net (.only URL)]]]] + ["[0]" // "_" + ["[1][0]" value (.only Value Font_Stretch Font_Style Font_Weight)]]) (type: .public Unicode_Range (Record diff --git a/stdlib/source/library/lux/data/format/css/id.lux b/stdlib/source/library/lux/data/format/css/id.lux index 8eb73d0e7..4af192d61 100644 --- a/stdlib/source/library/lux/data/format/css/id.lux +++ b/stdlib/source/library/lux/data/format/css/id.lux @@ -3,12 +3,12 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [data ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/data/format/css/property.lux b/stdlib/source/library/lux/data/format/css/property.lux index 821b4b03f..685b6d312 100644 --- a/stdlib/source/library/lux/data/format/css/property.lux +++ b/stdlib/source/library/lux/data/format/css/property.lux @@ -11,48 +11,48 @@ [macro ["[0]" template] ["[0]" code] - [syntax {"+" syntax:}]]]] + [syntax (.only syntax:)]]]] [// - [value {"+" All - Number - Length Thickness Time - Color - Location Fit - Slice - Alignment Animation_Direction - Animation Animation_Fill - Column_Fill Column_Span - Iteration Count - Play - Timing Visibility Attachment - Blend Span Image - Angle Repeat Border - Collapse Box_Decoration_Break Caption - Float Clear - Content - Cursor - Shadow Clip - Text_Direction - Display Empty - Filter - Flex_Direction Flex_Wrap - Font Font_Kerning Font_Size Font_Stretch Font_Style Font_Weight Font_Variant - Grid Grid_Content Grid_Flow Grid_Span Grid_Template - Hanging_Punctuation Hyphens Isolation - List_Style_Position List_Style_Type - Overflow Page_Break Pointer_Events - Position - Quotes - Resize Scroll_Behavior Table_Layout - Text_Align Text_Align_Last - Text_Decoration_Line Text_Decoration_Style - Text_Justification Text_Overflow Text_Transform - Transform Transform_Origin Transform_Style - Transition - Bidi User_Select - Vertical_Align - White_Space Word_Break Word_Wrap Writing_Mode - Z_Index}]]) + [value (.only All + Number + Length Thickness Time + Color + Location Fit + Slice + Alignment Animation_Direction + Animation Animation_Fill + Column_Fill Column_Span + Iteration Count + Play + Timing Visibility Attachment + Blend Span Image + Angle Repeat Border + Collapse Box_Decoration_Break Caption + Float Clear + Content + Cursor + Shadow Clip + Text_Direction + Display Empty + Filter + Flex_Direction Flex_Wrap + Font Font_Kerning Font_Size Font_Stretch Font_Style Font_Weight Font_Variant + Grid Grid_Content Grid_Flow Grid_Span Grid_Template + Hanging_Punctuation Hyphens Isolation + List_Style_Position List_Style_Type + Overflow Page_Break Pointer_Events + Position + Quotes + Resize Scroll_Behavior Table_Layout + Text_Align Text_Align_Last + Text_Decoration_Line Text_Decoration_Style + Text_Justification Text_Overflow Text_Transform + Transform Transform_Origin Transform_Style + Transition + Bidi User_Select + Vertical_Align + White_Space Word_Break Word_Wrap Writing_Mode + Z_Index)]]) (syntax: (text_symbol [symbol s.text]) (in (list (code.local (text.replaced "-" "_" symbol))))) diff --git a/stdlib/source/library/lux/data/format/css/query.lux b/stdlib/source/library/lux/data/format/css/query.lux index 697529704..86f72255a 100644 --- a/stdlib/source/library/lux/data/format/css/query.lux +++ b/stdlib/source/library/lux/data/format/css/query.lux @@ -6,20 +6,20 @@ ["s" code]]] [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro ["[0]" template] ["[0]" code] - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [type [primitive "*"]]]] ["[0]" // "_" - ["[1][0]" value {"+" Value Length Count Resolution Ratio - Orientation Scan Boolean Update - Block_Overflow Inline_Overflow - Display_Mode Color_Gamut Inverted_Colors - Pointer Hover - Light Scripting Motion Color_Scheme}]]) + ["[1][0]" value (.only Value Length Count Resolution Ratio + Orientation Scan Boolean Update + Block_Overflow Inline_Overflow + Display_Mode Color_Gamut Inverted_Colors + Pointer Hover + Light Scripting Motion Color_Scheme)]]) (syntax: (text_symbol [symbol s.text]) (in (list (code.local (text.replaced "-" "_" symbol))))) diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index c1fece6e7..8114f358f 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -1,10 +1,10 @@ (.using [library [lux {"-" Label or and for same? not} - ["[0]" locale {"+" Locale}] + ["[0]" locale (.only Locale)] [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [math [number ["i" int]]] @@ -13,8 +13,8 @@ [macro ["[0]" template]]]] ["[0]" // "_" - ["[1][0]" id {"+" ID}] - ["[1][0]" class {"+" Class}]]) + ["[1][0]" id (.only ID)] + ["[1][0]" class (.only Class)]]) (type: .public Label Text) diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/data/format/css/style.lux index 424a16d66..015453599 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/data/format/css/style.lux @@ -3,14 +3,14 @@ [lux "*" [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix)]]] [type [primitive "*"]]]] ["[0]" // "_" - ["[1][0]" value {"+" Value}] - ["[1][0]" property {"+" Property}]]) + ["[1][0]" value (.only Value)] + ["[1][0]" property (.only Property)]]) (primitive: .public Style Text diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 01c011ac3..5d50d5290 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -9,11 +9,11 @@ ["[0]" color] ["[0]" product] ["[0]" text - ["%" format {"+" Format format}]] + ["%" format (.only Format format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math @@ -25,9 +25,9 @@ [type [primitive "*"]] [world - [net {"+" URL}]]]] + [net (.only URL)]]]] [// - [selector {"+" Label}]]) + [selector (.only Label)]]) (syntax: (text_symbol [symbol <code>.text]) (in (list (code.local (text.replaced "-" "_" symbol))))) diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux index b1ebb9a65..7cff8990b 100644 --- a/stdlib/source/library/lux/data/format/html.lux +++ b/stdlib/source/library/lux/data/format/html.lux @@ -7,7 +7,7 @@ [data ["[0]" product] ["[0]" text - ["%" format {"+" Format format}]] + ["%" format (.only Format format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro @@ -17,12 +17,12 @@ [type [primitive "*"]] [world - [net {"+" URL}]]]] + [net (.only URL)]]]] [// - ["[0]" xml {"+" XML}] + ["[0]" xml (.only XML)] [css ["[0]" selector] - ["[0]" style {"+" Style}]]]) + ["[0]" style (.only Style)]]]) (type: .public Tag selector.Tag) (type: .public ID selector.ID) diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux index 1eb7c31fb..06babedb6 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -1,18 +1,18 @@ (.using [library [lux {"-" has} - ["[0]" meta {"+" monad}] + ["[0]" meta (.only monad)] [abstract - [equivalence {"+" Equivalence}] - [codec {"+" Codec}] - [predicate {"+" Predicate}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + [codec (.only Codec)] + [predicate (.only Predicate)] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" maybe] - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" text {"+" Parser}] + ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" bit] @@ -20,10 +20,10 @@ ["[0]" text ("[1]#[0]" equivalence monoid)] [collection ["[0]" list ("[1]#[0]" mix functor)] - ["[0]" sequence {"+" Sequence sequence} ("[1]#[0]" monad)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" sequence (.only Sequence sequence) ("[1]#[0]" monad)] + ["[0]" dictionary (.only Dictionary)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/data/format/markdown.lux b/stdlib/source/library/lux/data/format/markdown.lux index ed56b0853..eb71f7935 100644 --- a/stdlib/source/library/lux/data/format/markdown.lux +++ b/stdlib/source/library/lux/data/format/markdown.lux @@ -3,13 +3,13 @@ [lux {"-" and} [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [type [primitive "*"]] [world - [net {"+" URL}]]]]) + [net (.only URL)]]]]) ... https://www.markdownguide.org/basic-syntax/ diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux index 7cdd1cf58..ea8a1f5ad 100644 --- a/stdlib/source/library/lux/data/format/tar.lux +++ b/stdlib/source/library/lux/data/format/tar.lux @@ -1,30 +1,30 @@ (.using [library [lux {"-" Mode and} - [ffi {"+"}] + [ffi (.only)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" pipe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data ["[0]" product] - ["[0]" binary {"+" Binary} + ["[0]" binary (.only Binary) ["[1]!" \\unsafe]] - ["[0]" text {"+" Char} - ["%" format {"+" format}] + ["[0]" text (.only Char) + ["%" format (.only format)] [encoding ["[0]" utf8]]] ["[0]" format "_" - ["[1]" binary {"+" Writer} ("[1]#[0]" monoid)]] + ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]] [collection ["[0]" list ("[1]#[0]" mix)] - ["[0]" sequence {"+" Sequence} ("[1]#[0]" mix)] + ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)] [array - [\\unsafe {"+"}]]]] + [\\unsafe (.only)]]]] [macro ["^" pattern]] [math @@ -32,7 +32,7 @@ ["n" nat] ["[0]" i64]]] [time - ["[0]" instant {"+" Instant}] + ["[0]" instant (.only Instant)] ["[0]" duration]] [world ["[0]" file]] diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index d30f2aeee..2973caf9a 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -2,19 +2,19 @@ [library [lux {"-" symbol} [abstract - [monad {"+" do}] - [equivalence {"+" Equivalence}] - [codec {"+" Codec}]] + [monad (.only do)] + [equivalence (.only Equivalence)] + [codec (.only Codec)]] [control - [try {"+" Try}] + [try (.only Try)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" text {"+" Parser Slice}]]] + ["<[0]>" text (.only Parser Slice)]]] [data ["[0]" product] - ["[0]" text {"+" \n} ("[1]#[0]" equivalence monoid)] + ["[0]" text (.only \n) ("[1]#[0]" equivalence monoid)] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/data/identity.lux b/stdlib/source/library/lux/data/identity.lux index 64f124f02..5f805450f 100644 --- a/stdlib/source/library/lux/data/identity.lux +++ b/stdlib/source/library/lux/data/identity.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad}] - [comonad {"+" CoMonad}]] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad)] + [comonad (.only CoMonad)]] [control ["[0]" function]]]]) diff --git a/stdlib/source/library/lux/data/product.lux b/stdlib/source/library/lux/data/product.lux index f516c7d97..05786b260 100644 --- a/stdlib/source/library/lux/data/product.lux +++ b/stdlib/source/library/lux/data/product.lux @@ -2,8 +2,8 @@ [library [lux {"-" left right} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]]]]) + [equivalence (.only Equivalence)] + [hash (.only Hash)]]]]) (template [<name>] [(def: .public (<name> [left right]) diff --git a/stdlib/source/library/lux/data/store.lux b/stdlib/source/library/lux/data/store.lux index 6c0291c2a..8b6453550 100644 --- a/stdlib/source/library/lux/data/store.lux +++ b/stdlib/source/library/lux/data/store.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - [functor {"+" Functor}] + [functor (.only Functor)] comonad] [type implicit]]]) diff --git a/stdlib/source/library/lux/data/sum.lux b/stdlib/source/library/lux/data/sum.lux index 5d1fe365b..4c6a37dd9 100644 --- a/stdlib/source/library/lux/data/sum.lux +++ b/stdlib/source/library/lux/data/sum.lux @@ -2,8 +2,8 @@ [library [lux {"-" left right} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]]]]) + [equivalence (.only Equivalence)] + [hash (.only Hash)]]]]) (template [<right?> <name>] [(def: .public (<name> value) diff --git a/stdlib/source/library/lux/data/text.lux b/stdlib/source/library/lux/data/text.lux index 22ee37a50..25390d767 100644 --- a/stdlib/source/library/lux/data/text.lux +++ b/stdlib/source/library/lux/data/text.lux @@ -3,12 +3,12 @@ [lux {"-" char} ["@" target] [abstract - [hash {"+" Hash}] - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [monad {"+" do}] - [codec {"+" Codec}]] + [hash (.only Hash)] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [order (.only Order)] + [monad (.only do)] + [codec (.only Codec)]] [control ["[0]" maybe]] [data diff --git a/stdlib/source/library/lux/data/text/buffer.lux b/stdlib/source/library/lux/data/text/buffer.lux index 4e51b721c..c9cefbb48 100644 --- a/stdlib/source/library/lux/data/text/buffer.lux +++ b/stdlib/source/library/lux/data/text/buffer.lux @@ -2,16 +2,16 @@ [library [lux "*" ["@" target] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [control ["[0]" function]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" sequence {"+" Sequence} ("[1]#[0]" mix)]]] + ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)]]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/data/text/encoding/utf8.lux b/stdlib/source/library/lux/data/text/encoding/utf8.lux index 21bbe8e81..1ad9c51b1 100644 --- a/stdlib/source/library/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/library/lux/data/text/encoding/utf8.lux @@ -4,11 +4,11 @@ ["@" target] ["[0]" ffi] [abstract - [codec {"+" Codec}]] + [codec (.only Codec)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - ["[0]" binary {"+" Binary}]]]] + ["[0]" binary (.only Binary)]]]] ["[0]" //]) (with_expansions [<jvm> (these (ffi.import: java/lang/String diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux index a3b549273..63bd9adf9 100644 --- a/stdlib/source/library/lux/data/text/escape.lux +++ b/stdlib/source/library/lux/data/text/escape.lux @@ -3,22 +3,22 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser ["<[0]>" code]]] [math - [number {"+" hex} + [number (.only hex) ["n" nat]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]]]] - ["[0]" // {"+" Char} - ["%" format {"+" format}]]) + ["[0]" // (.only Char) + ["%" format (.only format)]]) (def: sigil "\") diff --git a/stdlib/source/library/lux/data/text/format.lux b/stdlib/source/library/lux/data/text/format.lux index 5b719d954..1785765de 100644 --- a/stdlib/source/library/lux/data/text/format.lux +++ b/stdlib/source/library/lux/data/text/format.lux @@ -2,12 +2,12 @@ [library [lux {"-" list nat int rev type symbol} [abstract - [monad {"+" do}] + [monad (.only do)] [functor ["[0]" contravariant]]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" bit] ["[0]" text] @@ -31,7 +31,7 @@ ["[0]" frac] ["[0]" ratio]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code] ["[0]" template]] [meta diff --git a/stdlib/source/library/lux/data/text/regex.lux b/stdlib/source/library/lux/data/text/regex.lux index 1b784bebe..d5d6697eb 100644 --- a/stdlib/source/library/lux/data/text/regex.lux +++ b/stdlib/source/library/lux/data/text/regex.lux @@ -3,27 +3,27 @@ [lux {"-" pattern} ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" text {"+" Parser}] + ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" mix monad)]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["n" nat ("[1]#[0]" decimal)]]]]] ["[0]" // - ["%" format {"+" format}]]) + ["%" format (.only format)]]) (def: regex_char^ (Parser Text) diff --git a/stdlib/source/library/lux/data/text/unicode/block.lux b/stdlib/source/library/lux/data/text/unicode/block.lux index af1825a48..39d51af79 100644 --- a/stdlib/source/library/lux/data/text/unicode/block.lux +++ b/stdlib/source/library/lux/data/text/unicode/block.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [monoid {"+" Monoid}] - ["[0]" interval {"+" Interval}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [monoid (.only Monoid)] + ["[0]" interval (.only Interval)]] [math - [number {"+" hex} + [number (.only hex) ["n" nat ("[1]#[0]" interval)] ["[0]" i64]]] [type [primitive "*"]]]] - [/// {"+" Char}]) + [/// (.only Char)]) (primitive: .public Block (Interval Char) diff --git a/stdlib/source/library/lux/data/text/unicode/set.lux b/stdlib/source/library/lux/data/text/unicode/set.lux index 1bd7ca2af..238eb0895 100644 --- a/stdlib/source/library/lux/data/text/unicode/set.lux +++ b/stdlib/source/library/lux/data/text/unicode/set.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data [collection ["[0]" list ("[1]#[0]" mix functor)] ["[0]" set ("[1]#[0]" equivalence)] ["[0]" tree "_" - ["[1]" finger {"+" Tree}]]]] - [type {"+" by_example} + ["[1]" finger (.only Tree)]]]] + [type (.only by_example) [primitive "*"]]]] ["[0]" / "_" ["/[1]" // "_" - [// {"+" Char}] - ["[1][0]" block {"+" Block}]]]) + [// (.only Char)] + ["[1][0]" block (.only Block)]]]) (def: builder (tree.builder //block.monoid)) diff --git a/stdlib/source/library/lux/data/trace.lux b/stdlib/source/library/lux/data/trace.lux index 73f8dc5aa..72a6eb4d3 100644 --- a/stdlib/source/library/lux/data/trace.lux +++ b/stdlib/source/library/lux/data/trace.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - ["[0]" monoid {"+" Monoid}] - [functor {"+" Functor}] + ["[0]" monoid (.only Monoid)] + [functor (.only Functor)] comonad] function]]) diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index e1729e2ad..132038ab1 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -3,23 +3,23 @@ [lux {"-" type private} ["@" target] ["[0]" type] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" function] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" type {"+" Parser}] + ["<[0]>" type (.only Parser)] ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" Format}]] + ["%" format (.only Format)]] [format - [xml {"+" XML}] + [xml (.only XML)] ["[0]" json]] [collection ["[0]" array] @@ -28,19 +28,19 @@ [macro ["^" pattern] ["[0]" template] - ["[0]" syntax {"+" syntax:}] + ["[0]" syntax (.only syntax:)] ["[0]" code]] [math [number - [ratio {"+" Ratio}] + [ratio (.only Ratio)] ["n" nat] ["i" int]]] - [time {"+" Time} - [instant {"+" Instant}] - [duration {"+" Duration}] - [date {"+" Date}] - [month {"+" Month}] - [day {"+" Day}]]]]) + [time (.only Time) + [instant (.only Instant)] + [duration (.only Duration)] + [date (.only Date)] + [month (.only Month)] + [day (.only Day)]]]]) (with_expansions [<jvm> (these (import: java/lang/String "[1]::[0]") diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux index c50a1070a..4770ef1f1 100644 --- a/stdlib/source/library/lux/documentation.lux +++ b/stdlib/source/library/lux/documentation.lux @@ -4,25 +4,25 @@ ["[0]" meta] ["[0]" type ("[1]#[0]" equivalence)] [abstract - [monad {"+" do}] + [monad (.only do)] ["[0]" enum]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] - ["[0]" text {"+" \n} ("[1]#[0]" order) - ["%" format {"+" format}]] + ["[0]" text (.only \n) ("[1]#[0]" order) + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monad mix monoid)] - ["[0]" set {"+" Set}] - ["[0]" stream {"+" Stream}]] + ["[0]" set (.only Set)] + ["[0]" stream (.only Stream)]] [format - ["md" markdown {"+" Markdown Block}]]] + ["md" markdown (.only Markdown Block)]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["^" pattern] ["[0]" code] ["[0]" template]] diff --git a/stdlib/source/library/lux/extension.lux b/stdlib/source/library/lux/extension.lux index bca5494f8..a0cde2191 100644 --- a/stdlib/source/library/lux/extension.lux +++ b/stdlib/source/library/lux/extension.lux @@ -5,15 +5,15 @@ ["[0]" monad]] [control ["<>" parser ("[1]#[0]" monad) - ["<c>" code {"+" Parser}] + ["<c>" code (.only Parser)] ["<a>" analysis] ["<s>" synthesis]]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" functor)]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]] [tool [compiler diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux index 000d80023..344d6749b 100644 --- a/stdlib/source/library/lux/ffi.jvm.lux +++ b/stdlib/source/library/lux/ffi.jvm.lux @@ -3,33 +3,33 @@ [lux {"-" Primitive Type type int char is as} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" io] ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" Exception exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only Exception exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" array] ["[0]" list ("[1]#[0]" monad mix monoid)] - ["[0]" dictionary {"+" Dictionary}]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + ["[0]" dictionary (.only Dictionary)]]] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["^" pattern] ["[0]" code] ["[0]" template]] [target ["[0]" jvm "_" [encoding - ["[0]" name {"+" External}]] - ["[1]" type {"+" Type Argument Typed} - ["[0]" category {"+" Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration}] + ["[0]" name (.only External)]] + ["[1]" type (.only Type Argument Typed) + ["[0]" category (.only Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration)] ["[0]" box] ["[0]" descriptor] ["[0]" signature] diff --git a/stdlib/source/library/lux/ffi.lux b/stdlib/source/library/lux/ffi.lux index 577eaec98..a18793de8 100644 --- a/stdlib/source/library/lux/ffi.lux +++ b/stdlib/source/library/lux/ffi.lux @@ -4,20 +4,20 @@ ["@" target] ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" io] ["[0]" maybe ("[1]#[0]" functor)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) ["%" format]] [collection ["[0]" list ("[1]#[0]" monad mix)]]] - ["[0]" macro {"+" with_symbols} - [syntax {"+" syntax:}] + ["[0]" macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code] ["[0]" template]] [type diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux index e79861b38..748e8e00c 100644 --- a/stdlib/source/library/lux/ffi.old.lux +++ b/stdlib/source/library/lux/ffi.old.lux @@ -3,25 +3,25 @@ [lux {"-" is as type} ["[0]" type ("[1]#[0]" equivalence)] [abstract - ["[0]" monad {"+" Monad do}] + ["[0]" monad (.only Monad do)] ["[0]" enum]] [control ["[0]" function] ["[0]" io] ["[0]" maybe] - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" bit ("[1]#[0]" codec)] ["[0]" text ("[1]#[0]" equivalence monoid) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" array {"+" Array}] + ["[0]" array (.only Array)] ["[0]" list ("[1]#[0]" monad mix monoid)]]] - ["[0]" macro {"+" with_symbols} - [syntax {"+" syntax:}] + ["[0]" macro (.only with_symbols) + [syntax (.only syntax:)] ["^" pattern] ["[0]" code] ["[0]" template]] diff --git a/stdlib/source/library/lux/ffi.php.lux b/stdlib/source/library/lux/ffi.php.lux index bd2176adb..cb36e50e1 100644 --- a/stdlib/source/library/lux/ffi.php.lux +++ b/stdlib/source/library/lux/ffi.php.lux @@ -4,12 +4,12 @@ ["@" target] ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" io] ["[0]" maybe] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text @@ -18,8 +18,8 @@ ["[0]" list ("[1]#[0]" functor)]]] [type abstract] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code] ["[0]" template]]]]) diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux index 79b042679..7cbbc2836 100644 --- a/stdlib/source/library/lux/ffi.scm.lux +++ b/stdlib/source/library/lux/ffi.scm.lux @@ -4,22 +4,22 @@ ["@" target] ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" io] ["[0]" maybe] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [type abstract] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code] ["[0]" template]]]]) diff --git a/stdlib/source/library/lux/ffi/export.js.lux b/stdlib/source/library/lux/ffi/export.js.lux index e889ad68f..96230b5e0 100644 --- a/stdlib/source/library/lux/ffi/export.js.lux +++ b/stdlib/source/library/lux/ffi/export.js.lux @@ -1,11 +1,11 @@ (.using [library [lux "*" - [extension {"+" directive:}] + [extension (.only directive:)] ["[0]" meta] ["[0]" static] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser ["<[0]>" code]]] @@ -16,7 +16,7 @@ ["[0]" list ("[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math ["[0]" random]] diff --git a/stdlib/source/library/lux/ffi/export.jvm.lux b/stdlib/source/library/lux/ffi/export.jvm.lux index ec79f469f..afafe1313 100644 --- a/stdlib/source/library/lux/ffi/export.jvm.lux +++ b/stdlib/source/library/lux/ffi/export.jvm.lux @@ -3,12 +3,12 @@ [lux {"-" function} [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" list ("[1]#[0]" monad)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]]]] ["[0]" //]) diff --git a/stdlib/source/library/lux/ffi/export.lua.lux b/stdlib/source/library/lux/ffi/export.lua.lux index 86365d524..80ab44518 100644 --- a/stdlib/source/library/lux/ffi/export.lua.lux +++ b/stdlib/source/library/lux/ffi/export.lua.lux @@ -1,11 +1,11 @@ (.using [library [lux "*" - [extension {"+" directive:}] + [extension (.only directive:)] ["[0]" meta] ["[0]" static] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser ["<[0]>" code]]] @@ -16,7 +16,7 @@ ["[0]" list ("[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math ["[0]" random]] diff --git a/stdlib/source/library/lux/ffi/export.py.lux b/stdlib/source/library/lux/ffi/export.py.lux index 08ef62188..fb3b6a503 100644 --- a/stdlib/source/library/lux/ffi/export.py.lux +++ b/stdlib/source/library/lux/ffi/export.py.lux @@ -1,11 +1,11 @@ (.using [library [lux "*" - [extension {"+" directive:}] + [extension (.only directive:)] ["[0]" meta] ["[0]" static] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser ["<[0]>" code]]] @@ -16,7 +16,7 @@ ["[0]" list ("[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math ["[0]" random]] diff --git a/stdlib/source/library/lux/ffi/export.rb.lux b/stdlib/source/library/lux/ffi/export.rb.lux index 08f765b25..32392affe 100644 --- a/stdlib/source/library/lux/ffi/export.rb.lux +++ b/stdlib/source/library/lux/ffi/export.rb.lux @@ -1,16 +1,16 @@ (.using [library [lux {"-" global} - [extension {"+" directive:}] + [extension (.only directive:)] ["[0]" meta] ["[0]" static] ["[0]" type] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser ["<[0]>" code] - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data [text ["%" format]] @@ -18,7 +18,7 @@ ["[0]" list ("[1]#[0]" monad mix)] ["[0]" set]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math ["[0]" random]] diff --git a/stdlib/source/library/lux/locale.lux b/stdlib/source/library/lux/locale.lux index 6500deb55..92834611d 100644 --- a/stdlib/source/library/lux/locale.lux +++ b/stdlib/source/library/lux/locale.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - ["[0]" hash {"+" Hash}]] + [equivalence (.only Equivalence)] + ["[0]" hash (.only Hash)]] [control ["[0]" maybe ("[1]#[0]" functor)]] [data ["[0]" text - ["%" format {"+" format}] - ["[0]" encoding {"+" Encoding}]]] + ["%" format (.only format)] + ["[0]" encoding (.only Encoding)]]] [type [primitive "*"]]]] [/ - ["[0]" language {"+" Language}] - ["[0]" territory {"+" Territory}]]) + ["[0]" language (.only Language)] + ["[0]" territory (.only Territory)]]) (primitive: .public Locale Text diff --git a/stdlib/source/library/lux/locale/language.lux b/stdlib/source/library/lux/locale/language.lux index 3a56db5cf..8040bd560 100644 --- a/stdlib/source/library/lux/locale/language.lux +++ b/stdlib/source/library/lux/locale/language.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" text]] [type diff --git a/stdlib/source/library/lux/locale/territory.lux b/stdlib/source/library/lux/locale/territory.lux index c654d8650..64a7f4b82 100644 --- a/stdlib/source/library/lux/locale/territory.lux +++ b/stdlib/source/library/lux/locale/territory.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" text]] [type diff --git a/stdlib/source/library/lux/macro.lux b/stdlib/source/library/lux/macro.lux index f4b582ef6..0036a9256 100644 --- a/stdlib/source/library/lux/macro.lux +++ b/stdlib/source/library/lux/macro.lux @@ -2,7 +2,7 @@ [library [lux {"-" local symbol} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" text ("[1]#[0]" monoid)] [collection diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index e86024d13..9a04ecdf7 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -2,7 +2,7 @@ [library [lux {"-" nat int rev local global symbol} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" product] ["[0]" bit] diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux index f1060fed1..7a04c47f9 100644 --- a/stdlib/source/library/lux/macro/local.lux +++ b/stdlib/source/library/lux/macro/local.lux @@ -3,17 +3,17 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] ["[0]" text] [collection ["[0]" list ("[1]#[0]" functor)] [dictionary - ["[0]" plist {"+" PList}]]]]]] + ["[0]" plist (.only PList)]]]]]] ["[0]" // ["[1][0]" code]]) diff --git a/stdlib/source/library/lux/macro/syntax.lux b/stdlib/source/library/lux/macro/syntax.lux index 2d092eaa6..50fa88376 100644 --- a/stdlib/source/library/lux/macro/syntax.lux +++ b/stdlib/source/library/lux/macro/syntax.lux @@ -3,12 +3,12 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["[0]" try] ["<>" parser - ["</>" code {"+" Parser}]]] + ["</>" code (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)] [collection @@ -19,7 +19,7 @@ ["[0]" int] ["[0]" rev] ["[0]" frac]]]]] - ["[0]" // {"+" with_symbols} + ["[0]" // (.only with_symbols) ["[0]" code]] ["[0]" / "_" ["[1][0]" export]]) diff --git a/stdlib/source/library/lux/macro/syntax/check.lux b/stdlib/source/library/lux/macro/syntax/check.lux index da68a8f25..f76685bb9 100644 --- a/stdlib/source/library/lux/macro/syntax/check.lux +++ b/stdlib/source/library/lux/macro/syntax/check.lux @@ -3,12 +3,12 @@ [lux "*" ["[0]" meta] [abstract - [equivalence {"+" Equivalence}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product]] [macro diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux index be174fdd5..dfc46c5d9 100644 --- a/stdlib/source/library/lux/macro/syntax/declaration.lux +++ b/stdlib/source/library/lux/macro/syntax/declaration.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text] diff --git a/stdlib/source/library/lux/macro/syntax/definition.lux b/stdlib/source/library/lux/macro/syntax/definition.lux index 47b419339..99ef6b848 100644 --- a/stdlib/source/library/lux/macro/syntax/definition.lux +++ b/stdlib/source/library/lux/macro/syntax/definition.lux @@ -2,12 +2,12 @@ [library [lux {"-" Definition} [abstract - [equivalence {"+" Equivalence}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" sum] ["[0]" product] @@ -21,7 +21,7 @@ ["[0]" meta ["[0]" location]]]] ["[0]" // - ["[1][0]" check {"+" Check}]]) + ["[1][0]" check (.only Check)]]) (type: .public Definition (Record diff --git a/stdlib/source/library/lux/macro/syntax/export.lux b/stdlib/source/library/lux/macro/syntax/export.lux index 5a75b096c..bd0608085 100644 --- a/stdlib/source/library/lux/macro/syntax/export.lux +++ b/stdlib/source/library/lux/macro/syntax/export.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [macro ["^" pattern]]]]) diff --git a/stdlib/source/library/lux/macro/syntax/input.lux b/stdlib/source/library/lux/macro/syntax/input.lux index 9e66ad43e..e8b9269e8 100644 --- a/stdlib/source/library/lux/macro/syntax/input.lux +++ b/stdlib/source/library/lux/macro/syntax/input.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [collection diff --git a/stdlib/source/library/lux/macro/syntax/type/variable.lux b/stdlib/source/library/lux/macro/syntax/type/variable.lux index 88dbd1be4..7036912b2 100644 --- a/stdlib/source/library/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/library/lux/macro/syntax/type/variable.lux @@ -1,15 +1,15 @@ (.using - [library - [lux "*" - [abstract - [equivalence {"+" Equivalence}]] - [control - [parser - ["<[0]>" code {"+" Parser}]]] - [data - ["[0]" text]] - [macro - ["[0]" code]]]]) + [library + [lux "*" + [abstract + [equivalence (.only Equivalence)]] + [control + [parser + ["<[0]>" code (.only Parser)]]] + [data + ["[0]" text]] + [macro + ["[0]" code]]]]) (type: .public Variable Text) diff --git a/stdlib/source/library/lux/macro/template.lux b/stdlib/source/library/lux/macro/template.lux index e866798bb..b87db87bf 100644 --- a/stdlib/source/library/lux/macro/template.lux +++ b/stdlib/source/library/lux/macro/template.lux @@ -3,18 +3,18 @@ [lux {"-" let local macro symbol} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" functor) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" bit ("[1]#[0]" codec)] ["[0]" text] [collection ["[0]" list ("[1]#[0]" monad)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] [math @@ -24,7 +24,7 @@ ["[0]" rev ("[1]#[0]" decimal)] ["[0]" frac ("[1]#[0]" decimal)]]]]] ["[0]" // - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code] ["[0]" local]]) diff --git a/stdlib/source/library/lux/math.lux b/stdlib/source/library/lux/math.lux index c7683c120..05d296fca 100644 --- a/stdlib/source/library/lux/math.lux +++ b/stdlib/source/library/lux/math.lux @@ -1,14 +1,14 @@ (.using [library [lux "*" - [extension {"+" analysis:}] + [extension (.only analysis:)] ["@" target] ["[0]" static] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser ["<[0]>" code]]] [data @@ -17,17 +17,17 @@ [collection ["[0]" list ("[1]#[0]" mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template]] [tool [compiler ["[0]" phase ("[1]#[0]" monad)] [language [lux - ["[0]" analysis {"+" Analysis Operation Phase} + ["[0]" analysis (.only Analysis Operation Phase) ["[0]" type]]]] [meta - [archive {"+" Archive}]]]] + [archive (.only Archive)]]]] [type ["[0]" check]]]] [/ @@ -37,8 +37,8 @@ ["[0]" int] ["[0]" rev] ["[0]" frac] - ["[0]" ratio {"+" Ratio}] - ["[0]" complex {"+" Complex}]]]) + ["[0]" ratio (.only Ratio)] + ["[0]" complex (.only Complex)]]]) (exception: (no_arithmetic_for [type Type]) (exception.report diff --git a/stdlib/source/library/lux/math/infix.lux b/stdlib/source/library/lux/math/infix.lux index c7dd7efa5..c71f860a3 100644 --- a/stdlib/source/library/lux/math/infix.lux +++ b/stdlib/source/library/lux/math/infix.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["<>" parser ("[1]#[0]" functor) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math [number diff --git a/stdlib/source/library/lux/math/logic/continuous.lux b/stdlib/source/library/lux/math/logic/continuous.lux index 695e9543e..0237f4226 100644 --- a/stdlib/source/library/lux/math/logic/continuous.lux +++ b/stdlib/source/library/lux/math/logic/continuous.lux @@ -1,12 +1,12 @@ ... https://en.wikipedia.org/wiki/Many-valued_logic (.using - [library - [lux {"-" false true or and not} - [abstract - [monoid {"+" Monoid}]] - [math - [number - ["/" rev ("[1]#[0]" interval)]]]]]) + [library + [lux {"-" false true or and not} + [abstract + [monoid (.only Monoid)]] + [math + [number + ["/" rev ("[1]#[0]" interval)]]]]]) (def: .public false Rev /#bottom) (def: .public true Rev /#top) diff --git a/stdlib/source/library/lux/math/logic/fuzzy.lux b/stdlib/source/library/lux/math/logic/fuzzy.lux index 01f9f02cf..a7cc01305 100644 --- a/stdlib/source/library/lux/math/logic/fuzzy.lux +++ b/stdlib/source/library/lux/math/logic/fuzzy.lux @@ -1,20 +1,20 @@ ... https://en.wikipedia.org/wiki/Fuzzy_logic (.using - [library - [lux "*" - [abstract - [predicate {"+" Predicate}] - [functor - ["[0]" contravariant]]] - [data - [collection - ["[0]" list] - ["[0]" set {"+" Set}]]] - [math - [number - ["/" rev]]]]] - ["[0]" // "_" - ["[1]" continuous]]) + [library + [lux "*" + [abstract + [predicate (.only Predicate)] + [functor + ["[0]" contravariant]]] + [data + [collection + ["[0]" list] + ["[0]" set (.only Set)]]] + [math + [number + ["/" rev]]]]] + ["[0]" // "_" + ["[1]" continuous]]) (type: .public (Fuzzy a) (-> a Rev)) diff --git a/stdlib/source/library/lux/math/modular.lux b/stdlib/source/library/lux/math/modular.lux index 4de567862..4eaeede5a 100644 --- a/stdlib/source/library/lux/math/modular.lux +++ b/stdlib/source/library/lux/math/modular.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [monoid {"+" Monoid}] - [codec {"+" Codec}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [monoid (.only Monoid)] + [codec (.only Codec)] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}] + ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid)]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math [number @@ -25,7 +25,7 @@ [type [primitive "*"]]]] ["[0]" // "_" - ["[1]" modulus {"+" Modulus}]]) + ["[1]" modulus (.only Modulus)]]) (primitive: .public (Mod m) (Record diff --git a/stdlib/source/library/lux/math/modulus.lux b/stdlib/source/library/lux/math/modulus.lux index f7f0ac6c1..74d829dc5 100644 --- a/stdlib/source/library/lux/math/modulus.lux +++ b/stdlib/source/library/lux/math/modulus.lux @@ -3,14 +3,14 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [parser ["<[0]>" code]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math [number diff --git a/stdlib/source/library/lux/math/number.lux b/stdlib/source/library/lux/math/number.lux index d28d6a90c..9be5bd456 100644 --- a/stdlib/source/library/lux/math/number.lux +++ b/stdlib/source/library/lux/math/number.lux @@ -2,9 +2,9 @@ [library [lux "*" [abstract - [codec {"+" Codec}]] + [codec (.only Codec)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" text]] [macro diff --git a/stdlib/source/library/lux/math/number/complex.lux b/stdlib/source/library/lux/math/number/complex.lux index 7f44439d0..ef1774e93 100644 --- a/stdlib/source/library/lux/math/number/complex.lux +++ b/stdlib/source/library/lux/math/number/complex.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe] ["<>" parser @@ -11,7 +11,7 @@ [collection ["[0]" list ("[1]#[0]" functor)]]] [macro - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [math [number ["f" frac] diff --git a/stdlib/source/library/lux/math/number/frac.lux b/stdlib/source/library/lux/math/number/frac.lux index 14f6c9746..21e67e98b 100644 --- a/stdlib/source/library/lux/math/number/frac.lux +++ b/stdlib/source/library/lux/math/number/frac.lux @@ -3,16 +3,16 @@ [lux {"-" nat int rev} ["@" target] [abstract - [hash {"+" Hash}] - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [codec {"+" Codec}] - [predicate {"+" Predicate}] - [order {"+" Order}] - [monad {"+" do}]] + [hash (.only Hash)] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [codec (.only Codec)] + [predicate (.only Predicate)] + [order (.only Order)] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" text]] [macro diff --git a/stdlib/source/library/lux/math/number/i16.lux b/stdlib/source/library/lux/math/number/i16.lux index a349e58d2..c9e2b4791 100644 --- a/stdlib/source/library/lux/math/number/i16.lux +++ b/stdlib/source/library/lux/math/number/i16.lux @@ -2,12 +2,12 @@ [library [lux {"-" i64} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe]] - [type {"+" by_example}]]] + [type (.only by_example)]]] [// - ["[0]" i64 {"+" Sub}]]) + ["[0]" i64 (.only Sub)]]) (def: sub (maybe.trusted (i64.sub 16))) diff --git a/stdlib/source/library/lux/math/number/i32.lux b/stdlib/source/library/lux/math/number/i32.lux index 5d6d7e915..589174068 100644 --- a/stdlib/source/library/lux/math/number/i32.lux +++ b/stdlib/source/library/lux/math/number/i32.lux @@ -1,13 +1,13 @@ (.using [library [lux {"-" i64} - [type {"+" by_example}] + [type (.only by_example)] [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe]]]] [// - ["[0]" i64 {"+" Sub}]]) + ["[0]" i64 (.only Sub)]]) (def: sub ... TODO: Stop needing this coercion. diff --git a/stdlib/source/library/lux/math/number/i64.lux b/stdlib/source/library/lux/math/number/i64.lux index 430127b4b..4bc5c18a6 100644 --- a/stdlib/source/library/lux/math/number/i64.lux +++ b/stdlib/source/library/lux/math/number/i64.lux @@ -2,9 +2,9 @@ [library [lux {"-" and or not false true} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [monoid {"+" Monoid}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [monoid (.only Monoid)]] [control ["[0]" try]]]] [// diff --git a/stdlib/source/library/lux/math/number/i8.lux b/stdlib/source/library/lux/math/number/i8.lux index 942c1f222..5e51d3d28 100644 --- a/stdlib/source/library/lux/math/number/i8.lux +++ b/stdlib/source/library/lux/math/number/i8.lux @@ -1,13 +1,13 @@ (.using [library [lux {"-" i64} - [type {"+" by_example}] + [type (.only by_example)] [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe]]]] [// - ["[0]" i64 {"+" Sub}]]) + ["[0]" i64 (.only Sub)]]) (def: sub (maybe.trusted (i64.sub 8))) diff --git a/stdlib/source/library/lux/math/number/int.lux b/stdlib/source/library/lux/math/number/int.lux index f03646def..aaeda1d5c 100644 --- a/stdlib/source/library/lux/math/number/int.lux +++ b/stdlib/source/library/lux/math/number/int.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [hash {"+" Hash}] - [enum {"+" Enum}] - [interval {"+" Interval}] - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [codec {"+" Codec}] - [predicate {"+" Predicate}] - ["[0]" order {"+" Order}]] + [hash (.only Hash)] + [enum (.only Enum)] + [interval (.only Interval)] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [codec (.only Codec)] + [predicate (.only Predicate)] + ["[0]" order (.only Order)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - [text {"+" Char}]] + [text (.only Char)]] [macro ["^" pattern]]]] ["[0]" // "_" diff --git a/stdlib/source/library/lux/math/number/nat.lux b/stdlib/source/library/lux/math/number/nat.lux index 2f570c7c2..cf07e87e9 100644 --- a/stdlib/source/library/lux/math/number/nat.lux +++ b/stdlib/source/library/lux/math/number/nat.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [hash {"+" Hash}] - [enum {"+" Enum}] - [interval {"+" Interval}] - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [codec {"+" Codec}] - ["[0]" order {"+" Order}]] + [hash (.only Hash)] + [enum (.only Enum)] + [interval (.only Interval)] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [codec (.only Codec)] + ["[0]" order (.only Order)]] [control ["[0]" function] ["[0]" maybe] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [macro ["^" pattern]]]]) diff --git a/stdlib/source/library/lux/math/number/ratio.lux b/stdlib/source/library/lux/math/number/ratio.lux index 5af8853ad..9b0b30b44 100644 --- a/stdlib/source/library/lux/math/number/ratio.lux +++ b/stdlib/source/library/lux/math/number/ratio.lux @@ -2,22 +2,22 @@ [library [lux {"-" nat} [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [monoid {"+" Monoid}] - [codec {"+" Codec}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [monoid (.only Monoid)] + [codec (.only Codec)] + [monad (.only do)]] [control ["[0]" function] ["[0]" maybe] ["[0]" try] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid)]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]]]] [// ["n" nat ("[1]#[0]" decimal)]]) diff --git a/stdlib/source/library/lux/math/number/rev.lux b/stdlib/source/library/lux/math/number/rev.lux index e6154d42f..510f90953 100644 --- a/stdlib/source/library/lux/math/number/rev.lux +++ b/stdlib/source/library/lux/math/number/rev.lux @@ -2,19 +2,19 @@ [library [lux "*" [abstract - [hash {"+" Hash}] - [enum {"+" Enum}] - [interval {"+" Interval}] - [monoid {"+" Monoid}] - [equivalence {"+" Equivalence}] - [codec {"+" Codec}] - [order {"+" Order}]] + [hash (.only Hash)] + [enum (.only Enum)] + [interval (.only Interval)] + [monoid (.only Monoid)] + [equivalence (.only Equivalence)] + [codec (.only Codec)] + [order (.only Order)]] [control ["[0]" maybe] ["[0]" try]] [data [collection - ["[0]" array {"+" Array}]]]]] + ["[0]" array (.only Array)]]]]] ["[0]" // "_" ["[1][0]" i64] ["[1][0]" nat] diff --git a/stdlib/source/library/lux/math/random.lux b/stdlib/source/library/lux/math/random.lux index 09f72d4bf..22eaf64b3 100644 --- a/stdlib/source/library/lux/math/random.lux +++ b/stdlib/source/library/lux/math/random.lux @@ -1,41 +1,41 @@ (.using [library - [lux {"-" or and list i64 nat int rev char} + [lux {"-" or and list i64 nat int rev char only} [abstract - [hash {"+" Hash}] - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [hash (.only Hash)] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [data - ["[0]" text {"+" Char} ("[1]#[0]" monoid) + ["[0]" text (.only Char) ("[1]#[0]" monoid) ["[0]" unicode "_" ["[1]" set]]] [collection ["[0]" list ("[1]#[0]" mix)] - ["[0]" array {"+" Array}] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" queue {"+" Queue}] - ["[0]" set {"+" Set}] - ["[0]" stack {"+" Stack}] - ["[0]" sequence {"+" Sequence}] + ["[0]" array (.only Array)] + ["[0]" dictionary (.only Dictionary)] + ["[0]" queue (.only Queue)] + ["[0]" set (.only Set)] + ["[0]" stack (.only Stack)] + ["[0]" sequence (.only Sequence)] [tree - ["[0]" finger {"+" Tree}]]]] + ["[0]" finger (.only Tree)]]]] [math - [number {"+" hex} + [number (.only hex) ["n" nat] ["i" int] ["f" frac] ["r" ratio] ["c" complex] ["[0]" i64]]] - ["[0]" time {"+" Time} - ["[0]" instant {"+" Instant}] - ["[0]" date {"+" Date}] - ["[0]" duration {"+" Duration}] - ["[0]" month {"+" Month}] - ["[0]" day {"+" Day}]] + ["[0]" time (.only Time) + ["[0]" instant (.only Instant)] + ["[0]" date (.only Date)] + ["[0]" duration (.only Duration)] + ["[0]" month (.only Month)] + ["[0]" day (.only Day)]] [type - [refinement {"+" Refiner Refined}]]]]) + [refinement (.only Refiner Refined)]]]]) (type: .public PRNG (Rec PRNG diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux index 3f6c82f27..065cd79eb 100644 --- a/stdlib/source/library/lux/meta.lux +++ b/stdlib/source/library/lux/meta.lux @@ -2,12 +2,12 @@ [library [lux {"-" type macro try} [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid order)] diff --git a/stdlib/source/library/lux/meta/configuration.lux b/stdlib/source/library/lux/meta/configuration.lux index 54bb66630..a85c15674 100644 --- a/stdlib/source/library/lux/meta/configuration.lux +++ b/stdlib/source/library/lux/meta/configuration.lux @@ -3,14 +3,14 @@ [lux {"-" for} ["[0]" meta] [abstract - [equivalence {"+" Equivalence}] - [monoid {"+" Monoid}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [monoid (.only Monoid)] + [monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}] + ["<[0]>" text (.only Parser)] ["<[0]>" code]]] [data ["[0]" text ("[1]#[0]" equivalence) @@ -20,10 +20,10 @@ [dictionary ["/" plist]]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex}]]]]) + [number (.only hex)]]]]) (type: .public Configuration (/.PList Text)) diff --git a/stdlib/source/library/lux/meta/location.lux b/stdlib/source/library/lux/meta/location.lux index 13bb059d3..8f1b56e69 100644 --- a/stdlib/source/library/lux/meta/location.lux +++ b/stdlib/source/library/lux/meta/location.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]]]]) + [equivalence (.only Equivalence)]]]]) (implementation: .public equivalence (Equivalence Location) diff --git a/stdlib/source/library/lux/meta/symbol.lux b/stdlib/source/library/lux/meta/symbol.lux index 15e96c352..d4a133217 100644 --- a/stdlib/source/library/lux/meta/symbol.lux +++ b/stdlib/source/library/lux/meta/symbol.lux @@ -2,10 +2,10 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [order {"+" Order}] - [codec {"+" Codec}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [order (.only Order)] + [codec (.only Codec)]] [data ["[0]" text ("[1]#[0]" equivalence monoid)] ["[0]" product]]]]) diff --git a/stdlib/source/library/lux/meta/version.lux b/stdlib/source/library/lux/meta/version.lux index b2a9f8784..bd34c1f06 100644 --- a/stdlib/source/library/lux/meta/version.lux +++ b/stdlib/source/library/lux/meta/version.lux @@ -3,9 +3,9 @@ [lux {"-" for} ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ["<[0]>" code]]] [data @@ -13,11 +13,11 @@ [collection ["[0]" list ("[1]#[0]" mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [tool [compiler - [version {"+" Version}]]]]]) + [version (.only Version)]]]]]) (def: .public latest Version diff --git a/stdlib/source/library/lux/program.lux b/stdlib/source/library/lux/program.lux index c4a3b34a4..3f88d5de3 100644 --- a/stdlib/source/library/lux/program.lux +++ b/stdlib/source/library/lux/program.lux @@ -3,7 +3,7 @@ [lux "*" ["@" target] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" io] [concurrency @@ -11,8 +11,8 @@ ["<>" parser ["<[0]>" code] ["<[0]>" cli]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]]]]) (type: Arguments diff --git a/stdlib/source/library/lux/static.lux b/stdlib/source/library/lux/static.lux index 3f1e535ad..dd49631a8 100644 --- a/stdlib/source/library/lux/static.lux +++ b/stdlib/source/library/lux/static.lux @@ -3,7 +3,7 @@ [lux {"-" nat int rev if cond} ["[0]" meta ("[1]#[0]" functor)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["<>" parser ["<[0]>" code]]] @@ -11,11 +11,11 @@ [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex}] - ["[0]" random {"+" Random}]]]]) + [number (.only hex)] + ["[0]" random (.only Random)]]]]) (template [<name> <type> <format>] [(syntax: .public (<name> [expression <code>.any]) diff --git a/stdlib/source/library/lux/target/common_lisp.lux b/stdlib/source/library/lux/target/common_lisp.lux index d410458f4..ba06dc2fc 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -5,7 +5,7 @@ ["[0]" pipe]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monad monoid)]]] [macro diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index 45d84ba99..8bb3c766b 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -5,7 +5,7 @@ ["[0]" pipe]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro diff --git a/stdlib/source/library/lux/target/jvm.lux b/stdlib/source/library/lux/target/jvm.lux index 6233c158e..f97654aa9 100644 --- a/stdlib/source/library/lux/target/jvm.lux +++ b/stdlib/source/library/lux/target/jvm.lux @@ -1,13 +1,13 @@ (.using - [library - [lux {"-" Type Primitive Label} - [data - [collection - [sequence {"+" Sequence}]]] - [target - [jvm - [type {"+" Type} - ["[0]" category {"+" Primitive Class Value Method}]]]]]]) + [library + [lux {"-" Type Primitive Label} + [data + [collection + [sequence (.only Sequence)]]] + [target + [jvm + [type (.only Type) + ["[0]" category (.only Primitive Class Value Method)]]]]]]) (type: .public Literal (Variant diff --git a/stdlib/source/library/lux/target/jvm/attribute.lux b/stdlib/source/library/lux/target/jvm/attribute.lux index c59e77236..99b139fb9 100644 --- a/stdlib/source/library/lux/target/jvm/attribute.lux +++ b/stdlib/source/library/lux/target/jvm/attribute.lux @@ -2,31 +2,31 @@ [library [lux {"-" Info Code Type} [abstract - [monad {"+" do}] - ["[0]" equivalence {"+" Equivalence}]] + [monad (.only do)] + ["[0]" equivalence (.only Equivalence)]] [control ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" sum] ["[0]" product] [format - ["[0]F" binary {"+" Writer}]]] + ["[0]F" binary (.only Writer)]]] [macro ["^" pattern]] [math [number ["n" nat]]]]] ["[0]" // "_" - ["[1][0]" index {"+" Index}] - ["[1][0]" type {"+" Type} - ["[2][0]" signature {"+" Signature}]] + ["[1][0]" index (.only Index)] + ["[1][0]" type (.only Type) + ["[2][0]" signature (.only Signature)]] [encoding - ["[1][0]" unsigned {"+" U2 U4}]] - ["[1][0]" constant {"+" UTF8 Class Value} - ["[2][0]" pool {"+" Pool Resource} ("[1]#[0]" monad)]]] + ["[1][0]" unsigned (.only U2 U4)]] + ["[1][0]" constant (.only UTF8 Class Value) + ["[2][0]" pool (.only Pool Resource) ("[1]#[0]" monad)]]] ["[0]" / "_" - ["[1][0]" constant {"+" Constant}] + ["[1][0]" constant (.only Constant)] ["[1][0]" code]]) (type: .public (Info about) diff --git a/stdlib/source/library/lux/target/jvm/attribute/code.lux b/stdlib/source/library/lux/target/jvm/attribute/code.lux index 5d2ed4879..dc03412d7 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code.lux @@ -2,25 +2,25 @@ [library [lux {"-" Code} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" product] - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] [format - ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] [collection - ["[0]" sequence {"+" Sequence} ("[1]#[0]" functor mix)]]] + ["[0]" sequence (.only Sequence) ("[1]#[0]" functor mix)]]] [math [number ["n" nat]]]]] ["[0]" /// "_" [bytecode [environment - ["[1][0]" limit {"+" Limit}]]] + ["[1][0]" limit (.only Limit)]]] [encoding - ["[1][0]" unsigned {"+" U2}]]] + ["[1][0]" unsigned (.only U2)]]] ["[0]" / "_" - ["[1][0]" exception {"+" Exception}]]) + ["[1][0]" exception (.only Exception)]]) (type: .public (Code Attribute) (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux b/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux index 649049e0b..2f56e40be 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" product] ["[0]" format "_" - ["[1]" binary {"+" Writer}]]] + ["[1]" binary (.only Writer)]]] [math [number ["n" nat]]]]] ["[0]" // "_" ["//[1]" /// "_" - [constant {"+" Class}] - ["[1][0]" index {"+" Index}] + [constant (.only Class)] + ["[1][0]" index (.only Index)] [bytecode - ["[1][0]" address {"+" Address}]] + ["[1][0]" address (.only Address)]] [encoding - ["[1][0]" unsigned {"+" U2}]]]]) + ["[1][0]" unsigned (.only U2)]]]]) (type: .public Exception (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/constant.lux b/stdlib/source/library/lux/target/jvm/attribute/constant.lux index ae7788385..b4ba21594 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/constant.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/constant.lux @@ -1,16 +1,16 @@ (.using - [library - [lux "*" - [abstract - [equivalence {"+" Equivalence}]] - [data - [format - [binary {"+" Writer}]]]]] - ["[0]" /// "_" - [constant {"+" Value}] - ["[1][0]" index {"+" Index}] - [encoding - ["[1][0]" unsigned {"+" U2 U4}]]]) + [library + [lux "*" + [abstract + [equivalence (.only Equivalence)]] + [data + [format + [binary (.only Writer)]]]]] + ["[0]" /// "_" + [constant (.only Value)] + ["[1][0]" index (.only Index)] + [encoding + ["[1][0]" unsigned (.only U2 U4)]]]) (type: .public (Constant a) (Index (Value a))) diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux index d6de25632..0202791f1 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -1,25 +1,25 @@ (.using [library [lux {"-" Type Label int try} - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [monoid {"+" Monoid}] - [functor {"+" Functor}] - ["[0]" monad {"+" Monad do}]] + [monoid (.only Monoid)] + [functor (.only Functor)] + ["[0]" monad (.only Monad do)]] [control - ["[0]" writer {"+" Writer}] - ["[0]" state {"+" +State}] + ["[0]" writer (.only Writer)] + ["[0]" state (.only +State)] ["[0]" maybe] - ["[0]" try {"+" Try} ("[1]#[0]" monad)] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" sequence {"+" Sequence}]]] + ["[0]" dictionary (.only Dictionary)] + ["[0]" sequence (.only Sequence)]]] [macro ["^" pattern] ["[0]" template]] @@ -27,28 +27,28 @@ [number ["n" nat] ["i" int] - ["[0]" i32 {"+" I32}]]]]] + ["[0]" i32 (.only I32)]]]]] ["[0]" / "_" - ["[1][0]" address {"+" Address}] - ["[1][0]" jump {"+" Jump Big_Jump}] - ["_" instruction {"+" Primitive_Array_Type Instruction Estimator} ("[1]#[0]" monoid)] - ["[1][0]" environment {"+" Environment} + ["[1][0]" address (.only Address)] + ["[1][0]" jump (.only Jump Big_Jump)] + ["_" instruction (.only Primitive_Array_Type Instruction Estimator) ("[1]#[0]" monoid)] + ["[1][0]" environment (.only Environment) [limit - ["/[0]" registry {"+" Register Registry}] - ["/[0]" stack {"+" Stack}]]] + ["/[0]" registry (.only Register Registry)] + ["/[0]" stack (.only Stack)]]] ["/[1]" // "_" - ["[1][0]" index {"+" Index}] + ["[1][0]" index (.only Index)] [encoding ["[1][0]" name] - ["[1][0]" unsigned {"+" U1 U2}] - ["[1][0]" signed {"+" S1 S2 S4}]] - ["[1][0]" constant {"+" UTF8} - ["[1]/[0]" pool {"+" Pool Resource}]] + ["[1][0]" unsigned (.only U1 U2)] + ["[1][0]" signed (.only S1 S2 S4)]] + ["[1][0]" constant (.only UTF8) + ["[1]/[0]" pool (.only Pool Resource)]] [attribute [code - ["[1][0]" exception {"+" Exception}]]] - ["[0]" type {"+" Type} - [category {"+" Class Object Value' Value Return' Return Method}] + ["[1][0]" exception (.only Exception)]]] + ["[0]" type (.only Type) + [category (.only Class Object Value' Value Return' Return Method)] ["[0]" reflection] ["[0]" parser]]]]) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/address.lux b/stdlib/source/library/lux/target/jvm/bytecode/address.lux index 7edce6747..812434af4 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/address.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/address.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [monad (.only do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data [format - [binary {"+" Writer}]] + [binary (.only Writer)]] [text - ["%" format {"+" Format}]]] + ["%" format (.only Format)]]] [math [number ["n" nat]]] [type [primitive "*"]]]] ["[0]" // "_" - [jump {"+" Big_Jump}] + [jump (.only Big_Jump)] ["/[1]" // "_" [encoding - ["[1][0]" unsigned {"+" U2}] - ["[1][0]" signed {"+" S4}]]]]) + ["[1][0]" unsigned (.only U2)] + ["[1][0]" signed (.only S4)]]]]) (primitive: .public Address U2 diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux index 2f99d83c0..9c0e91224 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux @@ -2,20 +2,20 @@ [library [lux {"-" Type static has} [abstract - [monad {"+" do}] - [monoid {"+" Monoid}]] + [monad (.only do)] + [monoid (.only Monoid)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]]]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]]]] [/ - ["/[0]" limit {"+" Limit} - ["/[0]" stack {"+" Stack}] - ["/[0]" registry {"+" Registry}]] + ["/[0]" limit (.only Limit) + ["/[0]" stack (.only Stack)] + ["/[0]" registry (.only Registry)]] [/// [encoding - [unsigned {"+" U2}]] - [type {"+" Type} - [category {"+" Method}]]]]) + [unsigned (.only U2)]] + [type (.only Type) + [category (.only Method)]]]]) (type: .public Environment (Record 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 eb98b1262..531ca3ba7 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux @@ -2,23 +2,23 @@ [library [lux {"-" Type static} [abstract - [monad {"+" do}] - [equivalence {"+" Equivalence}]] + [monad (.only do)] + [equivalence (.only Equivalence)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" product] ["[0]" format "_" - ["[1]" binary {"+" Writer} ("[1]#[0]" monoid)]]] + ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]]] [math [number ["n" nat]]]]] ["[0]" / "_" - ["[1][0]" stack {"+" Stack}] - ["[1][0]" registry {"+" Registry}] + ["[1][0]" stack (.only Stack)] + ["[1][0]" registry (.only Registry)] [//// - [type {"+" Type} - [category {"+" Method}]]]]) + [type (.only Type) + [category (.only Method)]]]]) (type: .public Limit (Record 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 334a2cb15..a9c265bab 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 @@ -2,12 +2,12 @@ [library [lux {"-" Type for static has} [abstract - ["[0]" equivalence {"+" Equivalence}]] + ["[0]" equivalence (.only Equivalence)]] [control - ["[0]" try {"+" Try} ("[1]#[0]" functor)]] + ["[0]" try (.only Try) ("[1]#[0]" functor)]] [data [format - [binary {"+" Writer}]] + [binary (.only Writer)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [math @@ -17,9 +17,9 @@ [primitive "*"]]]] ["[0]" ///// "_" [encoding - ["[1][0]" unsigned {"+" U1 U2}]] - ["[1][0]" type {"+" Type} - [category {"+" Method}] + ["[1][0]" unsigned (.only U1 U2)]] + ["[1][0]" type (.only Type) + [category (.only Method)] ["[1]/[0]" parser]]]) (type: .public Register diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux index 414a74ddd..cbc4cc941 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit/stack.lux @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["[0]" equivalence {"+" Equivalence}]] + ["[0]" equivalence (.only Equivalence)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data [text - ["%" format {"+" Format}]] + ["%" format (.only Format)]] [format - [binary {"+" Writer}]]] + [binary (.only Writer)]]] [type [primitive "*"]]]] ["[0]" ///// "_" [encoding - ["[1][0]" unsigned {"+" U2}]]]) + ["[1][0]" unsigned (.only U2)]]]) (primitive: .public Stack U2 diff --git a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux index 90569a287..3aacb4021 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux @@ -1,43 +1,43 @@ (.using [library [lux "*" - [ffi {"+"}] + [ffi (.only)] [abstract - [monad {"+" do}] - [monoid {"+" Monoid}]] + [monad (.only do)] + [monoid (.only Monoid)]] [control ["[0]" function] ["[0]" try]] [data ["[0]" product] ["[0]" binary "_" - [/ {"+"}] + [/ (.only)] ["[1]" \\unsafe]] ["[0]" format "_" - ["[1]" binary {"+" Mutation Specification}]] + ["[1]" binary (.only Mutation Specification)]] [collection ["[0]" list]]] [macro ["[0]" template]] [math - [number {"+" hex} + [number (.only hex) ["n" nat]]] [type [primitive "*"]]]] ["[0]" // "_" - ["[1][0]" address {"+" Address}] - ["[1][0]" jump {"+" Jump Big_Jump}] + ["[1][0]" address (.only Address)] + ["[1][0]" jump (.only Jump Big_Jump)] [environment [limit - [registry {"+" Register}]]] + [registry (.only Register)]]] ["/[1]" // "_" - ["[1][0]" index {"+" Index}] - ["[1][0]" constant {"+" Class Reference}] + ["[1][0]" index (.only Index)] + ["[1][0]" constant (.only Class Reference)] [encoding - ["[1][0]" unsigned {"+" U1 U2 U4}] - ["[1][0]" signed {"+" S1 S2 S4}]] + ["[1][0]" unsigned (.only U1 U2 U4)] + ["[1][0]" signed (.only S1 S2 S4)]] [type - [category {"+" Value Method}]]]]) + [category (.only Value Method)]]]]) (type: .public Size U2) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux index a9ddc510b..4d3100069 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux @@ -1,14 +1,14 @@ (.using - [library - [lux "*" - [abstract - [equivalence {"+" Equivalence}]] - [data - ["[0]" format "_" - ["[1]" binary {"+" Writer}]]]]] - ["[0]" /// "_" - [encoding - ["[1][0]" signed {"+" S2 S4}]]]) + [library + [lux "*" + [abstract + [equivalence (.only Equivalence)]] + [data + ["[0]" format "_" + ["[1]" binary (.only Writer)]]]]] + ["[0]" /// "_" + [encoding + ["[1][0]" signed (.only S2 S4)]]]) (type: .public Jump S2) diff --git a/stdlib/source/library/lux/target/jvm/class.lux b/stdlib/source/library/lux/target/jvm/class.lux index cd459643a..7a8824173 100644 --- a/stdlib/source/library/lux/target/jvm/class.lux +++ b/stdlib/source/library/lux/target/jvm/class.lux @@ -2,33 +2,33 @@ [library [lux {"-" Type public private} [abstract - [equivalence {"+" Equivalence}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + ["[0]" monad (.only do)]] [control ["[0]" state] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data ["[0]" product] [format - ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] [collection - ["[0]" sequence {"+" Sequence}]]]]] + ["[0]" sequence (.only Sequence)]]]]] ["[0]" // "_" - ["[1][0]" modifier {"+" Modifier modifiers:}] - ["[1][0]" version {"+" Version Minor Major}] - ["[1][0]" magic {"+" Magic}] - ["[1][0]" index {"+" Index}] - ["[1][0]" attribute {"+" Attribute}] - ["[1][0]" field {"+" Field}] - ["[1][0]" method {"+" Method}] + ["[1][0]" modifier (.only Modifier modifiers:)] + ["[1][0]" version (.only Version Minor Major)] + ["[1][0]" magic (.only Magic)] + ["[1][0]" index (.only Index)] + ["[1][0]" attribute (.only Attribute)] + ["[1][0]" field (.only Field)] + ["[1][0]" method (.only Method)] [encoding ["[1][0]" unsigned] - ["[1][0]" name {"+" Internal}]] - ["[1][0]" type {"+" Type} - [category {"+" Inheritance}] - ["[2][0]" signature {"+" Signature}]] - ["[1][0]" constant {"+" Constant} - ["[2][0]" pool {"+" Pool Resource}]]]) + ["[1][0]" name (.only Internal)]] + ["[1][0]" type (.only Type) + [category (.only Inheritance)] + ["[2][0]" signature (.only Signature)]] + ["[1][0]" constant (.only Constant) + ["[2][0]" pool (.only Pool Resource)]]]) (type: .public Class (Rec Class diff --git a/stdlib/source/library/lux/target/jvm/constant.lux b/stdlib/source/library/lux/target/jvm/constant.lux index b0dfc7cda..25f9cd782 100644 --- a/stdlib/source/library/lux/target/jvm/constant.lux +++ b/stdlib/source/library/lux/target/jvm/constant.lux @@ -2,22 +2,22 @@ [library [lux "*" ["@" target] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [monad {"+" do}] - ["[0]" equivalence {"+" Equivalence}]] + [monad (.only do)] + ["[0]" equivalence (.only Equivalence)]] [data ["[0]" sum] ["[0]" product] ["[0]" text] [format - ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]]] + ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]]] [macro ["^" pattern] ["[0]" template]] [math [number - ["[0]" i32 {"+" I32}] + ["[0]" i32 (.only I32)] ["[0]" i64] ["[0]" int] ["[0]" frac]]] @@ -26,10 +26,10 @@ ["[0]" / "_" ["[1][0]" tag] ["/[1]" // "_" - ["[1][0]" index {"+" Index}] + ["[1][0]" index (.only Index)] [type ["[1][0]" category] - ["[1][0]" descriptor {"+" Descriptor}]] + ["[1][0]" descriptor (.only Descriptor)]] [encoding ["[1][0]" unsigned]]]]) diff --git a/stdlib/source/library/lux/target/jvm/constant/pool.lux b/stdlib/source/library/lux/target/jvm/constant/pool.lux index 936cfe3c4..8c41dbf17 100644 --- a/stdlib/source/library/lux/target/jvm/constant/pool.lux +++ b/stdlib/source/library/lux/target/jvm/constant/pool.lux @@ -3,34 +3,34 @@ [lux "*" ["[0]" ffi] [abstract - [equivalence {"+" Equivalence}] - [functor {"+" Functor}] - [monad {"+" Monad do}]] + [equivalence (.only Equivalence)] + [functor (.only Functor)] + [monad (.only Monad do)]] [control ["[0]" pipe] - ["[0]" state {"+" +State}] - ["[0]" try {"+" Try}]] + ["[0]" state (.only +State)] + ["[0]" try (.only Try)]] [data ["[0]" product] ["[0]" text] ["[0]" format "_" - ["[1]" binary {"+" Writer} ("specification#[0]" monoid)]] + ["[1]" binary (.only Writer) ("specification#[0]" monoid)]] [collection - ["[0]" sequence {"+" Sequence} ("[1]#[0]" mix)]]] + ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)]]] [math [number ["[0]" int] ["[0]" frac] ["[0]" i32]]]]] - ["[0]" // {"+" UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference} + ["[0]" // (.only UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference) [// - ["[1][0]" index {"+" Index}] + ["[1][0]" index (.only Index)] [encoding - ["[1][0]" name {"+" Internal External}] + ["[1][0]" name (.only Internal External)] ["[1][0]" unsigned]] [type - [category {"+" Value Method}] - ["[1][0]" descriptor {"+" Descriptor}]]]]) + [category (.only Value Method)] + ["[1][0]" descriptor (.only Descriptor)]]]]) (type: .public Pool [Index (Sequence [Index Constant])]) diff --git a/stdlib/source/library/lux/target/jvm/constant/tag.lux b/stdlib/source/library/lux/target/jvm/constant/tag.lux index 440dbc581..9b15c3401 100644 --- a/stdlib/source/library/lux/target/jvm/constant/tag.lux +++ b/stdlib/source/library/lux/target/jvm/constant/tag.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" try]] [data [format - [binary {"+" Writer}]]] + [binary (.only Writer)]]] [type [primitive "*"]]]] ["[0]" /// "_" [encoding - ["[1][0]" unsigned {"+" U1} ("u1//[0]" equivalence)]]]) + ["[1][0]" unsigned (.only U1) ("u1//[0]" equivalence)]]]) (primitive: .public Tag U1 diff --git a/stdlib/source/library/lux/target/jvm/encoding/name.lux b/stdlib/source/library/lux/target/jvm/encoding/name.lux index 1479e35dd..029758c23 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/name.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/name.lux @@ -3,7 +3,7 @@ [lux "*" [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/target/jvm/encoding/signed.lux b/stdlib/source/library/lux/target/jvm/encoding/signed.lux index be0f564e3..52b536100 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/signed.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/signed.lux @@ -2,16 +2,16 @@ [library [lux {"-" int} [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}]] + [equivalence (.only Equivalence)] + [order (.only Order)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] ["[0]" format "_" - ["[1]" binary {"+" Writer}]]] + ["[1]" binary (.only Writer)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux index 66506f3b0..47d7a95c4 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux @@ -2,16 +2,16 @@ [library [lux {"-" nat} [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}]] + [equivalence (.only Equivalence)] + [order (.only Order)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] ["[0]" format "_" - ["[1]" binary {"+" Writer}]]] + ["[1]" binary (.only Writer)]]] [macro ["[0]" template]] [math diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux index d97951fbf..27af1d6c3 100644 --- a/stdlib/source/library/lux/target/jvm/field.lux +++ b/stdlib/source/library/lux/target/jvm/field.lux @@ -2,23 +2,23 @@ [library [lux {"-" Type static public private} [abstract - [equivalence {"+" Equivalence}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + ["[0]" monad (.only do)]] [data ["[0]" product] [format - ["[0]F" binary {"+" Writer} ("[1]#[0]" monoid)]] + ["[0]F" binary (.only Writer) ("[1]#[0]" monoid)]] [collection - ["[0]" sequence {"+" Sequence}]]]]] + ["[0]" sequence (.only Sequence)]]]]] ["[0]" // "_" - ["[0]" modifier {"+" Modifier modifiers:}] - ["[1][0]" constant {"+" UTF8} - ["[1]/[0]" pool {"+" Pool Resource}]] - ["[1][0]" index {"+" Index}] - ["[1][0]" attribute {"+" Attribute}] - ["[1][0]" type {"+" Type} - [category {"+" Value}] - [descriptor {"+" Descriptor}]]]) + ["[0]" modifier (.only Modifier modifiers:)] + ["[1][0]" constant (.only UTF8) + ["[1]/[0]" pool (.only Pool Resource)]] + ["[1][0]" index (.only Index)] + ["[1][0]" attribute (.only Attribute)] + ["[1][0]" type (.only Type) + [category (.only Value)] + [descriptor (.only Descriptor)]]]) (type: .public Field (Rec Field diff --git a/stdlib/source/library/lux/target/jvm/index.lux b/stdlib/source/library/lux/target/jvm/index.lux index 42c0e4c15..ea295478a 100644 --- a/stdlib/source/library/lux/target/jvm/index.lux +++ b/stdlib/source/library/lux/target/jvm/index.lux @@ -2,15 +2,15 @@ [library [lux "*" [abstract - ["[0]" equivalence {"+" Equivalence}]] + ["[0]" equivalence (.only Equivalence)]] [data [format - [binary {"+" Writer}]]] + [binary (.only Writer)]]] [type [primitive "*"]]]] ["[0]" // "_" [encoding - ["[1][0]" unsigned {"+" U2}]]]) + ["[1][0]" unsigned (.only U2)]]]) (def: .public length //unsigned.bytes/2) diff --git a/stdlib/source/library/lux/target/jvm/loader.lux b/stdlib/source/library/lux/target/jvm/loader.lux index 443f07227..7e5d090e7 100644 --- a/stdlib/source/library/lux/target/jvm/loader.lux +++ b/stdlib/source/library/lux/target/jvm/loader.lux @@ -2,22 +2,22 @@ [library [lux "*" ["@" target] - ["[0]" ffi {"+" import: object do_to}] + ["[0]" ffi (.only import: object do_to)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO)] [concurrency - ["[0]" atom {"+" Atom}]]] + ["[0]" atom (.only Atom)]]] [data - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" dictionary {"+" Dictionary}]]]]]) + ["[0]" dictionary (.only Dictionary)]]]]]) (type: .public Library (Atom (Dictionary Text Binary))) diff --git a/stdlib/source/library/lux/target/jvm/magic.lux b/stdlib/source/library/lux/target/jvm/magic.lux index 3b2ed2e89..756104ae4 100644 --- a/stdlib/source/library/lux/target/jvm/magic.lux +++ b/stdlib/source/library/lux/target/jvm/magic.lux @@ -1,13 +1,13 @@ (.using - [library - [lux "*" - [control - ["[0]" try]] - [math - [number {"+" hex}]]]] - ["[0]" // "_" - [encoding - ["[1][0]" unsigned {"+" U4}]]]) + [library + [lux "*" + [control + ["[0]" try]] + [math + [number (.only hex)]]]] + ["[0]" // "_" + [encoding + ["[1][0]" unsigned (.only U4)]]]) (type: .public Magic U4) diff --git a/stdlib/source/library/lux/target/jvm/method.lux b/stdlib/source/library/lux/target/jvm/method.lux index 193bb4db8..54485d75b 100644 --- a/stdlib/source/library/lux/target/jvm/method.lux +++ b/stdlib/source/library/lux/target/jvm/method.lux @@ -2,30 +2,30 @@ [library [lux {"-" Type static public private} [abstract - [equivalence {"+" Equivalence}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + ["[0]" monad (.only do)]] [control ["[0]" try]] [data ["[0]" product] ["[0]" format "_" - ["[1]" binary {"+" Writer} ("[1]#[0]" monoid)]] + ["[1]" binary (.only Writer) ("[1]#[0]" monoid)]] [collection - ["[0]" sequence {"+" Sequence}]]]]] + ["[0]" sequence (.only Sequence)]]]]] ["[0]" // "_" - ["[1][0]" modifier {"+" Modifier modifiers:}] - ["[1][0]" index {"+" Index}] - ["[1][0]" attribute {"+" Attribute} + ["[1][0]" modifier (.only Modifier modifiers:)] + ["[1][0]" index (.only Index)] + ["[1][0]" attribute (.only Attribute) ["[2][0]" code]] - ["[1][0]" constant {"+" UTF8} - ["[2][0]" pool {"+" Pool Resource}]] - ["[1][0]" bytecode {"+" Bytecode} - ["[2][0]" environment {"+" Environment}] + ["[1][0]" constant (.only UTF8) + ["[2][0]" pool (.only Pool Resource)]] + ["[1][0]" bytecode (.only Bytecode) + ["[2][0]" environment (.only Environment)] ["[2][0]" instruction]] - ["[1][0]" type {"+" Type} - [descriptor {"+" Descriptor}] + ["[1][0]" type (.only Type) + [descriptor (.only Descriptor)] ["[2][0]" category] - ["[2][0]" signature {"+" Signature}]]]) + ["[2][0]" signature (.only Signature)]]]) (type: .public Method (Rec Method diff --git a/stdlib/source/library/lux/target/jvm/modifier.lux b/stdlib/source/library/lux/target/jvm/modifier.lux index d573f0aeb..825abf133 100644 --- a/stdlib/source/library/lux/target/jvm/modifier.lux +++ b/stdlib/source/library/lux/target/jvm/modifier.lux @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["[0]" equivalence {"+" Equivalence}] - ["[0]" monoid {"+" Monoid}]] + ["[0]" equivalence (.only Equivalence)] + ["[0]" monoid (.only Monoid)]] [control ["[0]" try] ["<>" parser ["<[0]>" code]]] [data [format - ["[0]F" binary {"+" Writer}]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + ["[0]F" binary (.only Writer)]]] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["[0]" code]] [math - ["[0]" number {"+" hex} + ["[0]" number (.only hex) ["[0]" i64]]] [type [primitive "*"]]]] diff --git a/stdlib/source/library/lux/target/jvm/modifier/inner.lux b/stdlib/source/library/lux/target/jvm/modifier/inner.lux index d088a227f..d119e9a69 100644 --- a/stdlib/source/library/lux/target/jvm/modifier/inner.lux +++ b/stdlib/source/library/lux/target/jvm/modifier/inner.lux @@ -1,9 +1,9 @@ (.using - [library - [lux {"-" static} - [type - abstract]]] - [// {"+" modifiers:}]) + [library + [lux {"-" static} + [type + abstract]]] + [// (.only modifiers:)]) (abstract: .public Inner Any) diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 4fe60fd37..ba7b9f278 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -1,18 +1,18 @@ (.using [library [lux {"-" Primitive type parameter} - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] ["[0]" type] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try} ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" exception (.only exception:)] [parser ["<t>" text]]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix functor)] ["[0]" array] @@ -24,10 +24,10 @@ ["n" nat]]]]] ["[0]" // "_" [encoding - ["[1][0]" name {"+" External}]] + ["[1][0]" name (.only External)]] ["/" type - [category {"+" Void Value Return Method Primitive Object Class Array Parameter}] - ["[1][0]" lux {"+" Mapping}] + [category (.only Void Value Return Method Primitive Object Class Array Parameter)] + ["[1][0]" lux (.only Mapping)] ["[1][0]" descriptor] ["[1][0]" reflection] ["[1][0]" parser]]]) diff --git a/stdlib/source/library/lux/target/jvm/type.lux b/stdlib/source/library/lux/target/jvm/type.lux index c2f40a5a5..df4d64dac 100644 --- a/stdlib/source/library/lux/target/jvm/type.lux +++ b/stdlib/source/library/lux/target/jvm/type.lux @@ -2,13 +2,13 @@ [library [lux {"-" Primitive Type int char} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" maybe]] [data ["[0]" text - ["%" format {"+" Format}]] + ["%" format (.only Format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [math @@ -18,12 +18,12 @@ [primitive "*"]]]] ["[0]" // "_" [encoding - ["[1][0]" name {"+" External}]]] + ["[1][0]" name (.only External)]]] ["[0]" / "_" - [category {"+" Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration}] - ["[1][0]" signature {"+" Signature}] - ["[1][0]" descriptor {"+" Descriptor}] - ["[1][0]" reflection {"+" Reflection}]]) + [category (.only Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration)] + ["[1][0]" signature (.only Signature)] + ["[1][0]" descriptor (.only Descriptor)] + ["[1][0]" reflection (.only Reflection)]]) (primitive: .public (Type category) [(Signature category) diff --git a/stdlib/source/library/lux/target/jvm/type/alias.lux b/stdlib/source/library/lux/target/jvm/type/alias.lux index 39f8aba69..919b90a8e 100644 --- a/stdlib/source/library/lux/target/jvm/type/alias.lux +++ b/stdlib/source/library/lux/target/jvm/type/alias.lux @@ -2,22 +2,22 @@ [library [lux {"-" Type Primitive int char type parameter} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" dictionary {"+" Dictionary}]]]]] - ["[0]" // {"+" Type} - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter}] + ["[0]" dictionary (.only Dictionary)]]]]] + ["[0]" // (.only Type) + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter)] ["[1][0]" descriptor] - ["[1][0]" signature {"+" Signature}] + ["[1][0]" signature (.only Signature)] ["[1][0]" reflection] ["[1][0]" parser] ["/[1]" // "_" diff --git a/stdlib/source/library/lux/target/jvm/type/box.lux b/stdlib/source/library/lux/target/jvm/type/box.lux index e355328d2..2350485bf 100644 --- a/stdlib/source/library/lux/target/jvm/type/box.lux +++ b/stdlib/source/library/lux/target/jvm/type/box.lux @@ -1,9 +1,9 @@ (.using - [library - [lux {"-" int char}]] - [/// - [encoding - [name {"+" External}]]]) + [library + [lux {"-" int char}]] + [/// + [encoding + [name (.only External)]]]) (template [<name> <box>] [(def: .public <name> External <box>)] diff --git a/stdlib/source/library/lux/target/jvm/type/descriptor.lux b/stdlib/source/library/lux/target/jvm/type/descriptor.lux index a58c9098f..7f1c9e397 100644 --- a/stdlib/source/library/lux/target/jvm/type/descriptor.lux +++ b/stdlib/source/library/lux/target/jvm/type/descriptor.lux @@ -2,12 +2,12 @@ [library [lux {"-" Primitive int char} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [math @@ -16,10 +16,10 @@ [type [primitive "*"]]]] ["[0]" // "_" - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter Declaration}] + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter Declaration)] ["/[1]" // "_" [encoding - ["[1][0]" name {"+" Internal External}]]]]) + ["[1][0]" name (.only Internal External)]]]]) (primitive: .public (Descriptor category) Text diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index 8fa73b5f9..36ddab7d0 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -2,24 +2,24 @@ [library [lux {"-" Primitive int char type parameter} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [type [primitive "*"] - ["[0]" check {"+" Check} ("[1]#[0]" monad)]]]] + ["[0]" check (.only Check) ("[1]#[0]" monad)]]]] ["[0]" // - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter}] + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter)] ["[1][0]" descriptor] ["[1][0]" signature] ["[1][0]" reflection] diff --git a/stdlib/source/library/lux/target/jvm/type/parser.lux b/stdlib/source/library/lux/target/jvm/type/parser.lux index e7c2a2c70..04b66b360 100644 --- a/stdlib/source/library/lux/target/jvm/type/parser.lux +++ b/stdlib/source/library/lux/target/jvm/type/parser.lux @@ -2,25 +2,25 @@ [library [lux {"-" Type Primitive int char parameter} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" try] ["[0]" function] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list]]]]] - ["[0]" // {"+" Type} - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter Declaration}] + ["[0]" // (.only Type) + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter Declaration)] ["[1][0]" signature] ["[1][0]" descriptor] ["[0]" // "_" [encoding - ["[1][0]" name {"+" External}]]]]) + ["[1][0]" name (.only External)]]]]) (template [<category> <name> <signature> <type>] [(def: .public <name> diff --git a/stdlib/source/library/lux/target/jvm/type/reflection.lux b/stdlib/source/library/lux/target/jvm/type/reflection.lux index 7e7ad7a1a..2ab921a16 100644 --- a/stdlib/source/library/lux/target/jvm/type/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/type/reflection.lux @@ -2,18 +2,18 @@ [library [lux {"-" Primitive int char} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [type [primitive "*"]]]] ["[0]" // "_" - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter Declaration}] + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter Declaration)] ["[1][0]" descriptor] [// [encoding - ["[1][0]" name {"+" External}]]]]) + ["[1][0]" name (.only External)]]]]) (primitive: .public (Reflection category) Text diff --git a/stdlib/source/library/lux/target/jvm/type/signature.lux b/stdlib/source/library/lux/target/jvm/type/signature.lux index e9dffe710..d1bc73b96 100644 --- a/stdlib/source/library/lux/target/jvm/type/signature.lux +++ b/stdlib/source/library/lux/target/jvm/type/signature.lux @@ -2,23 +2,23 @@ [library [lux {"-" Primitive int char} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" pipe]] [data ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [type [primitive "*"]]]] ["[0]" // "_" - [category {"+" Void Value Return Method Primitive Object Class Array Var Parameter Declaration Inheritance}] + [category (.only Void Value Return Method Primitive Object Class Array Var Parameter Declaration Inheritance)] ["[1][0]" descriptor] ["/[1]" // "_" [encoding - ["[1][0]" name {"+" External}]]]]) + ["[1][0]" name (.only External)]]]]) (primitive: .public (Signature category) Text diff --git a/stdlib/source/library/lux/target/jvm/version.lux b/stdlib/source/library/lux/target/jvm/version.lux index 33174b762..029c95d21 100644 --- a/stdlib/source/library/lux/target/jvm/version.lux +++ b/stdlib/source/library/lux/target/jvm/version.lux @@ -1,11 +1,11 @@ (.using - [library - [lux "*" - [control - ["[0]" try]]]] - ["[0]" // "_" - [encoding - ["[1][0]" unsigned {"+" U2}]]]) + [library + [lux "*" + [control + ["[0]" try]]]] + ["[0]" // "_" + [encoding + ["[1][0]" unsigned (.only U2)]]]) (type: .public Version U2) (type: .public Minor Version) diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux index 91fe9e4a5..821449098 100644 --- a/stdlib/source/library/lux/target/lua.lux +++ b/stdlib/source/library/lux/target/lua.lux @@ -3,8 +3,8 @@ [lux {"-" Location Code Label int if function or and not let local comment the} ["@" target] [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] + [equivalence (.only Equivalence)] + [hash (.only Hash)] ["[0]" enum]] [control ["[0]" pipe] @@ -12,11 +12,11 @@ ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux index ea33a351b..83992fc25 100644 --- a/stdlib/source/library/lux/target/php.lux +++ b/stdlib/source/library/lux/target/php.lux @@ -3,8 +3,8 @@ [lux {"-" Location Code Global Label static int if cond or and not comment for try global the parameter} ["@" target] [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] + [equivalence (.only Equivalence)] + [hash (.only Hash)] ["[0]" enum]] [control ["[0]" pipe] @@ -12,11 +12,11 @@ ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux index 10045f1ea..13eb02e42 100644 --- a/stdlib/source/library/lux/target/python.lux +++ b/stdlib/source/library/lux/target/python.lux @@ -4,8 +4,8 @@ ["@" target] ["[0]" ffi] [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] + [equivalence (.only Equivalence)] + [hash (.only Hash)] ["[0]" enum]] [control ["[0]" pipe] @@ -13,11 +13,11 @@ ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index a6a95bd38..7aba9722e 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -9,11 +9,11 @@ ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux index 3bcf32d02..d236a2823 100644 --- a/stdlib/source/library/lux/target/ruby.lux +++ b/stdlib/source/library/lux/target/ruby.lux @@ -3,8 +3,8 @@ [lux {"-" Location Code static int if function or and not comment local global symbol the} ["@" target] [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] + [equivalence (.only Equivalence)] + [hash (.only Hash)] ["[0]" enum]] [control ["[0]" pipe] @@ -12,11 +12,11 @@ ["<[0]>" code]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" template] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux index 5a174b9db..1124d12e0 100644 --- a/stdlib/source/library/lux/target/scheme.lux +++ b/stdlib/source/library/lux/target/scheme.lux @@ -3,13 +3,13 @@ [lux {"-" Code int or and if cond let symbol} ["@" target] [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" pipe]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor monoid)]]] [macro diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux index ac03309eb..3bdbc90f5 100644 --- a/stdlib/source/library/lux/test.lux +++ b/stdlib/source/library/lux/test.lux @@ -4,37 +4,37 @@ ["@" target] ["[0]" debug] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["[0]" io] [concurrency - ["[0]" atom {"+" Atom}] - ["[0]" async {"+" Async} ("[1]#[0]" monad)]] + ["[0]" atom (.only Atom)] + ["[0]" async (.only Async) ("[1]#[0]" monad)]] ["<>" parser ["<[0]>" code]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" set {"+" Set}] + ["[0]" set (.only Set)] ["[0]" dictionary "_" - ["[1]" ordered {"+" Dictionary}]]]] + ["[1]" ordered (.only Dictionary)]]]] [time ["[0]" instant] - ["[0]" duration {"+" Duration}]] + ["[0]" duration (.only Duration)]] [math - ["[0]" random {"+" Random} ("[1]#[0]" monad)] - [number {"+" hex} + ["[0]" random (.only Random) ("[1]#[0]" monad)] + [number (.only hex) ["n" nat] ["f" frac]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] ["[0]" meta ["[0]" symbol]] diff --git a/stdlib/source/library/lux/time.lux b/stdlib/source/library/lux/time.lux index cf0d64c9e..fd5056cc8 100644 --- a/stdlib/source/library/lux/time.lux +++ b/stdlib/source/library/lux/time.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}] - [monad {"+" Monad do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)] + [monad (.only Monad do)]] [control ["[0]" pipe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)]] [math @@ -21,7 +21,7 @@ [type [primitive "*"]]]] [/ - ["[0]" duration {"+" Duration}]]) + ["[0]" duration (.only Duration)]]) (template [<name> <singular> <plural>] [(def: .public <name> diff --git a/stdlib/source/library/lux/time/date.lux b/stdlib/source/library/lux/time/date.lux index fc839952e..52031a4f0 100644 --- a/stdlib/source/library/lux/time/date.lux +++ b/stdlib/source/library/lux/time/date.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)] [collection ["[0]" list ("[1]#[0]" mix)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [math [number ["n" nat ("[1]#[0]" decimal)] @@ -25,8 +25,8 @@ [type [primitive "*"]]]] ["[0]" // "_" - ["[1][0]" year {"+" Year}] - ["[1][0]" month {"+" Month}]]) + ["[1][0]" year (.only Year)] + ["[1][0]" month (.only Month)]]) (def: month_by_number (Dictionary Nat Month) diff --git a/stdlib/source/library/lux/time/day.lux b/stdlib/source/library/lux/time/day.lux index 02926f610..b08b4e324 100644 --- a/stdlib/source/library/lux/time/day.lux +++ b/stdlib/source/library/lux/time/day.lux @@ -2,14 +2,14 @@ [library [lux {"-" nat} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" monoid)]] [macro diff --git a/stdlib/source/library/lux/time/duration.lux b/stdlib/source/library/lux/time/duration.lux index 4ce7774c3..54669d1c0 100644 --- a/stdlib/source/library/lux/time/duration.lux +++ b/stdlib/source/library/lux/time/duration.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}] - [monoid {"+" Monoid}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)] + [monoid (.only Monoid)] + [monad (.only do)]] [control ["[0]" try] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)]] [math diff --git a/stdlib/source/library/lux/time/instant.lux b/stdlib/source/library/lux/time/instant.lux index 81ff18897..a8ccbd019 100644 --- a/stdlib/source/library/lux/time/instant.lux +++ b/stdlib/source/library/lux/time/instant.lux @@ -3,18 +3,18 @@ [lux "*" ["@" target] [abstract - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}] - [monad {"+" Monad do}]] + [equivalence (.only Equivalence)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)] + [monad (.only Monad do)]] [control - [io {"+" IO io}] + [io (.only IO io)] ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)]] [math @@ -23,12 +23,12 @@ ["f" frac]]] [type [primitive "*"]]]] - ["[0]" // {"+" Time} - ["[0]" duration {"+" Duration}] - ["[0]" year {"+" Year}] - ["[0]" month {"+" Month}] - ["[0]" day {"+" Day}] - ["[0]" date {"+" Date}]]) + ["[0]" // (.only Time) + ["[0]" duration (.only Duration)] + ["[0]" year (.only Year)] + ["[0]" month (.only Month)] + ["[0]" day (.only Day)] + ["[0]" date (.only Date)]]) (primitive: .public Instant Int diff --git a/stdlib/source/library/lux/time/month.lux b/stdlib/source/library/lux/time/month.lux index 351a6ecf7..fdb3e0303 100644 --- a/stdlib/source/library/lux/time/month.lux +++ b/stdlib/source/library/lux/time/month.lux @@ -2,14 +2,14 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [order {"+" Order}] - [enum {"+" Enum}] - [codec {"+" Codec}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [order (.only Order)] + [enum (.only Enum)] + [codec (.only Codec)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" monoid)]] [macro diff --git a/stdlib/source/library/lux/time/year.lux b/stdlib/source/library/lux/time/year.lux index ad60ff921..5d233956c 100644 --- a/stdlib/source/library/lux/time/year.lux +++ b/stdlib/source/library/lux/time/year.lux @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}] - [codec {"+" Codec}] - [equivalence {"+" Equivalence}] - [order {"+" Order}]] + [monad (.only do)] + [codec (.only Codec)] + [equivalence (.only Equivalence)] + [order (.only Order)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" text ("[1]#[0]" monoid)]] [math diff --git a/stdlib/source/library/lux/tool/compiler.lux b/stdlib/source/library/lux/tool/compiler.lux index 7a6df03d6..dec32a653 100644 --- a/stdlib/source/library/lux/tool/compiler.lux +++ b/stdlib/source/library/lux/tool/compiler.lux @@ -2,24 +2,24 @@ [library [lux {"-" Module Code} [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" text] ["[0]" format "_" - ["[1]" binary {"+" Writer}]]] + ["[1]" binary (.only Writer)]]] [world - ["[0]" file {"+" Path}]]]] + ["[0]" file (.only Path)]]]] [/ [meta - ["[0]" archive {"+" Output Archive} - [key {"+" Key}] + ["[0]" archive (.only Output Archive) + [key (.only Key)] [module - [descriptor {"+" Descriptor Module}] - [document {"+" Document}]]]]]) + [descriptor (.only Descriptor Module)] + [document (.only Document)]]]]]) (type: .public Code Text) diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux index 5e204f6ca..bed153bb9 100644 --- a/stdlib/source/library/lux/tool/compiler/default/init.lux +++ b/stdlib/source/library/lux/tool/compiler/default/init.lux @@ -1,54 +1,54 @@ (.using [library [lux "*" - ["@" target {"+" Target}] + ["@" target (.only Target)] ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" dictionary] ["[0]" set] ["[0]" sequence ("[1]#[0]" functor)]]] [meta - ["[0]" configuration {"+" Configuration}] + ["[0]" configuration (.only Configuration)] ["[0]" version]] [world ["[0]" file]]]] ["[0]" // "_" - ["/[1]" // {"+" Instancer} + ["/[1]" // (.only Instancer) ["[1][0]" phase] [language [lux - [program {"+" Program}] - ["[1][0]" syntax {"+" Aliases}] + [program (.only Program)] + ["[1][0]" syntax (.only Aliases)] ["[1][0]" synthesis] - ["[1][0]" directive {"+" Requirements}] + ["[1][0]" directive (.only Requirements)] ["[1][0]" generation] ["[1][0]" analysis - [macro {"+" Expander}] + [macro (.only Expander)] ["[1]/[0]" evaluation] ["[0]A" module]] [phase ["[0]P" analysis] ["[0]P" synthesis] ["[0]P" directive] - ["[0]" extension {"+" Extender} + ["[0]" extension (.only Extender) ["[0]E" analysis] ["[0]E" synthesis] [directive ["[0]D" lux]]]]]] [meta - ["[0]" archive {"+" Archive} - ["[0]" registry {"+" Registry}] + ["[0]" archive (.only Archive) + ["[0]" registry (.only Registry)] ["[0]" module ["[0]" descriptor] ["[0]" document]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index ac43de9f2..ea24d68b5 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -5,68 +5,68 @@ ["[0]" debug] ["[0]" static] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control ["[0]" function] ["[0]" maybe] - ["[0]" try {"+" Try} ("[1]#[0]" monad)] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" exception (.only exception:)] [concurrency - ["[0]" async {"+" Async Resolver} ("[1]#[0]" monad)] - ["[0]" stm {"+" Var STM}]]] + ["[0]" async (.only Async Resolver) ("[1]#[0]" monad)] + ["[0]" stm (.only Var STM)]]] [data - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] ["[0]" bit] ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" dictionary {"+" Dictionary}] - ["[0]" sequence {"+" Sequence} ("[1]#[0]" mix)] - ["[0]" set {"+" Set}] + ["[0]" dictionary (.only Dictionary)] + ["[0]" sequence (.only Sequence) ("[1]#[0]" mix)] + ["[0]" set (.only Set)] ["[0]" list ("[1]#[0]" monoid functor mix)]] [format - ["_" binary {"+" Writer}]]] + ["_" binary (.only Writer)]]] ["[0]" meta - ["[0]" configuration {"+" Configuration}]] - [type {"+" sharing} + ["[0]" configuration (.only Configuration)]] + [type (.only sharing) ["[0]" check]] [world - ["[0]" file {"+" Path}] + ["[0]" file (.only Path)] ["[0]" console]]]] ["[0]" // "_" ["[1][0]" init] ["/[1]" // - ["[1][0]" phase {"+" Phase}] + ["[1][0]" phase (.only Phase)] [language [lux - [program {"+" Program}] + [program (.only Program)] ["$" /] ["[0]" syntax] ["[1][0]" synthesis] - ["[1][0]" generation {"+" Buffer}] + ["[1][0]" generation (.only Buffer)] ["[1][0]" directive] ["[1][0]" analysis - [macro {"+" Expander}] + [macro (.only Expander)] ["[0]A" module]] [phase - ["[0]" extension {"+" Extender}]]]] + ["[0]" extension (.only Extender)]]]] [meta - [import {"+" Import}] + [import (.only Import)] ["[0]" context] ["[0]" cache ["[1]/[0]" archive] ["[1]/[0]" module] ["[1]/[0]" artifact]] - [cli {"+" Compilation Library} + [cli (.only Compilation Library) ["[0]" compiler]] - ["[0]" archive {"+" Output Archive} - [key {"+" Key}] - ["[0]" registry {"+" Registry}] + ["[0]" archive (.only Output Archive) + [key (.only Key)] + ["[0]" registry (.only Registry)] ["[0]" artifact] ["[0]" module - ["[0]" descriptor {"+" Descriptor}] - ["[0]" document {"+" Document}]]] + ["[0]" descriptor (.only Descriptor)] + ["[0]" document (.only Document)]]] ["[0]" io "_" ["_[1]" /] ["[1]" context] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux.lux index eb6cd78d7..a6737842a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux.lux @@ -3,10 +3,10 @@ [lux "*" [control ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data [format - ["_" binary {"+" Writer}]]] + ["_" binary (.only Writer)]]] [meta ["[0]" version]]]] ["[0]" / "_" @@ -16,7 +16,7 @@ [meta [archive ["[0]" signature] - ["[0]" key {"+" Key}]]]]]) + ["[0]" key (.only Key)]]]]]) ... TODO: Remove #module_hash, #imports & #module_state ASAP. ... TODO: Not just from this parser, but from the lux.Module type. 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 da220b18f..65855dc71 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux @@ -2,25 +2,25 @@ [library [lux {"-" Tuple Variant nat int rev case local} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - [monad {"+" do}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + [monad (.only do)]] [control ["[0]" function] ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" Exception}] + ["[0]" try (.only Try)] + ["[0]" exception (.only Exception)] [parser ["<[0]>" code]]] [data ["[0]" product] ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" Format}]] + ["%" format (.only Format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [macro - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [math [number ["n" nat] @@ -29,20 +29,20 @@ ["f" frac]]] [meta ["[0]" location] - ["[0]" configuration {"+" Configuration}]]]] + ["[0]" configuration (.only Configuration)]]]] ["[0]" / "_" - ["[1][0]" simple {"+" Simple}] - ["[1][0]" complex {"+" Tuple Variant Complex}] - ["[1][0]" pattern {"+" Pattern}] + ["[1][0]" simple (.only Simple)] + ["[1][0]" complex (.only Tuple Variant Complex)] + ["[1][0]" pattern (.only Pattern)] [// [phase - ["[0]" extension {"+" Extension}]] + ["[0]" extension (.only Extension)]] [/// - [arity {"+" Arity}] - ["[0]" version {"+" Version}] + [arity (.only Arity)] + ["[0]" version (.only Version)] ["[0]" phase] - ["[0]" reference {"+" Reference} - ["[0]" variable {"+" Register Variable}]]]]]) + ["[0]" reference (.only Reference) + ["[0]" variable (.only Register Variable)]]]]]) (type: .public (Branch' e) (Record 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 f4cf115d5..a45224900 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 @@ -2,12 +2,12 @@ [library [lux {"-" Tuple Variant} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text - ["%" format {"+" Format}]] + ["%" format (.only Format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [math 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 0e100dad2..d3f3ee556 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 @@ -3,19 +3,19 @@ [lux {"-" Variant} [abstract equivalence - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" monoid monad)] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text ["%" format]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" set {"+" Set} ("[1]#[0]" equivalence)]]] + ["[0]" dictionary (.only Dictionary)] + ["[0]" set (.only Set) ("[1]#[0]" equivalence)]]] [macro ["^" pattern] ["[0]" template]] @@ -28,7 +28,7 @@ ["[0]" // "_" ["[1][0]" simple] ["[1][0]" complex] - ["[1][0]" pattern {"+" Pattern}]]) + ["[1][0]" pattern (.only Pattern)]]) ... The coverage of a pattern-matching expression summarizes how well ... all the possible values of an input are being covered by the diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux index de22db2db..44349d713 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/evaluation.lux @@ -1,24 +1,24 @@ (.using [library [lux "*" - [type {"+" sharing}] + [type (.only sharing)] ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] ["[0]" try] ["[0]" io] [concurrency - ["[0]" atom {"+" Atom}]]] + ["[0]" atom (.only Atom)]]] [data [collection - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [math [number ["n" nat]]]]] - ["[0]" // {"+" Operation} - [macro {"+" Expander}] + ["[0]" // (.only Operation) + [macro (.only Expander)] ["[1][0]" type] ["[1][0]" scope] [// @@ -32,7 +32,7 @@ [/// ["[0]" phase] [meta - ["[0]" archive {"+" Archive} + ["[0]" archive (.only Archive) ["[0]" module]]]]]]]]) (type: .public Eval 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 88f4c7069..2d56c6baf 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 @@ -3,15 +3,15 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor monoid)]]] [macro @@ -22,7 +22,7 @@ ["n" nat]]] ["[0]" type ["[0]" check]]]] - ["/" // {"+" Analysis Operation Phase} + ["/" // (.only Analysis Operation Phase) ["[1][0]" type] [// [phase @@ -30,7 +30,7 @@ [/// ["[0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]) + [archive (.only Archive)]]]]]) (exception: .public (cannot_infer [type Type arguments (List Code)]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux index b1cf6d24a..55cec2b7c 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/macro.lux @@ -2,13 +2,13 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] ["[0]" meta]]] [///// ["[0]" phase]]) 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 1a95a5a2c..accb1b6c2 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 @@ -2,20 +2,20 @@ [library [lux {"-" Label} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix functor)] [dictionary ["[0]" plist]]]] ["[0]" meta]]] - ["/" // {"+" Operation} + ["/" // (.only Operation) ["//[1]" // "_" [phase ["[1][0]" extension]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/pattern.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/pattern.lux index cfce834d0..fb7d38b19 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/pattern.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/pattern.lux @@ -2,7 +2,7 @@ [library [lux {"-" nat int rev} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data [text ["%" format]]] @@ -10,11 +10,11 @@ [number ["n" nat]]]]] ["[0]" // "_" - ["[1][0]" simple {"+" Simple}] - ["[1][0]" complex {"+" Complex}] + ["[1][0]" simple (.only Simple)] + ["[1][0]" complex (.only Complex)] [//// [reference - ["[1][0]" variable {"+" Register}]]]]) + ["[1][0]" variable (.only Register)]]]]) (type: .public Pattern (Rec Pattern 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 040298209..8b9f33470 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 @@ -2,11 +2,11 @@ [library [lux {"-" local} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" monad)] ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" equivalence)] ["[0]" product] @@ -14,14 +14,14 @@ ["[0]" list ("[1]#[0]" functor mix monoid)] [dictionary ["[0]" plist]]]]]] - ["/" // {"+" Environment Operation Phase} + ["/" // (.only Environment Operation Phase) [// [phase ["[0]" extension]] [/// ["[0]" phase] [reference - ["[0]" variable {"+" Register Variable}]]]]]) + ["[0]" variable (.only Register Variable)]]]]]) (type: Local (Bindings Text [Type Register])) 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 b7518ded0..129d50c89 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 @@ -2,11 +2,11 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" Format}]]] + ["%" format (.only Format)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux index b215fa8b0..39b1715f9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/type.lux @@ -3,13 +3,13 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list]]] [macro @@ -18,8 +18,8 @@ [number ["n" nat]]] [type - ["[0]" check {"+" Check}]]]] - ["/" // {"+" Operation} + ["[0]" check (.only Check)]]]] + ["/" // (.only Operation) [// [phase ["[0]" extension]] 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 d9bf832a3..7d8165ccd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux @@ -2,7 +2,7 @@ [library [lux {"-" Module} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" try]] [data @@ -19,7 +19,7 @@ [meta [archive [module - [descriptor {"+" Module}]]]]]]) + [descriptor (.only Module)]]]]]]) (type: .public (Component state phase) (Record 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 2b9f8b598..9e3b03940 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux @@ -2,20 +2,20 @@ [library [lux {"-" symbol} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["[0]" function]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" sequence {"+" Sequence}] + ["[0]" sequence (.only Sequence)] ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [macro ["^" pattern] ["[0]" template]] @@ -25,14 +25,14 @@ [meta ["[0]" symbol]]]] [// - [synthesis {"+" Synthesis}] + [synthesis (.only Synthesis)] [phase ["[0]" extension]] [/// ["[0]" phase] [meta - ["[0]" archive {"+" Archive} - ["[0]" registry {"+" Registry}] + ["[0]" archive (.only Archive) + ["[0]" registry (.only Registry)] ["[0]" unit] ["[0]" artifact ["[0]" category]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux index 32e4ed22e..48c27ed4d 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis.lux @@ -2,12 +2,12 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list]]] [macro @@ -27,14 +27,14 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - ["/" analysis {"+" Analysis Operation Phase} - ["[1][0]" macro {"+" Expander}] + ["/" analysis (.only Analysis Operation Phase) + ["[1][0]" macro (.only Expander)] ["[1][0]" type]] [/// ["//" phase] ["[0]" reference] [meta - [archive {"+" Archive}]]]]]]) + [archive (.only Archive)]]]]]]) (exception: .public (invalid [syntax Code]) (exception.report 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 394d54163..c811a2319 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 @@ -3,15 +3,15 @@ [lux {"-" case} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix monoid monad)]]] [math @@ -21,20 +21,20 @@ ["^" pattern] ["[0]" code]] ["[0]" type - ["[0]" check {"+" Check}]]]] + ["[0]" check (.only Check)]]]] ["[0]" / "_" ["/[1]" // "_" ["[1][0]" complex] ["/[1]" // "_" ["[1][0]" extension] [// - ["/" analysis {"+" Analysis Operation Phase} + ["/" analysis (.only Analysis Operation Phase) ["[1][0]" simple] ["[1][0]" complex] - ["[1][0]" pattern {"+" Pattern}] + ["[1][0]" pattern (.only Pattern)] ["[1][0]" type] ["[1][0]" scope] - ["[1][0]" coverage {"+" Coverage}]] + ["[1][0]" coverage (.only Coverage)]] [/// ["[1]" phase]]]]]]) 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 b1d7398e6..770cf6262 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 @@ -3,19 +3,19 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["[0]" state]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monad)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["[0]" code]] [math @@ -30,14 +30,14 @@ ["/[1]" // "_" ["[1][0]" extension] [// - ["/" analysis {"+" Analysis Operation Phase} - ["[1][0]" complex {"+" Tag}] + ["/" analysis (.only Analysis Operation Phase) + ["[1][0]" complex (.only Tag)] ["[1][0]" type] ["[1][0]" inference]] [/// ["[1]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]) + [archive (.only Archive)]]]]]]) (exception: .public (not_a_quantified_type [type Type]) (exception.report 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 6416fbe77..d97680bd0 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 @@ -3,15 +3,15 @@ [lux {"-" function} ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monoid monad)]]] [math @@ -22,14 +22,14 @@ ["[0]" /// "_" ["[1][0]" extension] [// - ["/" analysis {"+" Analysis Operation Phase} + ["/" analysis (.only Analysis Operation Phase) ["[1][0]" type] ["[1][0]" inference] ["[1][0]" scope]] [/// ["[1]" phase ("[1]#[0]" functor)] - [reference {"+"} - [variable {"+"}]]]]]) + [reference (.only) + [variable (.only)]]]]]) (exception: .public (cannot_analyse [expected Type function Text 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 e5f1914ab..66ef31041 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 @@ -3,19 +3,19 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro ["^" pattern]]]] ["[0]" // "_" ["/[1]" // "_" ["[1][0]" extension] [// - ["/" analysis {"+" Analysis Operation} + ["/" analysis (.only Analysis Operation) ["[1][0]" type] ["[1][0]" scope]] [/// diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/simple.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/simple.lux index 54b9b7a36..fdfe2e431 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/simple.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/simple.lux @@ -2,10 +2,10 @@ [library [lux {"-" nat int rev} [abstract - [monad {"+" do}]]]] + [monad (.only do)]]]] ["[0]" /// "_" [// - ["/" analysis {"+" Analysis Operation} + ["/" analysis (.only Analysis Operation) ["[1][0]" simple] ["[1][0]" type]] [/// 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 df695d244..a745da868 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 @@ -3,30 +3,30 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix monoid)]]]]] ["[0]" // "_" ["[1][0]" extension] ["[1][0]" analysis] ["/[1]" // "_" - ["/" directive {"+" Operation Phase}] + ["/" directive (.only Operation Phase)] ["[1][0]" analysis ["[0]" evaluation] - ["[1]/[0]" macro {"+" Expander}] + ["[1]/[0]" macro (.only Expander)] ["[1]/[0]" type]] [/// ["//" phase] - [reference {"+" } - [variable {"+" }]] + [reference (.only) + [variable (.only)]] [meta - [archive {"+" Archive}]]]]]) + [archive (.only Archive)]]]]]) (exception: .public (not_a_directive [code Code]) (exception.report 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 42528ba33..bb5535fa5 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 @@ -2,26 +2,26 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)] + ["[0]" monad (.only do)]] [control ["[0]" function] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] ["[0]" text ("[1]#[0]" order) - ["%" format {"+" Format format}]] + ["%" format (.only Format format)]] [collection ["[0]" list] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]]]] [///// ["//" phase] [meta - [archive {"+" Archive}]]]) + [archive (.only Archive)]]]) (type: .public Name Text) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux index 3529ba762..cec02696e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis.lux @@ -5,8 +5,8 @@ [collection ["[0]" dictionary]]]]] [//// - [analysis {"+" Bundle} - [evaluation {"+" Eval}]]] + [analysis (.only Bundle) + [evaluation (.only Eval)]]] ["[0]" / "_" ["[1][0]" lux]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux index 031f4d779..bdf1723f4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/common_lisp.lux @@ -1,32 +1,32 @@ (.using - [library - [lux "*" - ["[0]" ffi] - [abstract - ["[0]" monad {"+" do}]] - [control - ["<>" parser - ["<c>" code {"+" Parser}]]] - [data - [collection - ["[0]" array {"+" Array}] - ["[0]" dictionary] - ["[0]" list]]] - ["[0]" type - ["[0]" check]] - ["@" target - ["_" common_lisp]]]] + [library + [lux "*" + ["[0]" ffi] + [abstract + ["[0]" monad (.only do)]] + [control + ["<>" parser + ["<c>" code (.only Parser)]]] + [data + [collection + ["[0]" array (.only Array)] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] + ["@" target + ["_" common_lisp]]]] + [// + ["/" lux (.only custom)] [// - ["/" lux {"+" custom}] + ["[0]" bundle] [// - ["[0]" bundle] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["[0]" analysis "_" - ["[1]/[0]" type]] - [// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle}] - [/// - ["[0]" phase]]]]]]) + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle)] + [/// + ["[0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux index 39a8ef632..440a0d9b1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/js.lux @@ -3,10 +3,10 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" array] @@ -17,11 +17,11 @@ ["@" target ["_" js]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [/// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle} + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle) ["[1]/[0]" type]] [/// ["[0]" phase]]]]]) 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 6a54bf8e5..572ecb60a 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 @@ -1,28 +1,28 @@ (.using [library [lux {"-" Type Module Primitive type char int} - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] ["[0]" meta] [abstract - ["[0]" monad {"+" do}] + ["[0]" monad (.only do)] ["[0]" predicate]] [control ["[0]" pipe] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try} ("[1]#[0]" monad)] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try) ("[1]#[0]" monad)] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}] + ["<[0]>" code (.only Parser)] ["<[0]>" text]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" mix monad monoid)] ["[0]" array] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]] ["[0]" format "_" ["[1]" binary]]] @@ -36,30 +36,30 @@ [target ["[0]" jvm "_" ["[0]!" reflection] - ["_" bytecode {"+" Bytecode} ("[1]#[0]" monad)] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] + ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] ["[0]" attribute] ["[0]" field] ["[0]" version] ["[0]" method] ["[0]" class] ["[0]" constant - ["[0]" pool {"+" Resource}]] + ["[0]" pool (.only Resource)]] [encoding - ["[0]" name {"+" External}]] - ["[1]" type {"+" Type Argument Typed} ("[1]#[0]" equivalence) - ["[0]" category {"+" Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method}] + ["[0]" name (.only External)]] + ["[1]" type (.only Type Argument Typed) ("[1]#[0]" equivalence) + ["[0]" category (.only Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method)] ["[0]" box] ["[0]" reflection] ["[0]" descriptor] ["[0]" signature] ["[0]" parser] - ["[0]" alias {"+" Aliasing}] - ["[0]T" lux {"+" Mapping}]]]] + ["[0]" alias (.only Aliasing)] + ["[0]T" lux (.only Mapping)]]]] ["[0]" type - ["[0]" check {"+" Check} ("[1]#[0]" monad)]]]] + ["[0]" check (.only Check) ("[1]#[0]" monad)]]]] ["[0]" // "_" - ["[1][0]" lux {"+" custom}] + ["[1][0]" lux (.only custom)] ["/[1]" // ["[1][0]" bundle] ["/[1]" // "_" @@ -71,7 +71,7 @@ ["/[1]" // "_" ["[0]" generation] ["[0]" directive] - ["[1][0]" analysis {"+" Analysis Operation Phase Handler Bundle} + ["[1][0]" analysis (.only Analysis Operation Phase Handler Bundle) ["[0]" complex] ["[0]" pattern] ["[0]" inference] @@ -80,9 +80,9 @@ [/// ["[0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive} + [archive (.only Archive) [module - [descriptor {"+" Module}]]]]]]]]]) + [descriptor (.only Module)]]]]]]]]]) (import: java/lang/ClassLoader "[1]::[0]") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux index 6f5b62016..1f5c91fe7 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lua.lux @@ -3,10 +3,10 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" array] @@ -17,11 +17,11 @@ ["@" target ["_" lua]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [/// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle} + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle) ["[1]/[0]" type]] [/// ["[0]" phase]]]]]) 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 6ff97bb35..8b870557d 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 @@ -2,19 +2,19 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] [math @@ -27,13 +27,13 @@ ["[1][0]" bundle] ["/[1]" // "_" [// - ["[1][0]" analysis {"+" Analysis Operation Phase Handler Bundle} - [evaluation {"+" Eval}] + ["[1][0]" analysis (.only Analysis Operation Phase Handler Bundle) + [evaluation (.only Eval)] ["[0]A" type]] [/// ["[1]" phase] [meta - [archive {"+" Archive}]]]]]]) + [archive (.only Archive)]]]]]]) (def: .public (custom [syntax handler]) (All (_ s) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux index 6d7b0d128..5befafa46 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/php.lux @@ -3,13 +3,13 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<c>" code {"+" Parser}]]] + ["<c>" code (.only Parser)]]] [data [collection - ["[0]" array {"+" Array}] + ["[0]" array (.only Array)] ["[0]" dictionary] ["[0]" list]]] ["[0]" type @@ -17,14 +17,14 @@ ["@" target ["_" php]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [// ["[0]" analysis "_" ["[1]/[0]" type]] [// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle}] + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle)] [/// ["[0]" phase]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux index 9156e497b..4a194a6db 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/python.lux @@ -3,10 +3,10 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" array] @@ -17,11 +17,11 @@ ["@" target ["_" python]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [/// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle} + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle) ["[1]/[0]" type]] [/// ["[0]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux index d842741db..871fa9054 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/r.lux @@ -1,32 +1,32 @@ (.using - [library - [lux "*" - ["[0]" ffi] - [abstract - ["[0]" monad {"+" do}]] - [control - ["<>" parser - ["<c>" code {"+" Parser}]]] - [data - [collection - ["[0]" array {"+" Array}] - ["[0]" dictionary] - ["[0]" list]]] - ["[0]" type - ["[0]" check]] - ["@" target - ["_" r]]]] + [library + [lux "*" + ["[0]" ffi] + [abstract + ["[0]" monad (.only do)]] + [control + ["<>" parser + ["<c>" code (.only Parser)]]] + [data + [collection + ["[0]" array (.only Array)] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] + ["@" target + ["_" r]]]] + [// + ["/" lux (.only custom)] [// - ["/" lux {"+" custom}] + ["[0]" bundle] [// - ["[0]" bundle] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["[0]" analysis "_" - ["[1]/[0]" type]] - [// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle}] - [/// - ["[0]" phase]]]]]]) + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle)] + [/// + ["[0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux index 9ab5d8351..d7c2eba78 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/ruby.lux @@ -3,10 +3,10 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [collection ["[0]" array] @@ -17,11 +17,11 @@ ["@" target ["_" ruby]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [/// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle} + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle) ["[1]/[0]" type]] [/// ["[0]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux index fb119ae7e..6901b48dc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/scheme.lux @@ -3,13 +3,13 @@ [lux "*" ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["<>" parser - ["<c>" code {"+" Parser}]]] + ["<c>" code (.only Parser)]]] [data [collection - ["[0]" array {"+" Array}] + ["[0]" array (.only Array)] ["[0]" dictionary] ["[0]" list]]] ["[0]" type @@ -17,14 +17,14 @@ ["@" target ["_" scheme]]]] [// - ["/" lux {"+" custom}] + ["/" lux (.only custom)] [// ["[0]" bundle] [// ["[0]" analysis "_" ["[1]/[0]" type]] [// - ["[0]" analysis {"+" Analysis Operation Phase Handler Bundle}] + ["[0]" analysis (.only Analysis Operation Phase Handler Bundle)] [/// ["[0]" phase]]]]]]) 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 a13e79398..cf4ab6a6f 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 @@ -1,15 +1,15 @@ (.using - [library - [lux "*" - [abstract - [monad {"+" do}]] - [data - ["[0]" text - ["%" format {"+" format}]] - [collection - ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]]]] - [// {"+" Handler Bundle}]) + [library + [lux "*" + [abstract + [monad (.only do)]] + [data + ["[0]" text + ["%" format (.only format)]] + [collection + ["[0]" list ("[1]#[0]" functor)] + ["[0]" dictionary (.only Dictionary)]]]]] + [// (.only Handler Bundle)]) (def: .public empty 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 1a30f6bc6..28f555dce 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 @@ -1,27 +1,27 @@ (.using [library [lux {"-" Type Definition Primitive} - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] - ["[0]" try {"+" Try} ("[1]#[0]" functor)] + ["[0]" try (.only Try) ("[1]#[0]" functor)] ["[0]" exception] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}] + ["<[0]>" code (.only Parser)] ["<[0]>" text] ["<[0]>" synthesis]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" dictionary] ["[0]" sequence] - ["[0]" set {"+" Set}]] + ["[0]" set (.only Set)]] ["[0]" format "_" ["[1]" binary]]] [macro @@ -33,31 +33,31 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode {"+" Bytecode} ("[1]#[0]" monad)] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] + ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] ["[0]" attribute] ["[0]" field] ["[0]" version] - ["[0]" method {"+" Method}] + ["[0]" method (.only Method)] ["[0]" class] ["[0]" constant - ["[0]" pool {"+" Resource}]] + ["[0]" pool (.only Resource)]] [encoding - ["[0]" name {"+" External}]] - ["[0]" type {"+" Type Constraint Argument Typed} - [category {"+" Void Value Return Primitive Object Class Array Var Parameter}] - ["[0]T" lux {"+" Mapping}] + ["[0]" name (.only External)]] + ["[0]" type (.only Type Constraint Argument Typed) + [category (.only Void Value Return Primitive Object Class Array Var Parameter)] + ["[0]T" lux (.only Mapping)] ["[0]" signature] ["[0]" reflection] - ["[0]" descriptor {"+" Descriptor}] + ["[0]" descriptor (.only Descriptor)] ["[0]" parser]]]] [tool [compiler ["[0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Archive} + [archive (.only Archive) ["[0]" artifact] ["[0]" unit]] ["[0]" cache "_" @@ -65,16 +65,16 @@ ["[1]" artifact]]]] [language [lux - ["[0]" synthesis {"+" Synthesis}] + ["[0]" synthesis (.only Synthesis)] ["[0]" generation] - ["[0]" directive {"+" Handler Bundle}] - ["[0]" analysis {"+" Analysis} + ["[0]" directive (.only Handler Bundle)] + ["[0]" analysis (.only Analysis) ["[0]A" type] ["[0]A" scope]] [phase [generation [jvm - ["[0]" runtime {"+" Anchor Definition Extender}] + ["[0]" runtime (.only Anchor Definition Extender)] ["[0]" value]]] ["[0]" extension ["[0]" bundle] @@ -86,7 +86,7 @@ [directive ["/" lux]]]]]]]] [type - ["[0]" check {"+" Check}]]]]) + ["[0]" check (.only Check)]]]]) (type: Operation (directive.Operation Anchor (Bytecode Any) Definition)) 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 2d07295c0..b7da13039 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 @@ -4,51 +4,51 @@ ["@" target] ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - [io {"+" IO}] + [io (.only IO)] ["[0]" maybe ("[1]#[0]" functor)] ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" binary] ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" array] ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [macro ["^" pattern] ["[0]" code]] [math [number ["n" nat]]] - ["[0]" type {"+" sharing} ("[1]#[0]" equivalence) + ["[0]" type (.only sharing) ("[1]#[0]" equivalence) ["[0]" check]]]] - ["[0]" /// {"+" Extender} + ["[0]" /// (.only Extender) ["[1][0]" bundle] ["[1][0]" analysis] ["/[1]" // "_" ["/[1]" // "_" ["[1][0]" analysis - [macro {"+" Expander}] + [macro (.only Expander)] ["[1]/[0]" evaluation] ["[0]A" type] ["[0]A" module] ["[0]" scope]] - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] - ["[1][0]" directive {"+" Import Requirements Phase Operation Handler Bundle}] - ["[1][0]" program {"+" Program}] + ["[1][0]" directive (.only Import Requirements Phase Operation Handler Bundle)] + ["[1][0]" program (.only Program)] [/// ["[0]" phase] [meta - ["[0]" archive {"+" Archive} + ["[0]" archive (.only Archive) ["[0]" artifact] ["[0]" module] ["[0]" unit]] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux index bb22d2126..15f572207 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp.lux @@ -10,7 +10,7 @@ [//// [generation [common_lisp - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle 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 0a4a86df5..861fb2de5 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" set] @@ -20,20 +20,20 @@ [number ["f" frac]]] ["@" target - ["_" common_lisp {"+" Expression}]]]] + ["_" common_lisp (.only Expression)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" common_lisp "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle Generator)] ["[1][0]" case]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux index b5077cb7b..5a246b3ef 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/common_lisp/host.lux @@ -1,37 +1,37 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [control - ["[0]" function] - ["<>" parser - ["<s>" synthesis {"+" Parser}]]] - [data - [collection - ["[0]" dictionary] - ["[0]" list]] - [text - ["%" format {"+" format}]]] - [target - ["_" common_lisp {"+" Var Expression}]]]] - ["[0]" // "_" - ["[1][0]" common {"+" custom}] - ["//[1]" /// "_" - ["/" bundle] + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [control + ["[0]" function] + ["<>" parser + ["<s>" synthesis (.only Parser)]]] + [data + [collection + ["[0]" dictionary] + ["[0]" list]] + [text + ["%" format (.only format)]]] + [target + ["_" common_lisp (.only Var Expression)]]]] + ["[0]" // "_" + ["[1][0]" common (.only custom)] + ["//[1]" /// "_" + ["/" bundle] + ["/[1]" // "_" + ["[0]" extension] + [generation + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] + ["[0]" reference] + ["//" common_lisp "_" + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" - ["[0]" extension] - [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] - ["[0]" reference] - ["//" common_lisp "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] - ["/[1]" // "_" - ["[0]" generation] - ["//[1]" /// "_" - ["[1][0]" phase]]]]]]) + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux index 2530af7ec..994156093 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js.lux @@ -10,7 +10,7 @@ [//// [generation [js - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 c935634c7..9b9945736 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 @@ -2,11 +2,11 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] [collection @@ -18,16 +18,16 @@ [number ["f" frac]]] ["@" target - ["_" js {"+" Literal Expression Statement}]]]] + ["_" js (.only Literal Expression Statement)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" js "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Handler Bundle Generator)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -35,7 +35,7 @@ ["[1][0]" loop] ["[1][0]" function]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] [/// ["[1]" phase ("[1]#[0]" monad)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux index 055fec9ee..46459fd02 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux @@ -2,29 +2,29 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data [collection ["[0]" dictionary] ["[0]" list]]] [target - ["_" js {"+" Var Expression}]]]] + ["_" js (.only Var Expression)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" js "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux index 4b27edabb..7a6897bce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm.lux @@ -10,7 +10,7 @@ [//// [generation [jvm - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 7ecc092e8..39ba779e9 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 @@ -2,12 +2,12 @@ [library [lux {"-" Type Label Primitive} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" synthesis {"+" Parser}]]] + ["<[0]>" synthesis (.only Parser)]]] [data ["[0]" product] [collection @@ -19,29 +19,29 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode {"+" Label Bytecode} ("[1]#[0]" monad)] + ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] [encoding - ["[0]" signed {"+" S4}]] - ["[0]" type {"+" Type} - [category {"+" Primitive Class}]]]]]] + ["[0]" signed (.only S4)]] + ["[0]" type (.only Type) + [category (.only Primitive Class)]]]]]] ["[0]" ///// "_" [generation - [extension {"+" Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic}] + [extension (.only Nullary Unary Binary Trinary Variadic + nullary unary binary trinary variadic)] ["///" jvm "_" ["[1][0]" value] - ["[1][0]" runtime {"+" Operation Phase Bundle Handler}] + ["[1][0]" runtime (.only Operation Phase Bundle Handler)] ["[1][0]" function "_" ["[1]" abstract]]]] [extension ["[1]extension" /] ["[1][0]" bundle]] [// - ["/[1][0]" synthesis {"+" Synthesis %synthesis}] + ["/[1][0]" synthesis (.only Synthesis %synthesis)] [/// ["[1]" phase] [meta - [archive {"+" Archive}]]]]]) + [archive (.only Archive)]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 908057f4d..c8ec7c9fa 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 @@ -2,21 +2,21 @@ [library [lux {"-" Type Primitive} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ["<[0]>" text] - ["<[0]>" synthesis {"+" Parser}]]] + ["<[0]>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) ["%" format]] [collection ["[0]" list ("[1]#[0]" monad mix monoid)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" set {"+" Set}] + ["[0]" dictionary (.only Dictionary)] + ["[0]" set (.only Set)] ["[0]" sequence]] ["[0]" format "_" ["[1]" binary]]] @@ -31,28 +31,28 @@ [jvm ["[0]" version] ["[0]" modifier ("[1]#[0]" monoid)] - ["[0]" method {"+" Method}] - ["[0]" class {"+" Class}] + ["[0]" method (.only Method)] + ["[0]" class (.only Class)] [constant - [pool {"+" Resource}]] + [pool (.only Resource)]] [encoding ["[0]" name]] - ["_" bytecode {"+" Bytecode} ("[1]#[0]" monad) - ["__" instruction {"+" Primitive_Array_Type}]] - ["[0]" type {"+" Type Typed Argument} - ["[0]" category {"+" Void Value' Value Return' Return Primitive Object Array Var Parameter}] + ["_" bytecode (.only Bytecode) ("[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)] ["[0]" box] ["[0]" reflection] ["[0]" signature] ["[0]" parser]]]]]] ["[0]" // "_" - [common {"+" custom}] + [common (.only custom)] ["///[1]" //// "_" [generation - [extension {"+" Nullary Unary Binary Trinary Variadic - nullary unary binary trinary variadic}] + [extension (.only Nullary Unary Binary Trinary Variadic + nullary unary binary trinary variadic)] ["///" jvm - ["[1][0]" runtime {"+" Operation Bundle Phase Handler}] + ["[1][0]" runtime (.only Operation Bundle Phase Handler)] ["[1][0]" reference] ["[1][0]" value] [function @@ -64,15 +64,15 @@ [analysis ["/" jvm]]] ["/[1]" // "_" - [analysis {"+" Environment}] - ["[1][0]" synthesis {"+" Synthesis Path %synthesis}] + [analysis (.only Environment)] + ["[1][0]" synthesis (.only Synthesis Path %synthesis)] ["[1][0]" generation] [/// ["[1]" phase] ["[1][0]" reference - ["[2][0]" variable {"+" Variable Register}]] + ["[2][0]" variable (.only Variable Register)]] [meta - ["[0]" archive {"+" Archive} + ["[0]" archive (.only Archive) ["[0]" artifact] ["[0]" unit]] ["[0]" cache "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux index 8335ce18d..f132dc39e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua.lux @@ -10,7 +10,7 @@ [//// [generation [lua - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 cb29b9c89..a45ba6c40 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" list ("[1]#[0]" functor mix)]]] @@ -21,16 +21,16 @@ [number ["f" frac]]] ["@" target - ["_" lua {"+" Expression Statement}]]]] + ["_" lua (.only Expression Statement)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" lua "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Handler Bundle Generator)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -38,7 +38,7 @@ ["[1][0]" loop] ["[1][0]" function]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase ("[1]#[0]" monad)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux index 1d3f9cae4..61f04ed49 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/lua/host.lux @@ -2,32 +2,32 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data [collection ["[0]" dictionary] ["[0]" list]] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [target - ["_" lua {"+" Var Expression}]]]] + ["_" lua (.only Var Expression)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" lua "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux index 3bf186a60..4e11b0df9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php.lux @@ -10,7 +10,7 @@ [//// [generation [php - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 82eb02ee5..3395e8ec8 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" set] @@ -20,20 +20,20 @@ [number ["f" frac]]] ["@" target - ["_" php {"+" Expression}]]]] + ["_" php (.only Expression)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" php "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle Generator)] ["[1][0]" case]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux index b4be6893f..ffa9c2706 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/php/host.lux @@ -2,32 +2,32 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data [collection ["[0]" dictionary] ["[0]" list]] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [target - ["_" php {"+" Var Expression}]]]] + ["_" php (.only Var Expression)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" php "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux index 4124be69d..ee404ed8e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python.lux @@ -10,7 +10,7 @@ [//// [generation [python - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 89092a241..6a3dbe92d 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<[0]>" synthesis {"+" Parser}]]] + ["<[0]>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" list ("[1]#[0]" functor mix)]]] @@ -21,17 +21,17 @@ [number ["f" frac]]] [target - ["_" python {"+" Expression Statement}]]]] + ["_" python (.only Expression Statement)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation ["[0]" reference] - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" python "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Handler Bundle Generator)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -39,8 +39,8 @@ ["[1][0]" case] ["[1][0]" loop]]] [// - [analysis {"+" }] - ["[0]" synthesis {"+" %synthesis}] + [analysis (.only)] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase ("[1]#[0]" monad)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux index 2b06a7946..ba4cd89d5 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/python/host.lux @@ -2,11 +2,11 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" text ["%" format]] @@ -14,19 +14,19 @@ ["[0]" dictionary] ["[0]" list]]] [target - ["_" python {"+" Expression SVar}]]]] + ["_" python (.only Expression SVar)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" python "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux index 338342aba..0112c3fb4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r.lux @@ -10,7 +10,7 @@ [//// [generation [r - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 eba2036c4..61fb604cb 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" set] @@ -20,20 +20,20 @@ [number ["f" frac]]] ["@" target - ["_" r {"+" Expression}]]]] + ["_" r (.only Expression)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" r "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle Generator)] ["[1][0]" case]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux index 7cd663e5e..3d01788a9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/r/host.lux @@ -1,37 +1,37 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [control - ["[0]" function] - ["<>" parser - ["<s>" synthesis {"+" Parser}]]] - [data - [collection - ["[0]" dictionary] - ["[0]" list]] - [text - ["%" format {"+" format}]]] - [target - ["_" r {"+" Var Expression}]]]] - ["[0]" // "_" - ["[1][0]" common {"+" custom}] - ["//[1]" /// "_" - ["/" bundle] + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [control + ["[0]" function] + ["<>" parser + ["<s>" synthesis (.only Parser)]]] + [data + [collection + ["[0]" dictionary] + ["[0]" list]] + [text + ["%" format (.only format)]]] + [target + ["_" r (.only Var Expression)]]]] + ["[0]" // "_" + ["[1][0]" common (.only custom)] + ["//[1]" /// "_" + ["/" bundle] + ["/[1]" // "_" + ["[0]" extension] + [generation + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] + ["[0]" reference] + ["//" r "_" + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" - ["[0]" extension] - [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] - ["[0]" reference] - ["//" r "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] - ["/[1]" // "_" - ["[0]" generation] - ["//[1]" /// "_" - ["[1][0]" phase]]]]]]) + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux index fe36de1b2..5461e6511 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby.lux @@ -10,7 +10,7 @@ [//// [generation [ruby - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 bec0ecdc2..d6d56ed63 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" list ("[1]#[0]" functor mix)]]] @@ -21,16 +21,16 @@ [number ["f" frac]]] [target - ["_" ruby {"+" Expression Statement}]]]] + ["_" ruby (.only Expression Statement)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["//" ruby "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Handler Bundle Generator)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -38,7 +38,7 @@ ["[1][0]" case] ["[1][0]" loop]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase ("[1]#[0]" monad)]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux index a5f389ec9..1b5a79492 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/ruby/host.lux @@ -2,32 +2,32 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data [collection ["[0]" dictionary] ["[0]" list]] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [target - ["_" ruby {"+" Var Expression}]]]] + ["_" ruby (.only Var Expression)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" ruby "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux index 5419daa5e..8d09d638f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme.lux @@ -10,7 +10,7 @@ [//// [generation [scheme - [runtime {"+" Bundle}]]]]]) + [runtime (.only Bundle)]]]]]) (def: .public bundle Bundle 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 4a1218b26..933e7d3a0 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 @@ -2,16 +2,16 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["[0]" try] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" set] @@ -20,20 +20,20 @@ [number ["f" frac]]] ["@" target - ["_" scheme {"+" Expression}]]]] + ["_" scheme (.only Expression)]]]] ["[0]" //// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" scheme "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle Generator}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle Generator)] ["[1][0]" case]]] [// - ["[0]" synthesis {"+" %synthesis}] + ["[0]" synthesis (.only %synthesis)] ["[0]" generation] [/// ["[1]" phase]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux index aedc15c3f..67b1827ce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/scheme/host.lux @@ -2,32 +2,32 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser - ["<s>" synthesis {"+" Parser}]]] + ["<s>" synthesis (.only Parser)]]] [data [collection ["[0]" dictionary] ["[0]" list]] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [target - ["_" scheme {"+" Var Expression}]]]] + ["_" scheme (.only Var Expression)]]]] ["[0]" // "_" - ["[1][0]" common {"+" custom}] + ["[1][0]" common (.only custom)] ["//[1]" /// "_" ["/" bundle] ["/[1]" // "_" ["[0]" extension] [generation - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] ["[0]" reference] ["//" scheme "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle - with_vars}]]] + ["[1][0]" runtime (.only Operation Phase Handler Bundle + with_vars)]]] ["/[1]" // "_" ["[0]" generation] ["//[1]" /// "_" diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux index 50c9acf01..25868a29a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/synthesis.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*"]] - [// - ["[0]" bundle] - [/// - [synthesis {"+" Bundle}]]]) + [library + [lux "*"]] + [// + ["[0]" bundle] + [/// + [synthesis (.only Bundle)]]]) (def: .public bundle Bundle 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 d92c3084f..462d178ea 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 @@ -2,11 +2,11 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [macro ["^" pattern]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -18,12 +18,12 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (def: .public (generate archive synthesis) Phase 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 2f5b895e3..55baf8d63 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 @@ -2,12 +2,12 @@ [library [lux {"-" case let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix monoid)] ["[0]" set]]] @@ -17,9 +17,9 @@ [number ["n" nat]]] [target - ["_" common_lisp {"+" Expression Var/1}]]]] + ["_" common_lisp (.only Expression Var/1)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -28,14 +28,14 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Member Synthesis Path}] + ["[1][0]" synthesis (.only Member Synthesis Path)] ["[1][0]" generation] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register Var/1) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux index 1a041edc1..8c2e01506 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension.lux @@ -1,13 +1,13 @@ (.using - [library - [lux "*" - [data - [collection - ["[0]" dictionary]]]]] - [// - [runtime {"+" Bundle}]] - [/ - ["[0]" common]]) + [library + [lux "*" + [data + [collection + ["[0]" dictionary]]]]] + [// + [runtime (.only Bundle)]] + [/ + ["[0]" common]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux index 527ee9822..26b03d5e9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/extension/common.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function]] [data @@ -12,13 +12,13 @@ [collection ["[0]" dictionary]]] [target - ["_" common_lisp {"+" Expression}]]]] + ["_" common_lisp (.only Expression)]]]] ["[0]" /// "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle)] ["[1][0]" primitive] [// - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] [// [extension ["[0]" bundle]]]]]) 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 d91f824ad..c525d1cbf 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 @@ -2,32 +2,32 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control pipe] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [target - ["_" common_lisp {"+" Expression Var/1}]]]] + ["_" common_lisp (.only Expression Var/1)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant Tuple Abstraction Application Analysis}] - [synthesis {"+" Synthesis}] - ["[1][0]" generation {"+" Context}] + [analysis (.only Variant Tuple Abstraction Application Analysis)] + [synthesis (.only Synthesis)] + ["[1][0]" generation (.only Context)] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [reference - [variable {"+" Register Variable}]]]]]]) + [variable (.only Register Variable)]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 29ad332ab..f8563d14b 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 @@ -2,20 +2,20 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [math [number ["n" nat]]] [target - ["_" common_lisp {"+" Expression}]]]] + ["_" common_lisp (.only Expression)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator}] + [runtime (.only Operation Phase Generator)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -23,14 +23,14 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]"synthesis {"+" Scope Synthesis}] + ["[0]"synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [meta - [archive {"+" Archive}]] + [archive (.only Archive)]] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: .public (scope expression archive [start initsS+ bodyS]) (Generator (Scope Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/primitive.lux index c58595ac2..c6fb147f8 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/primitive.lux @@ -1,8 +1,8 @@ (.using - [library - [lux {"-" i64} - [target - ["_" common_lisp {"+" Expression}]]]]) + [library + [lux {"-" i64} + [target + ["_" common_lisp (.only Expression)]]]]) (def: .public bit (-> Bit (Expression Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/reference.lux index b032cfc3d..55188d5ea 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" common_lisp {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" common_lisp (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System (Expression Any)) 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 947dd7cc7..0993f6724 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 @@ -3,7 +3,7 @@ [lux {"-" Location} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,32 +11,32 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] ["[0]" encoding]] [collection ["[0]" list ("[1]#[0]" functor monoid)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64]]] ["@" target - ["_" common_lisp {"+" Expression Computation Literal}]]]] + ["_" common_lisp (.only Expression Computation Literal)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant}] - ["[1][0]" synthesis {"+" Synthesis}] + [analysis (.only Variant)] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" artifact {"+" Registry}]]]]]]) + [archive (.only Output Archive) + ["[0]" artifact (.only Registry)]]]]]]) (def: module_id 0) 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 8554b332f..af0d4302b 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 @@ -1,18 +1,18 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [target - ["_" common_lisp {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [target + ["_" common_lisp (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime (.only Operation Phase Generator)] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis (.only Variant Tuple)] + ["[1][0]" synthesis (.only Synthesis)] + ["//[1]" /// "_" + ["[1][0]" phase ("[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 a260ec3c8..6762b03c1 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 @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control [parser ["<[0]>" code]]] @@ -10,13 +10,13 @@ [collection ["[0]" list ("[1]#[0]" functor)]]] ["[0]" meta] - ["[0]" macro {"+" with_symbols} + ["[0]" macro (.only with_symbols) ["[0]" code] - [syntax {"+" syntax:}]]]] + [syntax (.only syntax:)]]]] ["[0]" /// "_" ["[1][0]" extension] [// - [synthesis {"+" Synthesis}] + [synthesis (.only Synthesis)] ["[0]" generation] [/// ["[1]" phase]]]]) 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 637513242..cd1276c3c 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [macro ["^" pattern]] [target ["_" js]]]] ["[0]" / "_" - [runtime {"+" Phase Phase!}] + [runtime (.only Phase Phase!)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -25,12 +25,12 @@ [js ["[1]/[0]" common]]]] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (exception: .public cannot_recur_as_an_expression) 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 de443a7c7..c660b2d39 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 @@ -2,7 +2,7 @@ [library [lux {"-" case exec let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe]] [data @@ -15,9 +15,9 @@ [number ["n" nat]]] [target - ["_" js {"+" Expression Computation Var Statement}]]]] + ["_" js (.only Expression Computation Var Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator Generator!}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -26,15 +26,15 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Synthesis Path} + ["[1][0]" synthesis (.only Synthesis Path) [access - ["[0]" member {"+" Member}]]] + ["[0]" member (.only Member)]]] ["//[1]" /// "_" [reference - [variable {"+" Register}]] + [variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register Var) 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 15c0a984a..95d8d484f 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 @@ -2,30 +2,30 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" js {"+" Expression Computation Var Statement}]]]] + ["_" js (.only Expression Computation Var Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Abstraction Reification Analysis}] - [synthesis {"+" Synthesis}] + [analysis (.only Abstraction Reification Analysis)] + [synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [reference - [variable {"+" Register Variable}]] + [variable (.only Register Variable)]] [meta [archive ["[0]" unit]] 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 62da60326..634cbdd2b 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 @@ -2,28 +2,28 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [math [number ["n" nat]]] [target - ["_" js {"+" Computation Var Expression Statement}]]]] + ["_" js (.only Computation Var Expression Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Phase! Generator Generator!}] + [runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" case] ["///[1]" //// "_" - [synthesis {"+" Scope Synthesis}] + [synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [reference - [variable {"+" Register}]]]]]) + [variable (.only Register)]]]]]) (def: @scope (-> Nat Text) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux index 1672c65b7..6cdbb5035 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/primitive.lux @@ -1,10 +1,10 @@ (.using - [library - [lux {"-" i64} - [target - ["_" js {"+" Computation}]]]] - ["[0]" // "_" - ["[1][0]" runtime]]) + [library + [lux {"-" i64} + [target + ["_" js (.only Computation)]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit _.boolean) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/reference.lux index 0874ed4f3..b6a386e8b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" js {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" js (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 13f2a82e0..66c8021fd 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 @@ -3,7 +3,7 @@ [lux {"-" i64} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,32 +11,32 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64]]] [target - ["_" js {"+" Expression Var Computation Statement}]]]] + ["_" js (.only Expression Var Computation Statement)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" registry {"+" Registry}] + [archive (.only Output Archive) + ["[0]" registry (.only Registry)] ["[0]" unit]]]]]]) (template [<name> <base>] 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 96ed21e8a..8d3abeb61 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 @@ -2,16 +2,16 @@ [library [lux {"-" Variant Tuple} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [target - ["_" js {"+" Expression}]]]] + ["_" js (.only Expression)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" primitive] ["///[1]" //// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] [analysis - [complex {"+" Variant Tuple}]] + [complex (.only Variant Tuple)]] ["//[1]" /// ["[1][0]" phase ("[1]#[0]" monad)]]]]) 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 67ae82f54..2f1e595eb 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 @@ -2,11 +2,11 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [macro ["^" pattern]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] 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 455121d02..e88608b70 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 @@ -2,14 +2,14 @@ [library [lux {"-" Type Label if let exec case int} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function]] [data [collection ["[0]" list ("[1]#[0]" mix)]] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro ["^" pattern]] [math @@ -18,26 +18,26 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode {"+" Label Bytecode} ("[1]#[0]" monad) + ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad) [environment [limit ["[0]" stack]]]] - ["[0]" type {"+" Type} - [category {"+" Method}]]]]]] + ["[0]" type (.only Type) + [category (.only Method)]]]]]] ["[0]" // "_" ["[1][0]" type] - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" value] ["[1][0]" structure] [//// ["[0]" generation] - ["[0]" synthesis {"+" Path Fork Synthesis} + ["[0]" synthesis (.only Path Fork Synthesis) [access - ["[0]" member {"+" Member}]]] + ["[0]" member (.only Member)]]] [/// ["[0]" phase ("operation#[0]" monad)] [reference - [variable {"+" Register}]]]]]) + [variable (.only Register)]]]]]) (def: (pop_alt stack_depth) (-> Nat (Bytecode Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux index 5caa9c817..5c1005d2a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/debug.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" io {"+" IO}] - ["[0]" try {"+" Try}]] + ["[0]" io (.only IO)] + ["[0]" try (.only Try)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [world - ["[0]" file {"+" File}]]]]) + ["[0]" file (.only File)]]]]) (def: extension ".class") 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 77f1a415f..37f4ff161 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 @@ -2,7 +2,7 @@ [library [lux {"-" Type Label} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [collection @@ -17,23 +17,23 @@ [target [jvm ["[0]" version] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" field {"+" Field}] - ["[0]" method {"+" Method}] - ["_" bytecode {"+" Label Bytecode} ("[1]#[0]" monad)] - ["[0]" class {"+" Class}] - ["[0]" type {"+" Type} - [category {"+" Return' Value'}] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" field (.only Field)] + ["[0]" method (.only Method)] + ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] + ["[0]" class (.only Class)] + ["[0]" type (.only Type) + [category (.only Return' Value')] ["[0]" reflection]] ["[0]" constant - [pool {"+" Resource}]] + [pool (.only Resource)]] [encoding - ["[0]" name {"+" External Internal}] + ["[0]" name (.only External Internal)] ["[0]" unsigned]]]] [tool [compiler [meta - ["[0]" archive {"+" Archive}] + ["[0]" archive (.only Archive)] ["[0]" cache "_" [dependency ["[1]/[0]" artifact]]]]]]]] @@ -52,20 +52,20 @@ ["[1][0]" reset] ["[1][0]" apply]] ["/[1]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] [//// - [analysis {"+" Environment}] - ["[0]" synthesis {"+" Synthesis Abstraction Apply}] + [analysis (.only Environment)] + ["[0]" synthesis (.only Synthesis Abstraction Apply)] ["[0]" generation] [/// - ["[0]" arity {"+" Arity}] + ["[0]" arity (.only Arity)] ["[0]" phase] [meta [archive ["[0]" unit]]] [reference - [variable {"+" Register}]]]]]]) + [variable (.only Register)]]]]]]) (def: .public (with generate archive @begin class environment arity body) (-> Phase Archive Label External (Environment Synthesis) Arity (Bytecode Any) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux index d8bd53835..6167117e5 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/abstract.lux @@ -1,17 +1,17 @@ (.using - [library - [lux {"-" Type} - [data - [text - ["%" format]]] - [target - [jvm - ["[0]" type {"+" Type} - [category {"+" Method}]]]]]] - [// - [field - [constant - ["[0]" arity]]]]) + [library + [lux {"-" Type} + [data + [text + ["%" format]]] + [target + [jvm + ["[0]" type (.only Type) + [category (.only Method)]]]]]] + [// + [field + [constant + ["[0]" arity]]]]) ... (def: .public artifact_id ... 1) 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 bccc114a9..f13d6d8d3 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 @@ -6,12 +6,12 @@ ["[0]" sequence]]] [target [jvm - ["[0]" field {"+" Field}] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - [type {"+" Type} - [category {"+" Value}]] + ["[0]" field (.only Field)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + [type (.only Type) + [category (.only Value)]] [constant - [pool {"+" Resource}]]]]]]) + [pool (.only Resource)]]]]]]) (def: modifier (Modifier Field) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux index 1828fe5c1..9583f083a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/constant/arity.lux @@ -1,14 +1,14 @@ (.using - [library - [lux {"-" type} - [target - [jvm - ["[0]" type] - [constant - [pool {"+" Resource}]]]]]] - ["[0]" // - [///////// - [arity {"+" Arity}]]]) + [library + [lux {"-" type} + [target + [jvm + ["[0]" type] + [constant + [pool (.only Resource)]]]]]] + ["[0]" // + [///////// + [arity (.only Arity)]]]) (def: .public minimum Arity 1) (def: .public maximum Arity 8) 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 179fdb273..408e673cc 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 @@ -7,19 +7,19 @@ ["[0]" sequence]]] [target [jvm - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" field {"+" Field}] - ["_" bytecode {"+" Bytecode}] - [type {"+" Type} - [category {"+" Value Class}]] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" field (.only Field)] + ["_" bytecode (.only Bytecode)] + [type (.only Type) + [category (.only Value Class)]] [constant - [pool {"+" Resource}]]]]]] + [pool (.only Resource)]]]]]] ["[0]" //// "_" ["[1][0]" type] ["[1][0]" reference] [////// [reference - [variable {"+" Register}]]]]) + [variable (.only Register)]]]]) (def: .public type ////type.value) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux index c3a960653..1c1224866 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/count.lux @@ -5,10 +5,10 @@ ["[0]" try]] [target [jvm - ["_" bytecode {"+" Bytecode}] + ["_" bytecode (.only Bytecode)] ["[0]" type] [encoding - [name {"+" External}] + [name (.only External)] ["[0]" signed]]]]]] ["[0]" //// "_" ["[1][0]" abstract]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux index 2aeeb2f49..e102e04dc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable/foreign.lux @@ -1,26 +1,26 @@ (.using - [library - [lux {"-" Type} - [data - [collection - ["[0]" list]]] - [target - [jvm - ["_" bytecode {"+" Bytecode}] - ["[0]" field {"+" Field}] - [constant - [pool {"+" Resource}]] - [type {"+" Type} - [category {"+" Value Class}]]]]]] - ["[0]" // - ["///[1]" //// "_" - ["[1][0]" reference] - [//// - [analysis {"+" Environment}] - [synthesis {"+" Synthesis}] - [/// - [reference - [variable {"+" Register}]]]]]]) + [library + [lux {"-" Type} + [data + [collection + ["[0]" list]]] + [target + [jvm + ["_" bytecode (.only Bytecode)] + ["[0]" field (.only Field)] + [constant + [pool (.only Resource)]] + [type (.only Type) + [category (.only Value Class)]]]]]] + ["[0]" // + ["///[1]" //// "_" + ["[1][0]" reference] + [//// + [analysis (.only Environment)] + [synthesis (.only Synthesis)] + [/// + [reference + [variable (.only Register)]]]]]]) (def: .public (closure environment) (-> (Environment Synthesis) (List (Type Value))) 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 d6f86409c..4806c022e 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 @@ -11,12 +11,12 @@ ["n" nat]]] [target [jvm - ["[0]" field {"+" Field}] - ["_" bytecode {"+" Bytecode} ("[1]#[0]" monad)] - [type {"+" Type} - [category {"+" Class}]] + ["[0]" field (.only Field)] + ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)] + [type (.only Type) + [category (.only Class)]] [constant - [pool {"+" Resource}]]]]]] + [pool (.only Resource)]]]]]] ["[0]" // ["[1][0]" count] ["/[1]" // "_" @@ -25,9 +25,9 @@ ["//[1]" /// "_" ["[1][0]" reference] [////// - ["[0]" arity {"+" Arity}] + ["[0]" arity (.only Arity)] [reference - [variable {"+" Register}]]]]]]) + [variable (.only Register)]]]]]]) (def: .public (initial amount) (-> Nat (Bytecode Any)) 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 e684f86bc..93f08dc46 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,8 +3,8 @@ [lux "*" [target [jvm - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" method {"+" Method}]]]]]) + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" method (.only Method)]]]]]) (def: .public modifier (Modifier Method) 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 e4b3c7802..873e2818a 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 @@ -2,7 +2,7 @@ [library [lux {"-" Type Label type} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try]] [data @@ -15,14 +15,14 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode {"+" Label Bytecode} ("[1]#[0]" monad)] - ["[0]" method {"+" Method}] + ["_" bytecode (.only Label Bytecode) ("[1]#[0]" monad)] + ["[0]" method (.only Method)] [constant - [pool {"+" Resource}]] + [pool (.only Resource)]] [encoding ["[0]" signed]] - ["[0]" type {"+" Type} - ["[0]" category {"+" Class}]]]]]] + ["[0]" type (.only Type) + ["[0]" category (.only Class)]]]]]] ["[0]" // ["[1][0]" reset] ["[1][0]" implementation] @@ -41,12 +41,12 @@ ["[1][0]" value] ["[1][0]" reference] [//// - [analysis {"+" Environment}] - [synthesis {"+" Synthesis}] + [analysis (.only Environment)] + [synthesis (.only Synthesis)] [/// - [arity {"+" Arity}] + [arity (.only Arity)] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: (increment by) (-> Nat (Bytecode Any)) 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 eb17c5044..9d5466340 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,19 +9,19 @@ ["n" nat]]] [target [jvm - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" method {"+" Method}] - ["_" bytecode {"+" Label Bytecode}] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" method (.only Method)] + ["_" bytecode (.only Label Bytecode)] [constant - [pool {"+" Resource}]] - ["[0]" type {"+" Type} - ["[0]" category {"+" Class}]]]]]] + [pool (.only Resource)]] + ["[0]" type (.only Type) + ["[0]" category (.only Class)]]]]]] ["[0]" // ["//[1]" /// "_" ["[0]" runtime] ["[1][0]" type] [////// - [arity {"+" Arity}] + [arity (.only Arity)] [meta [archive ["[0]" unit]]]]]]) 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 d909c1aaf..2613bda11 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 @@ -13,14 +13,14 @@ ["n" nat]]] [target [jvm - ["_" bytecode {"+" Bytecode}] - ["[0]" method {"+" Method}] + ["_" bytecode (.only Bytecode)] + ["[0]" method (.only Method)] [encoding ["[0]" signed]] [constant - [pool {"+" Resource}]] - ["[0]" type {"+" Type} - ["[0]" category {"+" Class Value}]]]]]] + [pool (.only Resource)]] + ["[0]" type (.only Type) + ["[0]" category (.only Class Value)]]]]]] ["[0]" // ["[1][0]" implementation] ["/[1]" // "_" @@ -35,12 +35,12 @@ ["[1][0]" type] ["[1][0]" reference] [//// - [analysis {"+" Environment}] - [synthesis {"+" Synthesis}] + [analysis (.only Environment)] + [synthesis (.only Synthesis)] [/// - ["[0]" arity {"+" Arity}] + ["[0]" arity (.only Arity)] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: .public name "<init>") diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux index 06c0b32d3..9d05cc4f2 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/new.lux @@ -2,7 +2,7 @@ [library [lux {"-" Type type} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data [collection ["[0]" list]]] @@ -11,17 +11,17 @@ ["n" nat]]] [target [jvm - ["[0]" field {"+" Field}] - ["[0]" method {"+" Method}] - ["_" bytecode {"+" Bytecode}] + ["[0]" field (.only Field)] + ["[0]" method (.only Method)] + ["_" bytecode (.only Bytecode)] ["[0]" constant - [pool {"+" Resource}]] - [type {"+" Type} - ["[0]" category {"+" Class Value Return}]]]] + [pool (.only Resource)]] + [type (.only Type) + ["[0]" category (.only Class Value Return)]]]] [tool [compiler [meta - ["[0]" archive {"+" Archive}]]]]]] + ["[0]" archive (.only Archive)]]]]]] ["[0]" // ["[1][0]" init] ["[1][0]" implementation] @@ -33,14 +33,14 @@ ["[1][0]" foreign] ["[1][0]" partial]]] ["/[1]" // "_" - [runtime {"+" Operation Phase}] + [runtime (.only Operation Phase)] ["[1][0]" value] ["[1][0]" reference] [//// - [analysis {"+" Environment}] - [synthesis {"+" Synthesis}] + [analysis (.only Environment)] + [synthesis (.only Synthesis)] [/// - ["[0]" arity {"+" Arity}] + ["[0]" arity (.only Arity)] ["[0]" phase]]]]]]) (def: .public (instance' foreign_setup class environment arity) 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 ea9f1fc21..31350c892 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 @@ -6,12 +6,12 @@ ["[0]" list ("[1]#[0]" functor)]]] [target [jvm - ["[0]" method {"+" Method}] - ["_" bytecode {"+" Bytecode}] + ["[0]" method (.only Method)] + ["_" bytecode (.only Bytecode)] [constant - [pool {"+" Resource}]] - ["[0]" type {"+" Type} - ["[0]" category {"+" Class}]]]]]] + [pool (.only Resource)]] + ["[0]" type (.only Type) + ["[0]" category (.only Class)]]]]]] ["[0]" // ["[1][0]" new] ["/[1]" // "_" @@ -21,10 +21,10 @@ ["/[1]" // "_" ["[1][0]" reference] [//// - [analysis {"+" Environment}] - [synthesis {"+" Synthesis}] + [analysis (.only Environment)] + [synthesis (.only Synthesis)] [/// - ["[0]" arity {"+" Arity}]]]]]]) + ["[0]" arity (.only Arity)]]]]]]) (def: .public name "reset") 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 d9f873984..dfa514d16 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 @@ -1,36 +1,36 @@ (.using [library [lux {"-" Definition} - ["[0]" ffi {"+" import: do_to object}] + ["[0]" ffi (.only import: do_to object)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO io}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO io)] [concurrency - ["[0]" atom {"+" Atom atom}]]] + ["[0]" atom (.only Atom atom)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" array] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]] ["[0]" format "_" ["[1]" binary]]] [target [jvm - ["_" bytecode {"+" Bytecode}] - ["[0]" loader {"+" Library}] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" field {"+" Field}] - ["[0]" method {"+" Method}] + ["_" bytecode (.only Bytecode)] + ["[0]" loader (.only Library)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" field (.only Field)] + ["[0]" method (.only Method)] ["[0]" version] - ["[0]" class {"+" Class}] + ["[0]" class (.only Class)] ["[0]" encoding "_" ["[1]/[0]" name]] ["[0]" type @@ -38,11 +38,11 @@ [tool [compiler [meta - [io {"+" lux_context}] + [io (.only lux_context)] [archive ["[0]" unit]]]]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Definition}] + ["[1][0]" runtime (.only Definition)] ["[1][0]" type] ["[1][0]" value]] ) 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 167e22442..40a75189d 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 @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function]] [data @@ -14,17 +14,17 @@ ["n" nat]]] [target [jvm - ["_" bytecode {"+" Bytecode} ("[1]#[0]" monad)]]]]] + ["_" bytecode (.only Bytecode) ("[1]#[0]" monad)]]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" value] [//// - ["[0]" synthesis {"+" Path Synthesis}] + ["[0]" synthesis (.only Path Synthesis)] ["[0]" generation] [/// ["[0]" phase] [reference - [variable {"+" Register}]]]]]) + [variable (.only Register)]]]]]) (def: (invariant? register changeS) (-> Register Synthesis Bit) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux index 21a10ad06..7a5b4d3eb 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/primitive.lux @@ -1,9 +1,9 @@ (.using [library [lux {"-" i64} - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" try]] [macro @@ -13,7 +13,7 @@ ["i" int]]] [target [jvm - ["_" bytecode {"+" Bytecode}] + ["_" bytecode (.only Bytecode)] ["[0]" type] [encoding ["[0]" signed]]]]]] 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 dacdd2318..dea6eef5f 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 @@ -2,7 +2,7 @@ [library [lux {"-" Definition} [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" try]] [data @@ -12,11 +12,11 @@ ["[1]" binary]]] [target [jvm - ["_" bytecode {"+" Bytecode}] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" method {"+" Method}] + ["_" bytecode (.only Bytecode)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" method (.only Method)] ["[0]" version] - ["[0]" class {"+" Class}] + ["[0]" class (.only Class)] [encoding ["[0]" name]] ["[0]" type @@ -25,12 +25,12 @@ [compiler [language [lux - [program {"+" Program}]]] + [program (.only Program)]]] [meta [archive ["[0]" unit]]]]]]] ["[0]" // - ["[1][0]" runtime {"+" Definition}] + ["[1][0]" runtime (.only Definition)] ["[1][0]" function/abstract]]) (def: ^Object diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux index 725952b30..7efa8cf7a 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/reference.lux @@ -2,18 +2,18 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [data [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [target [jvm - ["_" bytecode {"+" Bytecode}] + ["_" bytecode (.only Bytecode)] ["[0]" type] [encoding ["[0]" unsigned]]]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation}] + ["[1][0]" runtime (.only Operation)] ["[1][0]" value] ["[1][0]" type] ["//[1]" /// "_" @@ -22,9 +22,9 @@ [/// ["[1]" phase ("operation#[0]" monad)] [reference - ["[0]" variable {"+" Register Variable}]] + ["[0]" variable (.only Register Variable)]] [meta - [archive {"+" Archive}]]]]]]) + [archive (.only Archive)]]]]]]) (def: .public this (Bytecode Any) 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 cb82ec642..d8d310885 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 @@ -2,12 +2,12 @@ [library [lux {"-" Type Definition Label case false true try} [abstract - ["[0]" monad {"+" do}] + ["[0]" monad (.only do)] ["[0]" enum]] [control ["[0]" try]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] [collection ["[0]" list ("[1]#[0]" functor)] @@ -15,7 +15,7 @@ ["[0]" format "_" ["[1]" binary]] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [math [number ["n" nat] @@ -25,18 +25,18 @@ ["[0]" version]] [target ["[0]" jvm "_" - ["_" bytecode {"+" Label Bytecode}] - ["[0]" modifier {"+" Modifier} ("[1]#[0]" monoid)] - ["[0]" field {"+" Field}] - ["[0]" method {"+" Method}] + ["_" bytecode (.only Label Bytecode)] + ["[0]" modifier (.only Modifier) ("[1]#[0]" monoid)] + ["[0]" field (.only Field)] + ["[0]" method (.only Method)] ["[1]/[0]" version] - ["[0]" class {"+" Class}] + ["[0]" class (.only Class)] ["[0]" constant - [pool {"+" Resource}]] + [pool (.only Resource)]] [encoding ["[0]" name]] - ["[0]" type {"+" Type} - ["[0]" category {"+" Return' Value'}] + ["[0]" type (.only Type) + ["[0]" category (.only Return' Value')] ["[0]" reflection]]]]]] ["[0]" // "_" ["[1][0]" type] @@ -54,14 +54,14 @@ ["[0]" generation] [/// ["[1]" phase] - [arity {"+" Arity}] + [arity (.only Arity)] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [io {"+" lux_context}] - [archive {"+" Output Archive} + [io (.only lux_context)] + [archive (.only Output Archive) ["[0]" artifact] - ["[0]" registry {"+" Registry}] + ["[0]" registry (.only Registry)] ["[0]" unit]]]]]]]) (type: .public Byte_Code diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux index 4b0b2c145..911aa4f34 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/structure.lux @@ -2,7 +2,7 @@ [library [lux {"-" Variant Tuple} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" try]] [data @@ -13,18 +13,18 @@ ["[0]" i32]]] [target [jvm - ["_" bytecode {"+" Bytecode}] + ["_" bytecode (.only Bytecode)] ["[0]" type] [encoding ["[0]" signed]]]]]] ["[0]" // "_" ["[1][0]" type] - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" primitive] ["///[1]" //// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] [analysis - [complex {"+" Variant Tuple}]] + [complex (.only Variant Tuple)]] [/// ["[0]" phase]]]]) 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 e40b7d122..358df556e 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 @@ -3,9 +3,9 @@ [lux {"-" Type Primitive type} [target [jvm - ["_" bytecode {"+" Bytecode}] - ["[0]" type {"+" Type} ("[1]#[0]" equivalence) - [category {"+" Primitive}] + ["_" bytecode (.only Bytecode)] + ["[0]" type (.only Type) ("[1]#[0]" equivalence) + [category (.only Primitive)] ["[0]" box]]]]]]) (def: .public field "value") 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 6493ea02a..d32c9cf0b 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [macro ["^" pattern]] [target ["_" lua]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -25,12 +25,12 @@ [lua ["[1]/[0]" common]]]] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+" } - [variable {"+" }]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (exception: .public cannot_recur_as_an_expression) 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 18776639d..7fd901461 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 @@ -2,19 +2,19 @@ [library [lux {"-" case exec let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] [macro ["^" pattern]] [target - ["_" lua {"+" Expression Var Statement}]]]] + ["_" lua (.only Expression Var Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator Generator!}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -23,16 +23,16 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Synthesis Path} + ["[1][0]" synthesis (.only Synthesis Path) [access - ["[0]" member {"+" Member}]]] + ["[0]" member (.only Member)]]] ["[1][0]" generation] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register Var) 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 de0387fd7..2d71b0fd5 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 @@ -2,27 +2,27 @@ [library [lux {"-" Label function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" lua {"+" Var Expression Label Statement}]]]] + ["_" lua (.only Var Expression Label Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Abstraction Reification Analysis}] - [synthesis {"+" Synthesis}] + [analysis (.only Abstraction Reification Analysis)] + [synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [meta [archive @@ -31,7 +31,7 @@ [dependency ["[1]" artifact]]]] [reference - [variable {"+" Register Variable}]]]]]]) + [variable (.only Register Variable)]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Reification Synthesis)) 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 9883feaaf..55cf46cca 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 @@ -2,11 +2,11 @@ [library [lux {"-" Label Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" set]]] @@ -14,24 +14,24 @@ [number ["n" nat]]] [target - ["_" lua {"+" Var Expression Label Statement}]]]] + ["_" lua (.only Var Expression Label Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Phase! Generator Generator!}] + [runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[0]"synthesis {"+" Scope Synthesis}] + ["[0]"synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [meta - [archive {"+" Archive}] + [archive (.only Archive)] ["[0]" cache "_" [dependency ["[1]" artifact]]]] [reference - [variable {"+" Register}]]]]]]) + [variable (.only Register)]]]]]]) (def: @scope (-> Nat Label) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/primitive.lux index 556371e6a..50535a1a4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/primitive.lux @@ -1,8 +1,8 @@ (.using - [library - [lux {"-" i64} - [target - ["_" lua {"+" Literal}]]]]) + [library + [lux {"-" i64} + [target + ["_" lua (.only Literal)]]]]) (template [<name> <type> <implementation>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux index f3ff385ae..7cff5ed07 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" lua {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" lua (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 9864bd037..149d5d333 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 @@ -3,7 +3,7 @@ [lux {"-" Label Location} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,32 +11,32 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64]]] ["@" target - ["_" lua {"+" Expression Location Var Computation Literal Label Statement}]]]] + ["_" lua (.only Expression Location Var Computation Literal Label Statement)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" registry {"+" Registry}] + [archive (.only Output Archive) + ["[0]" registry (.only Registry)] ["[0]" unit]]]]]]) (template [<name> <base>] 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 80028d75e..e1d8961f8 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 @@ -2,16 +2,16 @@ [library [lux {"-" Tuple Variant} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [target - ["_" lua {"+" Expression}]]]] + ["_" lua (.only Expression)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" primitive] ["///[1]" //// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] [analysis - [complex {"+" Variant Tuple}]] + [complex (.only Variant Tuple)]] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)]]]]) 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 460350507..c878aa282 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [macro ["^" pattern]] [target ["_" php]]]] ["[0]" / "_" - [runtime {"+" Phase Phase!}] + [runtime (.only Phase Phase!)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -22,12 +22,12 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (def: (statement expression archive synthesis) Phase! 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 c950b555c..52c5a626e 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 @@ -2,11 +2,11 @@ [library [lux {"-" case let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -16,9 +16,9 @@ [number ["i" int]]] [target - ["_" php {"+" Expression Var Statement}]]]] + ["_" php (.only Expression Var Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator Generator!}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -27,14 +27,14 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Member Synthesis Path}] + ["[1][0]" synthesis (.only Member Synthesis Path)] ["[1][0]" generation] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register Var) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux index 1a041edc1..8c2e01506 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension.lux @@ -1,13 +1,13 @@ (.using - [library - [lux "*" - [data - [collection - ["[0]" dictionary]]]]] - [// - [runtime {"+" Bundle}]] - [/ - ["[0]" common]]) + [library + [lux "*" + [data + [collection + ["[0]" dictionary]]]]] + [// + [runtime (.only Bundle)]] + [/ + ["[0]" common]]) (def: .public bundle Bundle diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux index c52d69b22..e0549236f 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/extension/common.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function]] [data @@ -13,13 +13,13 @@ [collection ["[0]" dictionary]]] [target - ["_" php {"+" Expression}]]]] + ["_" php (.only Expression)]]]] ["[0]" /// "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle)] ["[1][0]" primitive] [// - [extension {"+" Nullary Unary Binary Trinary - nullary unary binary trinary}] + [extension (.only Nullary Unary Binary Trinary + nullary unary binary trinary)] [// [extension ["[0]" bundle]]]]]) 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 e9cc9f517..7dfe4b9d0 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 @@ -2,32 +2,32 @@ [library [lux {"-" Global function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control pipe] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" php {"+" Var Global Expression Argument Label Statement}]]]] + ["_" php (.only Var Global Expression Argument Label Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Phase! Generator}] + ["[1][0]" runtime (.only Operation Phase Phase! Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant Tuple Abstraction Application Analysis}] - [synthesis {"+" Synthesis}] - ["[1][0]" generation {"+" Context}] + [analysis (.only Variant Tuple Abstraction Application Analysis)] + [synthesis (.only Synthesis)] + ["[1][0]" generation (.only Context)] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [reference - [variable {"+" Register Variable}]]]]]]) + [variable (.only Register Variable)]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 3c12092c7..53d726bc2 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 @@ -2,21 +2,21 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["n" nat]]] [target - ["_" php {"+" Var Expression Label Statement}]]]] + ["_" php (.only Var Expression Label Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Phase! Generator Generator!}] + [runtime (.only Operation Phase Phase! Generator Generator!)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -24,14 +24,14 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]"synthesis {"+" Scope Synthesis}] + ["[0]"synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [meta - [archive {"+" Archive}]] + [archive (.only Archive)]] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: @scope (-> Nat Label) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux index e5cc82537..635d2e7f4 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/primitive.lux @@ -1,13 +1,13 @@ (.using - [library - [lux {"-" i64} - [math - [number - ["[0]" frac]]] - [target - ["_" php {"+" Literal Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime]]) + [library + [lux {"-" i64} + [math + [number + ["[0]" frac]]] + [target + ["_" php (.only Literal Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit (-> Bit Literal) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/reference.lux index 501bd515a..e76d2104b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" php {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" php (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 d8885e026..0e3d6b9d2 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 @@ -3,7 +3,7 @@ [lux {"-" Location} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,32 +11,32 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64]]] ["@" target - ["_" php {"+" Expression Label Constant Var Computation Literal Statement}]]]] + ["_" php (.only Expression Label Constant Var Computation Literal Statement)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" artifact {"+" Registry}]]]]]]) + [archive (.only Output Archive) + ["[0]" artifact (.only Registry)]]]]]]) (template [<name> <base>] [(type: .public <name> 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 13d0bb252..7d037a703 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 @@ -1,21 +1,21 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [data - [collection - ["[0]" list]]] - [target - ["_" php {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [data + [collection + ["[0]" list]]] + [target + ["_" php (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime (.only Operation Phase Generator)] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis (.only Variant Tuple)] + ["[1][0]" synthesis (.only Synthesis)] + ["//[1]" /// "_" + ["[1][0]" phase ("[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 7e620b07a..0ae118a09 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [macro ["^" pattern]] [target ["_" python]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -25,12 +25,12 @@ [python ["[1]/[0]" common]]]] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (exception: .public cannot_recur_as_an_expression) 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 19d8dd56d..ce77bab09 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 @@ -2,10 +2,10 @@ [library [lux {"-" case exec let if symbol} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -16,9 +16,9 @@ ["n" nat] ["i" int]]] [target - ["_" python {"+" Expression SVar Statement}]]]] + ["_" python (.only Expression SVar Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator Phase! Generator!}] + ["[1][0]" runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -28,15 +28,15 @@ ["[0]" case]] ["/[1]" // "_" ["[1][0]" generation] - ["[1][0]" synthesis {"+" Synthesis Path} + ["[1][0]" synthesis (.only Synthesis Path) [access - ["[0]" member {"+" Member}]]] + ["[0]" member (.only Member)]]] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}] + [archive (.only Archive)] ["[0]" cache "_" [dependency ["[1]" artifact]]]]]]]]]) 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 4f959f01c..89320db4f 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 @@ -2,33 +2,33 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" python {"+" SVar Expression Statement}]]]] + ["_" python (.only SVar Expression Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator Phase! Generator!}] + [runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" reference] ["[1][0]" case] ["[1][0]" loop] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Environment Abstraction Reification Analysis}] - [synthesis {"+" Synthesis}] + [analysis (.only Environment Abstraction Reification Analysis)] + [synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase] [reference - [variable {"+" Register Variable}]] + [variable (.only Register Variable)]] [meta - [archive {"+" Archive} + [archive (.only Archive) ["[0]" artifact]] ["[0]" cache "_" [dependency 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 12f34891b..c54db23c1 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 @@ -2,11 +2,11 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -14,9 +14,9 @@ [number ["n" nat]]] [target - ["_" python {"+" Expression SVar Statement}]]]] + ["_" python (.only Expression SVar Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator Phase! Generator!}] + [runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -24,7 +24,7 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]" synthesis {"+" Scope Synthesis}] + ["[0]" synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] @@ -33,7 +33,7 @@ [dependency ["[1]" artifact]]]] [reference - ["[1][0]" variable {"+" Register}]]]]]]]) + ["[1][0]" variable (.only Register)]]]]]]]) (def: (setup offset bindings body) (-> Register (List (Expression Any)) (Statement Any) (Statement Any)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux index 803590ccb..b1d78eb68 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/primitive.lux @@ -1,10 +1,10 @@ (.using - [library - [lux {"-" i64} - [target - ["_" python {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime]]) + [library + [lux {"-" i64} + [target + ["_" python (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (template [<type> <name> <implementation>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux index 10dcfeec9..18d5a1b74 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" python {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" python (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System (Expression Any)) 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 ae9c18e2e..6a5969112 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 @@ -2,7 +2,7 @@ [library [lux {"-" ++} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -10,35 +10,35 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["f" frac] ["[0]" i64]]] ["[0]" meta ["[0]" version]] ["@" target - ["_" python {"+" Expression SVar Computation Literal Statement}]]]] + ["_" python (.only Expression SVar Computation Literal Statement)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" registry {"+" Registry}] + [archive (.only Output Archive) + ["[0]" registry (.only Registry)] ["[0]" unit]]]]]]) (template [<name> <base>] 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 fc59e133d..8b2b2ab49 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 @@ -2,16 +2,16 @@ [library [lux {"-" Variant Tuple} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [target - ["_" python {"+" Expression}]]]] + ["_" python (.only Expression)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" primitive] ["///[1]" //// "_" [analysis - [complex {"+" Variant Tuple}]] - ["[1][0]" synthesis {"+" Synthesis}] + [complex (.only Variant Tuple)]] + ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)]]]]) 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 ff391b986..9d210e9cd 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 @@ -2,13 +2,13 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [macro ["^" pattern]] [target ["_" r]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -20,12 +20,12 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (def: .public (generate archive synthesis) Phase 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 21e45438d..7ea33bdea 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 @@ -2,11 +2,11 @@ [library [lux {"-" case let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -17,9 +17,9 @@ [number ["i" int]]] [target - ["_" r {"+" Expression SVar}]]]] + ["_" r (.only Expression SVar)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -28,14 +28,14 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Member Synthesis Path}] + ["[1][0]" synthesis (.only Member Synthesis Path)] ["[1][0]" generation] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register SVar) 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 11a7de8ab..c5927a154 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 @@ -2,32 +2,32 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control pipe] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" r {"+" Expression SVar}]]]] + ["_" r (.only Expression SVar)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant Tuple Abstraction Application Analysis}] - [synthesis {"+" Synthesis}] - ["[1][0]" generation {"+" Context}] + [analysis (.only Variant Tuple Abstraction Application Analysis)] + [synthesis (.only Synthesis)] + ["[1][0]" generation (.only Context)] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [reference - [variable {"+" Register Variable}]] + [variable (.only Register Variable)]] [meta [archive ["[0]" artifact]]]]]]]) 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 192386b79..79fe2f4db 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 @@ -2,21 +2,21 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["n" nat]]] [target ["_" r]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator}] + [runtime (.only Operation Phase Generator)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -24,14 +24,14 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]"synthesis {"+" Scope Synthesis}] + ["[0]"synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [meta - [archive {"+" Archive}]] + [archive (.only Archive)]] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: .public (scope expression archive [offset initsS+ bodyS]) (Generator (Scope Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux index f79e73f4e..d9547c1c0 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/primitive.lux @@ -1,10 +1,10 @@ (.using - [library - [lux {"-" i64} - [target - ["_" r {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime]]) + [library + [lux {"-" i64} + [target + ["_" r (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (template [<name> <type> <code>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux index 9993054a4..4ec4330d9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux @@ -1,23 +1,23 @@ (.using lux (lux (control [library - [monad {"+" do}]] - ["ex" exception {"+" exception:}] + [monad (.only do)]] + ["ex" exception (.only exception:)] ["p" parser]) (data ["e" error] [text] text/format [number] (coll [list "list/" Functor<List>] - (dictionary ["dict" unordered {"+" Dict}]))) - [macro {"+" with_symbols}] + (dictionary ["dict" unordered (.only Dict)]))) + [macro (.only with_symbols)] (macro [code] - ["s" syntax {"+" syntax:}]) + ["s" syntax (.only syntax:)]) [host]) (luxc ["&" lang] (lang ["la" analysis] ["ls" synthesis] - (host [r {"+" Expression}]))) + (host [r (.only Expression)]))) [///] (/// ["[0]T" runtime] ["[0]T" case] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux index e1b8b84e6..ece7d2035 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/host.lux @@ -1,16 +1,16 @@ (.using lux (lux (control [library - [monad {"+" do}]]) + [monad (.only do)]]) (data [text] text/format (coll [list "list/" Functor<List>] - (dictionary ["dict" unordered {"+" Dict}]))) + (dictionary ["dict" unordered (.only Dict)]))) [macro "macro/" Monad<Meta>]) (luxc ["&" lang] (lang ["la" analysis] ["ls" synthesis] - (host [ruby {"+" Ruby Expression Statement}]))) + (host [ruby (.only Ruby Expression Statement)]))) [///] (/// ["[0]T" runtime]) (// ["@" common])) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/reference.lux index eaedbb167..fd0d1d563 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" r {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" r (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 acb12a286..50695a8a4 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 @@ -3,7 +3,7 @@ [lux {"-" Location ++ i64} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,35 +11,35 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["n" nat] ["i" int ("[1]#[0]" interval)] ["[0]" i64]]] ["@" target - ["_" r {"+" SVar Expression}]]]] + ["_" r (.only SVar Expression)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant}] - ["[1][0]" synthesis {"+" Synthesis}] + [analysis (.only Variant)] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" artifact {"+" Registry}]]]]]]) + [archive (.only Output Archive) + ["[0]" artifact (.only Registry)]]]]]]) (def: module_id 0) 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 2a11e41dc..1ab7f9a6f 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 @@ -1,21 +1,21 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [data - [collection - ["[0]" list]]] - [target - ["_" r {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [data + [collection + ["[0]" list]]] + [target + ["_" r (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime (.only Operation Phase Generator)] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis (.only Variant Tuple)] + ["[1][0]" synthesis (.only Synthesis)] + ["//[1]" /// "_" + ["[1][0]" phase ("[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 79ed4680c..453b73b29 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 @@ -4,17 +4,17 @@ ["@" target] [data [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [meta ["[0]" version]]]] ["[0]" //// "_" ["[1][0]" generation] ["//[1]" /// "_" ["[0]" phase ("[1]#[0]" monad)] - ["[0]" reference {"+" Reference} - ["[0]" variable {"+" Register Variable}]] + ["[0]" reference (.only Reference) + ["[0]" variable (.only Register Variable)]] [meta - [archive {"+" Archive} + [archive (.only Archive) ["[0]" unit]]]]]) ... This universe constant is for languages where one can't just turn all compiled definitions 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 8e8da02ef..c330b48e7 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [macro ["^" pattern]] [target ["_" ruby]]]] ["[0]" / "_" - [runtime {"+" Phase Phase!}] + [runtime (.only Phase Phase!)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -25,12 +25,12 @@ [ruby ["[1]/[0]" common]]]] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+" } - [variable {"+" }]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (exception: .public cannot_recur_as_an_expression) 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 260ca2b06..3f7148bc1 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 @@ -2,12 +2,12 @@ [library [lux {"-" case exec let if symbol} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - [exception {"+" exception:}]] + [exception (.only exception:)]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -18,9 +18,9 @@ ["n" nat] ["i" int]]] [target - ["_" ruby {"+" Expression LVar Statement}]]]] + ["_" ruby (.only Expression LVar Statement)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator Phase! Generator!}] + ["[1][0]" runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -30,15 +30,15 @@ ["[0]" case]] ["/[1]" // "_" ["[1][0]" generation] - ["[1][0]" synthesis {"+" Synthesis Path} + ["[1][0]" synthesis (.only Synthesis Path) [access - ["[0]" member {"+" Member}]]] + ["[0]" member (.only Member)]]] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public (symbol prefix) (-> Text (Operation LVar)) 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 b8e44b9e9..b56e9bc6e 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 @@ -2,31 +2,31 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)]]] [target - ["_" ruby {"+" LVar GVar Expression Statement}]]]] + ["_" ruby (.only LVar GVar Expression Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator Phase! Generator!}] + [runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" reference] ["[1][0]" case] ["[1][0]" loop] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [synthesis {"+" Synthesis}] - [analysis {"+" Environment Abstraction Reification Analysis}] + [synthesis (.only Synthesis)] + [analysis (.only Environment Abstraction Reification Analysis)] ["[1][0]" generation] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase] [reference - [variable {"+" Register Variable}]] + [variable (.only Register Variable)]] [meta ["[0]" cache "_" [dependency 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 e112b7817..417a2808e 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 @@ -2,11 +2,11 @@ [library [lux {"-" Scope symbol} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -14,9 +14,9 @@ [number ["n" nat]]] [target - ["_" ruby {"+" Expression LVar Statement}]]]] + ["_" ruby (.only Expression LVar Statement)]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator Phase! Generator!}] + [runtime (.only Operation Phase Generator Phase! Generator!)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -24,12 +24,12 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]" synthesis {"+" Scope Synthesis}] + ["[0]" synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [reference - ["[1][0]" variable {"+" Register}]]]]]]]) + ["[1][0]" variable (.only Register)]]]]]]]) (def: (setup offset bindings body) (-> Register (List Expression) Statement Statement) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/primitive.lux index a8258ccb8..437336792 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/primitive.lux @@ -1,8 +1,8 @@ (.using - [library - [lux {"-" i64} - [target - ["_" ruby {"+" Literal}]]]]) + [library + [lux {"-" i64} + [target + ["_" ruby (.only Literal)]]]]) (template [<type> <name> <implementation>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux index 47c60feac..d5e7535b5 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" ruby {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" ruby (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 f7f217580..fd2dcc906 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 @@ -3,7 +3,7 @@ [lux {"-" i64 left right} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,34 +11,34 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64] ["[0]" int ("[1]#[0]" interval)]]] ["@" target - ["_" ruby {"+" Expression LVar Computation Literal Statement}]]]] + ["_" ruby (.only Expression LVar Computation Literal Statement)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - ["[1][0]" synthesis {"+" Synthesis}] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} + [archive (.only Output Archive) ["[0]" unit] - ["[0]" registry {"+" Registry}]]]]]]) + ["[0]" registry (.only Registry)]]]]]]) (template [<name> <base>] [(type: .public <name> 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 271cf4954..eaca0c092 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 @@ -2,16 +2,16 @@ [library [lux {"-" Variant Tuple} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [target - ["_" ruby {"+" Expression}]]]] + ["_" ruby (.only Expression)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" primitive] ["///[1]" //// "_" [analysis - [complex {"+" Variant Tuple}]] - ["[1][0]" synthesis {"+" Synthesis}] + [complex (.only Variant Tuple)]] + ["[1][0]" synthesis (.only Synthesis)] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)]]]]) 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 690ab94b9..a63e6ae62 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 @@ -2,13 +2,13 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [macro ["^" pattern]] [target ["_" scheme]]]] ["[0]" / "_" - [runtime {"+" Phase}] + [runtime (.only Phase)] ["[1][0]" primitive] ["[1][0]" structure] ["[1][0]" reference] @@ -20,12 +20,12 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - [analysis {"+" }] + [analysis (.only)] ["[1][0]" synthesis] ["//[1]" /// "_" ["[1][0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]]) + [reference (.only) + [variable (.only)]]]]]]]) (def: .public (generate archive synthesis) Phase 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 e5cc0a650..9e577bfc3 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 @@ -2,11 +2,11 @@ [library [lux {"-" case let if} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] @@ -17,9 +17,9 @@ [number ["i" int]]] [target - ["_" scheme {"+" Expression Computation Var}]]]] + ["_" scheme (.only Expression Computation Var)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" primitive] ["/[1]" // "_" @@ -28,14 +28,14 @@ ["[1][0]" synthesis "_" ["[1]/[0]" case]] ["/[1]" // "_" - ["[1][0]" synthesis {"+" Member Synthesis Path}] + ["[1][0]" synthesis (.only Member Synthesis Path)] ["[1][0]" generation] ["//[1]" /// "_" [reference - ["[1][0]" variable {"+" Register}]] + ["[1][0]" variable (.only Register)]] ["[1][0]" phase ("[1]#[0]" monad)] [meta - [archive {"+" Archive}]]]]]]]) + [archive (.only Archive)]]]]]]]) (def: .public register (-> Register Var) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux index 1a041edc1..8c2e01506 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/extension.lux @@ -1,13 +1,13 @@ (.using - [library - [lux "*" - [data - [collection - ["[0]" dictionary]]]]] - [// - [runtime {"+" Bundle}]] - [/ - ["[0]" common]]) + [library + [lux "*" + [data + [collection + ["[0]" dictionary]]]]] + [// + [runtime (.only Bundle)]] + [/ + ["[0]" common]]) (def: .public bundle Bundle 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 d40d0c4df..8b91b4184 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 @@ -2,31 +2,31 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["ex" exception {"+" exception:}] + ["ex" exception (.only exception:)] [parser ["<[0]>" code]]] [data ["[0]" product] ["[0]" text] - [number {"+" hex} + [number (.only hex) ["f" frac]] [collection ["[0]" list ("[1]#[0]" functor)] - ["dict" dictionary {"+" Dictionary}]]] - ["[0]" macro {"+" with_symbols} + ["dict" dictionary (.only Dictionary)]]] + ["[0]" macro (.only with_symbols) ["[0]" code] - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [target - ["_" scheme {"+" Expression Computation}]]]] + ["_" scheme (.only Expression Computation)]]]] ["[0]" /// "_" - ["[1][0]" runtime {"+" Operation Phase Handler Bundle}] + ["[1][0]" runtime (.only Operation Phase Handler Bundle)] ["[1]//" /// ["[1][0]" extension ["[0]" bundle]] ["[1]/" // "_" - ["[1][0]" synthesis {"+" Synthesis}]]]]) + ["[1][0]" synthesis (.only Synthesis)]]]]) (syntax: (Vector [size <code>.nat elemT <code>.any]) 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 04560a891..6d4445587 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 @@ -2,32 +2,32 @@ [library [lux {"-" function} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control pipe] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [target - ["_" scheme {"+" Expression Computation Var}]]]] + ["_" scheme (.only Expression Computation Var)]]]] ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] + ["[1][0]" runtime (.only Operation Phase Generator)] ["[1][0]" reference] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant Tuple Abstraction Application Analysis}] - [synthesis {"+" Synthesis}] - ["[1][0]" generation {"+" Context}] + [analysis (.only Variant Tuple Abstraction Application Analysis)] + [synthesis (.only Synthesis)] + ["[1][0]" generation (.only Context)] ["//[1]" /// "_" - [arity {"+" Arity}] + [arity (.only Arity)] ["[1][0]" phase ("[1]#[0]" monad)] [reference - [variable {"+" Register Variable}]]]]]]) + [variable (.only Register Variable)]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 519d52e1a..d535376de 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 @@ -2,21 +2,21 @@ [library [lux {"-" Scope} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["n" nat]]] [target ["_" scheme]]]] ["[0]" // "_" - [runtime {"+" Operation Phase Generator}] + [runtime (.only Operation Phase Generator)] ["[1][0]" case] ["/[1]" // "_" ["[1][0]" reference] @@ -24,14 +24,14 @@ [synthesis ["[0]" case]] ["/[1]" // "_" - ["[0]"synthesis {"+" Scope Synthesis}] + ["[0]"synthesis (.only Scope Synthesis)] ["[1][0]" generation] ["//[1]" /// "_" ["[1][0]" phase] [meta - [archive {"+" Archive}]] + [archive (.only Archive)]] [reference - [variable {"+" Register}]]]]]]]) + [variable (.only Register)]]]]]]]) (def: @scope (_.var "scope")) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/primitive.lux index 3b36ba7d0..1dddd3c1b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/primitive.lux @@ -1,8 +1,8 @@ (.using - [library - [lux {"-" i64} - [target - ["_" scheme {"+" Expression}]]]]) + [library + [lux {"-" i64} + [target + ["_" scheme (.only Expression)]]]]) (template [<name> <type> <code>] [(def: .public <name> diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/reference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/reference.lux index a7dbd0397..b53918670 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/reference.lux @@ -1,10 +1,10 @@ (.using - [library - [lux "*" - [target - ["_" scheme {"+" Expression}]]]] - [/// - [reference {"+" System}]]) + [library + [lux "*" + [target + ["_" scheme (.only Expression)]]]] + [/// + [reference (.only System)]]) (implementation: .public system (System Expression) 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 dae1bb729..b48a00efc 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 @@ -3,7 +3,7 @@ [lux {"-" Location} ["[0]" meta] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" function] ["<>" parser @@ -11,33 +11,33 @@ [data ["[0]" product] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" sequence]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code]] [math - [number {"+" hex} + [number (.only hex) ["[0]" i64]]] ["@" target - ["_" scheme {"+" Expression Computation Var}]]]] + ["_" scheme (.only Expression Computation Var)]]]] ["[0]" /// "_" ["[1][0]" reference] ["//[1]" /// "_" - [analysis {"+" Variant}] - ["[1][0]" synthesis {"+" Synthesis}] + [analysis (.only Variant)] + ["[1][0]" synthesis (.only Synthesis)] ["[1][0]" generation] ["//[1]" /// ["[1][0]" phase] [reference - [variable {"+" Register}]] + [variable (.only Register)]] [meta - [archive {"+" Output Archive} - ["[0]" artifact {"+" Registry}]]]]]]) + [archive (.only Output Archive) + ["[0]" artifact (.only Registry)]]]]]]) (def: module_id 0) 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 41e0a328c..1bf8d5746 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 @@ -1,21 +1,21 @@ (.using - [library - [lux "*" - [abstract - ["[0]" monad {"+" do}]] - [data - [collection - ["[0]" list]]] - [target - ["_" scheme {"+" Expression}]]]] - ["[0]" // "_" - ["[1][0]" runtime {"+" Operation Phase Generator}] - ["[1][0]" primitive] - ["///[1]" //// "_" - [analysis {"+" Variant Tuple}] - ["[1][0]" synthesis {"+" Synthesis}] - ["//[1]" /// "_" - ["[1][0]" phase ("[1]#[0]" monad)]]]]) + [library + [lux "*" + [abstract + ["[0]" monad (.only do)]] + [data + [collection + ["[0]" list]]] + [target + ["_" scheme (.only Expression)]]]] + ["[0]" // "_" + ["[1][0]" runtime (.only Operation Phase Generator)] + ["[1][0]" primitive] + ["///[1]" //// "_" + [analysis (.only Variant Tuple)] + ["[1][0]" synthesis (.only Synthesis)] + ["//[1]" /// "_" + ["[1][0]" phase ("[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 38fc993d0..671b0cc8f 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 @@ -2,14 +2,14 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] ["[0]" try]] [data [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]]]] ["[0]" / "_" @@ -19,15 +19,15 @@ ["/[1]" // "_" ["[1][0]" extension] ["/[1]" // "_" - ["/" synthesis {"+" Synthesis Phase} + ["/" synthesis (.only Synthesis Phase) ["[1][0]" simple]] - ["[1][0]" analysis {"+" Analysis} + ["[1][0]" analysis (.only Analysis) ["[2][0]" simple] ["[2][0]" complex]] [/// ["[0]" phase ("[1]#[0]" monad)] - [reference {"+"} - [variable {"+"}]]]]]]) + [reference (.only) + [variable (.only)]]]]]]) (def: (simple analysis) (-> ///simple.Simple /simple.Simple) 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 0f8d92144..b530ca005 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 @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - ["[0]" monad {"+" do}]] + [equivalence (.only Equivalence)] + ["[0]" monad (.only do)]] [control ["[0]" pipe]] [data @@ -12,7 +12,7 @@ ["[0]" text ("[1]#[0]" equivalence)] [collection ["[0]" list ("[1]#[0]" functor mix monoid)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [macro ["^" pattern]] [math @@ -22,20 +22,20 @@ ["[0]" frac]]]]] ["[0]" /// "_" [// - ["[1][0]" analysis {"+" Match Analysis} + ["[1][0]" analysis (.only Match Analysis) ["[2][0]" simple] ["[2][0]" complex] - ["[2][0]" pattern {"+" Pattern}]] - ["/" synthesis {"+" Path Synthesis Operation Phase} + ["[2][0]" pattern (.only Pattern)]] + ["/" synthesis (.only Path Synthesis Operation Phase) ["[1][0]" access ["[2][0]" side] - ["[2][0]" member {"+" Member}]]] + ["[2][0]" member (.only Member)]]] [/// ["[1]" phase ("[1]#[0]" monad)] ["[1][0]" reference - ["[1]/[0]" variable {"+" Register Variable}]] + ["[1]/[0]" variable (.only Register Variable)]] [meta - [archive {"+" Archive}]]]]]) + [archive (.only Archive)]]]]]) (def: clean_up (-> Path Path) 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 e478001a6..27ffa8398 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 @@ -2,15 +2,15 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}] + ["[0]" monad (.only do)] ["[0]" enum]] [control ["[0]" pipe] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor monoid)]]] [macro @@ -19,16 +19,16 @@ [number ["n" nat]]]]] ["[0]" // "_" - ["[1][0]" loop {"+" Transform}] + ["[1][0]" loop (.only Transform)] ["//[1]" /// "_" - ["[1][0]" analysis {"+" Environment Analysis} + ["[1][0]" analysis (.only Environment Analysis) ["[1]/[0]" complex]] - ["/" synthesis {"+" Path Abstraction Synthesis Operation Phase}] + ["/" synthesis (.only Path Abstraction Synthesis Operation Phase)] [/// - [arity {"+" Arity}] + [arity (.only Arity)] ["[0]" phase ("[1]#[0]" monad)] ["[1][0]" reference - ["[1]/[0]" variable {"+" Register Variable}]]]]]) + ["[1]/[0]" variable (.only Register Variable)]]]]]) (exception: .public (cannot_find_foreign_variable_in_environment [foreign Register environment (Environment Synthesis)]) 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 c11213340..0115500cc 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 @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" monad)]] [data @@ -14,13 +14,13 @@ [number ["n" nat]]]]] [//// - ["[0]" analysis {"+" Environment} + ["[0]" analysis (.only Environment) ["[1]/[0]" complex]] - ["/" synthesis {"+" Path Abstraction Synthesis}] + ["/" synthesis (.only Path Abstraction Synthesis)] [/// - [arity {"+" Arity}] + [arity (.only Arity)] ["[0]" reference - ["[0]" variable {"+" Register Variable}]]]]) + ["[0]" variable (.only Register Variable)]]]]) (type: .public (Transform a) (-> a (Maybe a))) 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 366984646..ce8c4bec3 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 @@ -2,17 +2,17 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] ["[0]" text ["%" format]] [collection - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" list ("[1]#[0]" functor mix)] ["[0]" set]]] [macro @@ -23,12 +23,12 @@ [//// ["[0]" analysis ["[1]/[0]" complex]] - ["/" synthesis {"+" Path Synthesis} + ["/" synthesis (.only Path Synthesis) ["[1][0]" access]] [/// - [arity {"+" Arity}] + [arity (.only Arity)] ["[0]" reference - ["[0]" variable {"+" Register Variable}]]]]) + ["[0]" variable (.only Register Variable)]]]]) (def: (prune redundant register) (-> Register Register Register) 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 f3a2e5d69..ac9155e07 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux @@ -2,21 +2,21 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data ["[0]" product] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]]]] [//// [meta - ["[0]" archive {"+" Archive} - ["[0]" registry {"+" Registry}] + ["[0]" archive (.only Archive) + ["[0]" registry (.only Registry)] ["[0]" unit] [module ["[0]" descriptor]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux index 93ba961d0..1089264e9 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux @@ -29,18 +29,18 @@ [lux "*" ["@" target] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] [parser - [text {"+" Offset}]]] + [text (.only Offset)]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["[0]" template]] [meta 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 888ad1793..00cc68f16 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux @@ -2,21 +2,21 @@ [library [lux {"-" Scope i64} [abstract - [monad {"+" do}] - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [monad (.only do)] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" maybe] - ["[0]" exception {"+" exception:}]] + ["[0]" exception (.only exception:)]] [data ["[0]" sum] ["[0]" product] ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" Format format}]] + ["%" format (.only Format format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [macro ["^" pattern]] [math @@ -26,20 +26,20 @@ ["i" int] ["f" frac]]]]] ["[0]" / "_" - ["[1][0]" simple {"+" Simple}] - ["[1][0]" access {"+" Access} - ["[2][0]" side {"+" Side}] - ["[2][0]" member {"+" Member}]] + ["[1][0]" simple (.only Simple)] + ["[1][0]" access (.only Access) + ["[2][0]" side (.only Side)] + ["[2][0]" member (.only Member)]] [// - ["[0]" analysis {"+" Environment Analysis} - ["[1]/[0]" complex {"+" Complex}]] + ["[0]" analysis (.only Environment Analysis) + ["[1]/[0]" complex (.only Complex)]] [phase - ["[0]" extension {"+" Extension}]] + ["[0]" extension (.only Extension)]] [/// - [arity {"+" Arity}] + [arity (.only Arity)] ["[0]" phase] - ["[0]" reference {"+" Reference} - ["[0]" variable {"+" Register Variable}]]]]]) + ["[0]" reference (.only Reference) + ["[0]" variable (.only Register Variable)]]]]]) (type: .public Resolver (Dictionary Variable Variable)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access.lux index 236b46980..9426ad094 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access.lux @@ -2,15 +2,15 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" sum] [text - ["%" format {"+" Format}]]]]] + ["%" format (.only Format)]]]]] ["[0]" / "_" - ["[1][0]" side {"+" Side}] - ["[1][0]" member {"+" Member}]]) + ["[1][0]" side (.only Side)] + ["[1][0]" member (.only Member)]]) (type: .public Access (Variant diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux index a01e89668..e795d0467 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/member.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" product] ["[0]" bit] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux index c0be1fea6..fe3fea477 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis/access/side.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" product] ["[0]" bit] 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 741088fb0..7f2eb7e11 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 @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" pipe]] [data diff --git a/stdlib/source/library/lux/tool/compiler/meta.lux b/stdlib/source/library/lux/tool/compiler/meta.lux index aa506aa08..f98c648a0 100644 --- a/stdlib/source/library/lux/tool/compiler/meta.lux +++ b/stdlib/source/library/lux/tool/compiler/meta.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - [version {"+" Version}]]) + [version (.only Version)]]) (def: .public version Version diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 622a52d82..3df78a712 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -2,27 +2,27 @@ [library [lux {"-" Module has} [abstract - ["[0]" equivalence {"+" Equivalence}] - ["[0]" monad {"+" do}]] + ["[0]" equivalence (.only Equivalence)] + ["[0]" monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["[0]" function] ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [format - ["[0]" binary {"+" Writer}]] + ["[0]" binary (.only Writer)]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" set] - ["[0]" sequence {"+" Sequence}]]] + ["[0]" sequence (.only Sequence)]]] [math [number ["n" nat ("[1]#[0]" equivalence)]]] @@ -30,14 +30,14 @@ [primitive "*"]]]] [/ ["[0]" artifact] - ["[0]" registry {"+" Registry}] - ["[0]" signature {"+" Signature}] - ["[0]" key {"+" Key}] - ["[0]" module {"+" Module} - ["[0]" descriptor {"+" Descriptor}] - ["[0]" document {"+" Document}]] + ["[0]" registry (.only Registry)] + ["[0]" signature (.only Signature)] + ["[0]" key (.only Key)] + ["[0]" module (.only Module) + ["[0]" descriptor (.only Descriptor)] + ["[0]" document (.only Document)]] [/// - [version {"+" Version}]]]) + [version (.only Version)]]]) (type: .public Output (Sequence [artifact.ID (Maybe Text) Binary])) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux index 2aa066db1..cdb9bcf57 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [data ["[0]" product] ["[0]" bit] [collection - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["[0]" nat]]]]] ["[0]" / "_" - ["[1][0]" category {"+" Category}]]) + ["[1][0]" category (.only Category)]]) (type: .public ID Nat) 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 39bc31a5f..034489e93 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 @@ -2,7 +2,7 @@ [library [lux {"-" Definition} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["[0]" maybe]] [data @@ -14,7 +14,7 @@ [number ["[0]" nat]]]]] [///// - [arity {"+" Arity}]]) + [arity (.only Arity)]]) (type: .public Definition [Text (Maybe [Arity [Nat Nat]])]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/key.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/key.lux index 86d8cfe9e..43f396465 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/key.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/key.lux @@ -4,7 +4,7 @@ [type [primitive "*"]]]] [// - [signature {"+" Signature}]]) + [signature (.only Signature)]]) (primitive: .public (Key k) Signature diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/module.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/module.lux index 7004302b8..1bea114f6 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/module.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/module.lux @@ -2,8 +2,8 @@ [library [lux {"-" Module}]] [/ - [descriptor {"+" Descriptor}] - [document {"+" Document}]]) + [descriptor (.only Descriptor)] + [document (.only Document)]]) (type: .public ID Nat) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/module/descriptor.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/module/descriptor.lux index a03795255..45a4c4bef 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/module/descriptor.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/module/descriptor.lux @@ -2,24 +2,24 @@ [library [lux {"-" Module} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data ["[0]" product] ["[0]" text] [collection - ["[0]" set {"+" Set}]] + ["[0]" set (.only Set)]] ["[0]" format "_" - ["[1]" binary {"+" Writer}]]] + ["[1]" binary (.only Writer)]]] [macro ["^" pattern]] [math [number ["[0]" nat]]] [world - [file {"+" Path}]]]]) + [file (.only Path)]]]]) (type: .public Module Text) 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 8c1eae9ca..1b4dbe7d4 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 @@ -2,22 +2,22 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] ["<>" parser - [binary {"+" Parser}]]] + [binary (.only Parser)]]] [data [collection - ["[0]" dictionary {"+" Dictionary}]] + ["[0]" dictionary (.only Dictionary)]] [format - ["[0]" binary {"+" Writer}]]] - [type {"+" sharing} + ["[0]" binary (.only Writer)]]] + [type (.only sharing) [primitive "*"]]]] [/// - ["[0]" signature {"+" Signature} ("[1]#[0]" equivalence)] - ["[0]" key {"+" Key}]]) + ["[0]" signature (.only Signature) ("[1]#[0]" equivalence)] + ["[0]" key (.only Key)]]) (exception: .public (invalid_signature [expected Signature actual 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 5ebd0f2f3..d331a8022 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux @@ -2,32 +2,32 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" pipe] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - [set {"+" Set}] + [set (.only Set)] ["[0]" list] - ["[0]" sequence {"+" Sequence} ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}]] + ["[0]" sequence (.only Sequence) ("[1]#[0]" functor mix)] + ["[0]" dictionary (.only Dictionary)]] [format - ["[0]" binary {"+" Writer}]]] + ["[0]" binary (.only Writer)]]] [macro ["^" pattern]] [type [primitive "*"]]]] ["[0]" // "_" ["[0]" unit] - ["[1]" artifact {"+" Artifact ID} - ["[2][0]" category {"+" Category}]]]) + ["[1]" artifact (.only Artifact ID) + ["[2][0]" category (.only Category)]]]) (primitive: .public Registry (Record diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux index a9ade8ed9..4b86838c3 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux @@ -2,23 +2,23 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [format - ["[0]" binary {"+" Writer}]]] + ["[0]" binary (.only Writer)]]] [math [number ["[0]" nat]]] [meta ["[0]" symbol]]]] [//// - ["[0]" version {"+" Version}]]) + ["[0]" version (.only Version)]]) (type: .public Signature (Record diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux index 63221895e..3caa41eb9 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/unit.lux @@ -2,14 +2,14 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" product] [text ["%" format]] [collection - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["[0]" nat]]]]] diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache.lux b/stdlib/source/library/lux/tool/compiler/meta/cache.lux index 72470f228..d3d136fcc 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache.lux @@ -2,16 +2,16 @@ [library [lux "*" [abstract - [monad {"+" Monad do}]] + [monad (.only Monad do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [world ["[0]" file]]]] ["[0]" // - ["[0]" context {"+" Context}] + ["[0]" context (.only Context)] [// ["[0]" version]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux index c31f86f25..159c90a8c 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux @@ -2,7 +2,7 @@ [library [lux "*" [control - [try {"+" Try}]] + [try (.only Try)]] [data [text ["%" format]]] @@ -10,8 +10,8 @@ ["[0]" file]]]] ["[0]" // ["/[1]" // - [context {"+" Context}] - ["[0]" archive {"+" Archive}]]]) + [context (.only Context)] + ["[0]" archive (.only Archive)]]]) (def: .public (descriptor fs context) (All (_ !) (-> (file.System !) Context file.Path)) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux index 5917e328b..8d1f1fe8b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux @@ -1,21 +1,21 @@ (.using [library [lux "*" - [target {"+" Target}] + [target (.only Target)] [control - [try {"+" Try}] + [try (.only Try)] [concurrency - ["[0]" async {"+" Async}]]] + ["[0]" async (.only Async)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [world ["[0]" file]]]] ["[0]" // "_" ["[1][0]" module] [// - ["[0]" context {"+" Context}] + ["[0]" context (.only Context)] [archive ["[0]" module] ["[0]" artifact]]]]) 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 78269e9a6..b0908a846 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 @@ -3,14 +3,14 @@ [library [lux {"-" all} [abstract - [hash {"+" Hash}] - ["[0]" monad {"+" do}]] + [hash (.only Hash)] + ["[0]" monad (.only do)]] [data ["[0]" product] [collection ["[0]" list ("[1]#[0]" monoid mix monad)] - ["[0]" set {"+" Set}] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" set (.only Set)] + ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]]] [macro ["^" pattern]] @@ -22,17 +22,17 @@ [tool [compiler ["[0]" phase] - ["[0]" reference {"+" Constant}] + ["[0]" reference (.only Constant)] [language [lux - ["[0]" synthesis {"+" Synthesis Path}] - ["[0]" generation {"+" Operation}] + ["[0]" synthesis (.only Synthesis Path)] + ["[0]" generation (.only Operation)] ["[0]" analysis ["[1]/[0]" complex]]]] [meta - ["[0]" archive {"+" Archive} + ["[0]" archive (.only Archive) ["[0]" artifact] - ["[0]" registry {"+" Registry}] + ["[0]" registry (.only Registry)] ["[0]" unit]]]]]]]) (def: (path_references references) 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 2db68a99d..16dc70b49 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 @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] ["[0]" state] [function - ["[0]" memo {"+" Memo}]]] + ["[0]" memo (.only Memo)]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" set {"+" Set}]]]]] + ["[0]" dictionary (.only Dictionary)] + ["[0]" set (.only Set)]]]]] [//// - ["[0]" archive {"+" Output Archive} - [key {"+" Key}] + ["[0]" archive (.only Output Archive) + [key (.only Key)] ["[0]" module - ["[0]" descriptor {"+" Descriptor}] - ["[0]" document {"+" Document}]]]]) + ["[0]" descriptor (.only Descriptor)] + ["[0]" document (.only Document)]]]]) (type: .public Ancestry (Set descriptor.Module)) 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 426a68589..5536850eb 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux @@ -3,24 +3,24 @@ [lux "*" ["@" target] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control ["[0]" pipe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] [world ["[0]" file]]]] ["[0]" // [// - [context {"+" Context}] + [context (.only Context)] [archive ["[0]" module]]]]) 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 55701b3f3..cfa21d5e4 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/purge.lux @@ -2,17 +2,17 @@ [library [lux "*" [abstract - [predicate {"+" Predicate}] - ["[0]" monad {"+" Monad do}]] + [predicate (.only Predicate)] + ["[0]" monad (.only Monad do)]] [control - ["[0]" try {"+" Try} ("[1]#[0]" functor)] + ["[0]" try (.only Try) ("[1]#[0]" functor)] [concurrency - ["[0]" async {"+" Async}]]] + ["[0]" async (.only Async)]]] [data ["[0]" text ("[1]#[0]" equivalence)] [collection ["[0]" list ("[1]#[0]" mix functor)] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" set]]] [math [number @@ -24,12 +24,12 @@ ["[0]" dependency "_" ["[1]" module]] ["/[1]" // "_" - [context {"+" Context}] - ["/[1]" // {"+" Input}] + [context (.only Context)] + ["/[1]" // (.only Input)] ["[0]" archive - [registry {"+" Registry}] + [registry (.only Registry)] ["[0]" module - ["[0]" descriptor {"+" Descriptor}]]]]]) + ["[0]" descriptor (.only Descriptor)]]]]]) (type: .public Cache [Bit descriptor.Module module.ID (module.Module Any) Registry]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cli.lux b/stdlib/source/library/lux/tool/compiler/meta/cli.lux index 776ed07be..b88f23b0d 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cli.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cli.lux @@ -2,12 +2,12 @@ [library [lux {"-" Module Source} [abstract - [monad {"+" do}] - [equivalence {"+" Equivalence}]] + [monad (.only do)] + [equivalence (.only Equivalence)]] [control ["[0]" pipe] ["<>" parser - ["<[0]>" cli {"+" Parser}] + ["<[0]>" cli (.only Parser)] ["<[0]>" text]]] [data ["[0]" product] @@ -18,10 +18,10 @@ [macro ["^" pattern]] [math - [number {"+" hex}]] + [number (.only hex)]] [meta ["[0]" symbol] - ["[0]" configuration {"+" Configuration}]] + ["[0]" configuration (.only Configuration)]] [tool [compiler [meta @@ -29,9 +29,9 @@ [module ["[0]" descriptor]]]]]] [world - [file {"+" Path}]]]] + [file (.only Path)]]]] ["[0]" / "_" - ["[1][0]" compiler {"+" Compiler}]]) + ["[1][0]" compiler (.only Compiler)]]) (type: .public Host_Dependency Path) 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 ad3d3f124..886249921 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cli/compiler.lux @@ -2,11 +2,11 @@ [library [lux {"-" parameter} [abstract - [monad {"+" do}] - [equivalence {"+" Equivalence}]] + [monad (.only do)] + [equivalence (.only Equivalence)]] [control ["<>" parser - ["<[0]>" text {"+" Parser}]]] + ["<[0]>" text (.only Parser)]]] [data ["[0]" product] ["[0]" text @@ -14,7 +14,7 @@ [collection ["[0]" list ("[1]#[0]" functor)]]] [math - [number {"+" hex}]] + [number (.only hex)]] [meta ["[0]" symbol]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/context.lux b/stdlib/source/library/lux/tool/compiler/meta/context.lux index 8ee5e28a0..b22eebd1d 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/context.lux @@ -1,9 +1,9 @@ (.using [library [lux "*" - ["@" target {"+" Target}] + ["@" target (.only Target)] [world - [file {"+" Path}]]]]) + [file (.only Path)]]]]) (type: .public Extension Text) diff --git a/stdlib/source/library/lux/tool/compiler/meta/export.lux b/stdlib/source/library/lux/tool/compiler/meta/export.lux index 3d1361d10..3af593556 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/export.lux @@ -2,14 +2,14 @@ [library [lux {"-" Source} [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try} ("[1]#[0]" monad)] + ["[0]" try (.only Try) ("[1]#[0]" monad)] [concurrency - ["[0]" async {"+" Async} ("[1]#[0]" functor)]]] + ["[0]" async (.only Async) ("[1]#[0]" functor)]]] [data ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" dictionary] ["[0]" sequence]] @@ -21,7 +21,7 @@ [tool [compiler [meta - [cli {"+" Source Export}] + [cli (.only Source Export)] ["[0]" io "_" ["[1]" context]]]]] [world diff --git a/stdlib/source/library/lux/tool/compiler/meta/import.lux b/stdlib/source/library/lux/tool/compiler/meta/import.lux index f0c390e3a..d1ce94369 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/import.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/import.lux @@ -2,27 +2,27 @@ [library [lux {"-" Module} [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [concurrency - ["[0]" async {"+" Async}]] + ["[0]" async (.only Async)]] ["<>" parser ["<[0]>" binary]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" text ["%" format]] [collection - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" sequence]] [format ["[0]" tar]]] [tool [compiler [meta - [cli {"+" Library Module}]]]] + [cli (.only Library Module)]]]] [world ["[0]" file]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io.lux b/stdlib/source/library/lux/tool/compiler/meta/io.lux index e0262eba8..f2208d52f 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io.lux @@ -1,10 +1,10 @@ (.using - [library - [lux {"-" Code} - [data - ["[0]" text]] - [world - [file {"+" Path System}]]]]) + [library + [lux {"-" Code} + [data + ["[0]" text]] + [world + [file (.only Path System)]]]]) (type: .public Context Path) 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 37f464b01..22424beb5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -1,53 +1,53 @@ (.using [library [lux "*" - ["@" target {"+" Target}] + ["@" target (.only Target)] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] [concurrency - ["[0]" async {"+" Async} ("[1]#[0]" monad)]] + ["[0]" async (.only Async) ("[1]#[0]" monad)]] ["<>" parser - ["<[0]>" binary {"+" Parser}]]] + ["<[0]>" binary (.only Parser)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - [set {"+" Set}] + [set (.only Set)] ["[0]" list ("[1]#[0]" mix)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" sequence {"+" Sequence}]]] + ["[0]" dictionary (.only Dictionary)] + ["[0]" sequence (.only Sequence)]]] [macro ["^" pattern]] [meta - ["[0]" configuration {"+" Configuration}] + ["[0]" configuration (.only Configuration)] ["[0]" version]] [world ["[0]" file]]]] ["[0]" // ["[1][0]" context] ["/[1]" // - [import {"+" Import}] - ["[0]" context {"+" Context}] - ["[0]" archive {"+" Output Archive} - [key {"+" Key}] - ["[0]" registry {"+" Registry}] + [import (.only Import)] + ["[0]" context (.only Context)] + ["[0]" archive (.only Output Archive) + [key (.only Key)] + ["[0]" registry (.only Registry)] ["[0]" unit] - ["[0]" artifact {"+" Artifact} - ["[0]" category {"+" Category}]] + ["[0]" artifact (.only Artifact) + ["[0]" category (.only Category)]] ["[0]" module - ["[0]" descriptor {"+" Descriptor}] - ["[0]" document {"+" Document}]]] + ["[0]" descriptor (.only Descriptor)] + ["[0]" document (.only Document)]]] ["[0]" cache ["[1]/[0]" archive] ["[1]/[0]" module] - ["[1]/[0]" purge {"+" Cache Purge}] + ["[1]/[0]" purge (.only Cache Purge)] ["[0]" dependency "_" ["[1]" module]]] - [// {"+" Custom} + [// (.only Custom) [language ["$" lux ["[0]" analysis] 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 548a89b36..a5eec2a2a 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux @@ -3,32 +3,32 @@ [lux {"-" Module Code} ["@" target] [abstract - [predicate {"+" Predicate}] - ["[0]" monad {"+" Monad do}]] + [predicate (.only Predicate)] + ["[0]" monad (.only Monad do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [concurrency - ["[0]" async {"+" Async} ("[1]#[0]" monad)]]] + ["[0]" async (.only Async) ("[1]#[0]" monad)]]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" text ("[1]#[0]" hash) - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" list]]] [world ["[0]" file]]]] - ["[0]" // {"+" Context Code} + ["[0]" // (.only Context Code) ["/[1]" // "_" - [import {"+" Import}] - ["/[1]" // {"+" Input}] + [import (.only Import)] + ["/[1]" // (.only Input)] [archive [module - [descriptor {"+" Module}]]]]]) + [descriptor (.only Module)]]]]]) (exception: .public (cannot_find_module [importer Module module Module]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux index a92bdbbe1..50edd78a3 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux @@ -2,12 +2,12 @@ [library [lux "*" [control - [try {"+" Try}]] + [try (.only Try)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] [collection - [dictionary {"+" Dictionary}] + [dictionary (.only Dictionary)] ["[0]" sequence] ["[0]" list ("[1]#[0]" functor)]]] [world @@ -16,7 +16,7 @@ ["[0]" cache "_" [dependency ["[1]/[0]" module]]] - ["[0]" archive {"+" Archive} + ["[0]" archive (.only Archive) ["[0]" artifact] ["[0]" registry] ["[0]" unit] 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 ac4987646..292586658 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux @@ -1,21 +1,21 @@ (.using [library [lux {"-" Module Definition} - ["[0]" ffi {"+" import: do_to}] + ["[0]" ffi (.only import: do_to)] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" sequence] ["[0]" list ("[1]#[0]" functor)] ["[0]" dictionary] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [math [number ["n" nat] @@ -26,14 +26,14 @@ ["[0]" name]]]] [world ["[0]" file]]]] - ["[0]" // {"+" Packager} + ["[0]" // (.only Packager) [// - ["[0]" context {"+" Context}] - ["[0]" archive {"+" Output} + ["[0]" context (.only Context)] + ["[0]" archive (.only Output) ["[0]" artifact] ["[0]" unit] ["[0]" module - ["[0]" descriptor {"+" Module}]]] + ["[0]" descriptor (.only Module)]]] ["[0]" cache "_" [dependency ["[1]/[0]" module] @@ -46,7 +46,7 @@ [phase [generation [jvm - ["[0]" runtime {"+" Definition}]]]]]]]]]) + ["[0]" runtime (.only Definition)]]]]]]]]]) (import: java/lang/Object "[1]::[0]") 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 1f0506a00..f2e9a3bfd 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux @@ -1,23 +1,23 @@ (.using [library [lux "*" - [type {"+" sharing}] + [type (.only sharing)] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" sequence] ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] - ["[0]" set {"+" Set}]]] + ["[0]" dictionary (.only Dictionary)] + ["[0]" set (.only Set)]]] [math [number ["[0]" nat]]] @@ -25,18 +25,18 @@ ["_" ruby]] [world ["[0]" file]]]] - ["[0]" // {"+" Packager} + ["[0]" // (.only Packager) [// - ["[0]" archive {"+" Output} - [registry {"+" Registry}] + ["[0]" archive (.only Output) + [registry (.only Registry)] ["[0]" artifact] ["[0]" unit] ["[0]" module ["[0]" descriptor] - ["[0]" document {"+" Document}]]] + ["[0]" document (.only Document)]]] ["[0]" cache "_" [dependency - ["[1]/[0]" module {"+" Order}] + ["[1]/[0]" module (.only Order)] ["[1]/[0]" artifact]]] ["[0]" io "_" ["[1]" archive]] 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 5c6b6176b..f1b740052 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -1,21 +1,21 @@ (.using [library [lux {"-" Module} - [type {"+" sharing}] + [type (.only sharing)] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] ["[0]" text - ["%" format {"+" format}] + ["%" format (.only format)] ["[0]" encoding]] [collection ["[0]" sequence] ["[0]" list ("[1]#[0]" functor mix)] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" set]] [format ["[0]" tar] @@ -23,18 +23,18 @@ [target ["_" scheme]] [time - ["[0]" instant {"+" Instant}]] + ["[0]" instant (.only Instant)]] [world ["[0]" file]]]] [program [compositor - ["[0]" static {"+" Static}]]] - ["[0]" // {"+" Packager} + ["[0]" static (.only Static)]]] + ["[0]" // (.only Packager) [// - ["[0]" archive {"+" Output} - ["[0]" descriptor {"+" Module Descriptor}] + ["[0]" archive (.only Output) + ["[0]" descriptor (.only Module Descriptor)] ["[0]" artifact] - ["[0]" document {"+" Document}]] + ["[0]" document (.only Document)]] [cache ["[0]" dependency]] ["[0]" io "_" @@ -42,7 +42,7 @@ [// [language ["$" lux - [generation {"+" Context}]]]]]]) + [generation (.only Context)]]]]]]) ... TODO: Delete ASAP (type: (Action ! a) 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 37db58b89..34eb0b4ef 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux @@ -1,25 +1,25 @@ (.using [library [lux "*" - [type {"+" sharing}] + [type (.only sharing)] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [data - [binary {"+" Binary}] + [binary (.only Binary)] ["[0]" product] [text - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection ["[0]" sequence] - ["[0]" set {"+" Set}] + ["[0]" set (.only Set)] ["[0]" list ("[1]#[0]" functor)]]]]] - ["[0]" // {"+" Packager} + ["[0]" // (.only Packager) [// - ["[0]" archive {"+" Output} + ["[0]" archive (.only Output) ["[0]" artifact] ["[0]" unit] ["[0]" module diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index ff07d7226..a38199dda 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -2,23 +2,23 @@ [library [lux "*" [abstract - [functor {"+" Functor}] - [monad {"+" Monad do}]] + [functor (.only Functor)] + [monad (.only Monad do)]] [control ["[0]" state] - ["[0]" try {"+" Try} ("[1]#[0]" functor)] - ["[0]" exception {"+" Exception}] + ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" exception (.only Exception)] ["[0]" io]] [data ["[0]" product] [text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [time ["[0]" instant] ["[0]" duration]]]] [// [meta - [archive {"+" Archive}]]]) + [archive (.only Archive)]]]) (type: .public (Operation s o) (state.+State Try s o)) diff --git a/stdlib/source/library/lux/tool/compiler/reference.lux b/stdlib/source/library/lux/tool/compiler/reference.lux index 083f7e568..696fe9ff9 100644 --- a/stdlib/source/library/lux/tool/compiler/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/reference.lux @@ -2,13 +2,13 @@ [library [lux {"-" local} [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" pipe]] [data [text - ["%" format {"+" Format}]]] + ["%" format (.only Format)]]] [macro ["^" pattern]] [math @@ -17,7 +17,7 @@ [meta ["[0]" symbol]]]] ["[0]" / "_" - ["[1][0]" variable {"+" Variable}]]) + ["[1][0]" variable (.only Variable)]]) (type: .public Constant Symbol) diff --git a/stdlib/source/library/lux/tool/compiler/reference/variable.lux b/stdlib/source/library/lux/tool/compiler/reference/variable.lux index 248398d35..77b13e7de 100644 --- a/stdlib/source/library/lux/tool/compiler/reference/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/reference/variable.lux @@ -2,13 +2,13 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [control ["[0]" pipe]] [data [text - ["%" format {"+" Format}]]] + ["%" format (.only Format)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index 60f200d18..1870684a7 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -2,13 +2,13 @@ [library [lux "*" [control - [monad {"+" Monad do}] - ["[0]" try {"+" Try}] - ["ex" exception {"+" exception:}]] + [monad (.only Monad do)] + ["[0]" try (.only Try)] + ["ex" exception (.only exception:)]] [data ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]]] - [type {"+" sharing} + ["%" format (.only format)]]] + [type (.only sharing) ["[0]" check]] [compiler ["[0]" phase @@ -16,17 +16,17 @@ ["[0]" module] ["[0]" type]] ["[0]" generation] - ["[0]" directive {"+" State+ Operation} + ["[0]" directive (.only State+ Operation) ["[0]" total]] ["[0]" extension]] ["[0]" default ["[0]" syntax] - ["[0]" platform {"+" Platform}] + ["[0]" platform (.only Platform)] ["[0]" init]] - ["[0]" cli {"+" Configuration}]] + ["[0]" cli (.only Configuration)]] [world - ["[0]" file {"+" File}] - ["[0]" console {"+" Console}]]]] + ["[0]" file (.only File)] + ["[0]" console (.only Console)]]]] ["[0]" /type]) (exception: .public (error [message Text]) diff --git a/stdlib/source/library/lux/tool/mediator.lux b/stdlib/source/library/lux/tool/mediator.lux index 3faf64f95..dda3701f9 100644 --- a/stdlib/source/library/lux/tool/mediator.lux +++ b/stdlib/source/library/lux/tool/mediator.lux @@ -1,14 +1,14 @@ (.using - [library - [lux {"-" Source Module} - [world - ["[0]" binary {"+" Binary}] - ["[0]" file {"+" Path}]]]] - [// - [compiler {"+" Compiler} - [meta - ["[0]" archive {"+" Archive} - [descriptor {"+" Module}]]]]]) + [library + [lux {"-" Source Module} + [world + ["[0]" binary (.only Binary)] + ["[0]" file (.only Path)]]]] + [// + [compiler (.only Compiler) + [meta + ["[0]" archive (.only Archive) + [descriptor (.only Module)]]]]]) (type: .public Source Path) diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux index 7d3edd65f..d9b6b2867 100644 --- a/stdlib/source/library/lux/type.lux +++ b/stdlib/source/library/lux/type.lux @@ -3,14 +3,14 @@ [lux {"-" function as let} ["@" target] [abstract - [equivalence {"+" Equivalence}] - [monad {"+" Monad do}]] + [equivalence (.only Equivalence)] + [monad (.only Monad do)]] [control ["[0]" function] ["[0]" maybe] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid equivalence)] @@ -18,7 +18,7 @@ ["[0]" array] ["[0]" list ("[1]#[0]" monad monoid mix)]]] ["[0]" macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/type/check.lux b/stdlib/source/library/lux/type/check.lux index 9cd171aaf..b38763b02 100644 --- a/stdlib/source/library/lux/type/check.lux +++ b/stdlib/source/library/lux/type/check.lux @@ -3,19 +3,19 @@ [lux {"-" try} ["@" target] [abstract - [functor {"+" Functor}] - [apply {"+" Apply}] - ["[0]" monad {"+" Monad do}]] + [functor (.only Functor)] + [apply (.only Apply)] + ["[0]" monad (.only Monad do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" Exception exception:}]] + ["[0]" try (.only Try)] + ["[0]" exception (.only Exception exception:)]] [data ["[0]" product] ["[0]" text ("[1]#[0]" monoid equivalence)] [collection ["[0]" list ("[1]#[0]" mix)] - ["[0]" set {"+" Set}]]] + ["[0]" set (.only Set)]]] [macro ["^" pattern]] [math diff --git a/stdlib/source/library/lux/type/dynamic.lux b/stdlib/source/library/lux/type/dynamic.lux index d24b16dd4..8f380473f 100644 --- a/stdlib/source/library/lux/type/dynamic.lux +++ b/stdlib/source/library/lux/type/dynamic.lux @@ -3,17 +3,17 @@ [lux {"-" static} ["[0]" debug] [control - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [parser ["<[0]>" code]]] [data [text ["%" format]]] - [macro {"+" with_symbols} - ["[0]" syntax {"+" syntax:}]] + [macro (.only with_symbols) + ["[0]" syntax (.only syntax:)]] ["[0]" type - ["[0]" primitive {"+" primitive:}]]]]) + ["[0]" primitive (.only primitive:)]]]]) (exception: .public (wrong_type [expected Type actual Type]) diff --git a/stdlib/source/library/lux/type/implicit.lux b/stdlib/source/library/lux/type/implicit.lux index 26cc9cdb3..a0b858a4f 100644 --- a/stdlib/source/library/lux/type/implicit.lux +++ b/stdlib/source/library/lux/type/implicit.lux @@ -2,29 +2,29 @@ [library [lux "*" [abstract - ["[0]" monad {"+" do}] + ["[0]" monad (.only do)] ["[0]" equivalence]] [control ["[0]" maybe] ["[0]" try] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" monad mix)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] ["[0]" macro ["[0]" code] - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [math ["[0]" number ["n" nat]]] ["[0]" meta] ["[0]" type ("[1]#[0]" equivalence) - ["[0]" check {"+" Check}]]]]) + ["[0]" check (.only Check)]]]]) (def: (type_var id env) (-> Nat Type_Context (Meta Type)) diff --git a/stdlib/source/library/lux/type/poly.lux b/stdlib/source/library/lux/type/poly.lux index 53145e4e6..38ff41b36 100644 --- a/stdlib/source/library/lux/type/poly.lux +++ b/stdlib/source/library/lux/type/poly.lux @@ -4,20 +4,20 @@ ["[0]" meta] ["[0]" type] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" maybe] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" type {"+" Env}] - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" type (.only Env)] + ["<[0]>" code (.only Parser)]]] [data ["[0]" product] ["[0]" text] [collection ["[0]" list ("[1]#[0]" functor)] ["[0]" dictionary]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}] + [macro (.only with_symbols) + [syntax (.only syntax:)] ["^" pattern] ["[0]" code]] [math diff --git a/stdlib/source/library/lux/type/primitive.lux b/stdlib/source/library/lux/type/primitive.lux index 28dd48137..870d4c9db 100644 --- a/stdlib/source/library/lux/type/primitive.lux +++ b/stdlib/source/library/lux/type/primitive.lux @@ -3,11 +3,11 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" Monad do}]] + [monad (.only Monad do)]] [control - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" text ("[1]#[0]" equivalence monoid)] [collection @@ -15,7 +15,7 @@ [macro ["^" pattern] ["[0]" code] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" export]]] [meta ["[0]" symbol ("[1]#[0]" codec)]]]] diff --git a/stdlib/source/library/lux/type/quotient.lux b/stdlib/source/library/lux/type/quotient.lux index 3eb7cb6f3..7ffa81b12 100644 --- a/stdlib/source/library/lux/type/quotient.lux +++ b/stdlib/source/library/lux/type/quotient.lux @@ -2,12 +2,12 @@ [library [lux {"-" type} [abstract - [equivalence {"+" Equivalence}]] + [equivalence (.only Equivalence)]] [control [parser ["<[0]>" code]]] - [macro {"+" with_symbols} - [syntax {"+" syntax:}]] + [macro (.only with_symbols) + [syntax (.only syntax:)]] ["[0]" type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/type/refinement.lux b/stdlib/source/library/lux/type/refinement.lux index 1ae7e761e..f7ea0d542 100644 --- a/stdlib/source/library/lux/type/refinement.lux +++ b/stdlib/source/library/lux/type/refinement.lux @@ -1,13 +1,13 @@ (.using [library - [lux {"-" type} + [lux {"-" type only} [abstract - [predicate {"+" Predicate}]] + [predicate (.only Predicate)]] [control [parser ["<[0]>" code]]] ["[0]" macro - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] ["[0]" type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/type/resource.lux b/stdlib/source/library/lux/type/resource.lux index f198e3619..bb2352a86 100644 --- a/stdlib/source/library/lux/type/resource.lux +++ b/stdlib/source/library/lux/type/resource.lux @@ -3,22 +3,22 @@ [lux "*" ["[0]" meta] [abstract - ["[0]" monad {"+" Monad do} - [indexed {"+" IxMonad}]]] + ["[0]" monad (.only Monad do) + [indexed (.only IxMonad)]]] [control ["[0]" maybe] - ["[0]" exception {"+" exception:}] + ["[0]" exception (.only exception:)] ["<>" parser - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" set] - ["[0]" sequence {"+" Sequence}] + ["[0]" sequence (.only Sequence)] ["[0]" list ("[1]#[0]" functor mix)]]] ["[0]" macro - [syntax {"+" syntax:}]] + [syntax (.only syntax:)]] [math [number ["n" nat]]] diff --git a/stdlib/source/library/lux/type/unit.lux b/stdlib/source/library/lux/type/unit.lux index e822dcded..50682cdd8 100644 --- a/stdlib/source/library/lux/type/unit.lux +++ b/stdlib/source/library/lux/type/unit.lux @@ -3,26 +3,26 @@ [lux "*" ["[0]" meta] [abstract - [monad {"+" Monad do}] - [equivalence {"+" Equivalence}] - [order {"+" Order}] - [enum {"+" Enum}]] + [monad (.only Monad do)] + [equivalence (.only Equivalence)] + [order (.only Order)] + [enum (.only Enum)]] [control ["<>" parser ("[1]#[0]" monad) - ["<[0]>" code {"+" Parser}]]] + ["<[0]>" code (.only Parser)]]] [data ["[0]" text - ["%" format {"+" format}]]] + ["%" format (.only format)]]] [macro ["[0]" code] ["[0]" template] - [syntax {"+" syntax:} + [syntax (.only syntax:) ["|[0]|" export]]] [math [number ["n" nat] ["i" int] - ["[0]" ratio {"+" Ratio}]]] + ["[0]" ratio (.only Ratio)]]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/world/console.lux b/stdlib/source/library/lux/world/console.lux index 00346ef03..75d963612 100644 --- a/stdlib/source/library/lux/world/console.lux +++ b/stdlib/source/library/lux/world/console.lux @@ -2,20 +2,20 @@ [library [lux "*" ["@" target] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" maybe] - ["[0]" try {"+" Try} ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO io} ("[1]#[0]" functor)] + ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO io) ("[1]#[0]" functor)] [concurrency - ["[0]" async {"+" Async} ("[1]#[0]" monad)] + ["[0]" async (.only Async) ("[1]#[0]" monad)] ["[0]" atom]]] [data - ["[0]" text {"+" Char} - ["%" format {"+" format}]]]]]) + ["[0]" text (.only Char) + ["%" format (.only format)]]]]]) (type: .public (Console !) (Interface diff --git a/stdlib/source/library/lux/world/db/jdbc.lux b/stdlib/source/library/lux/world/db/jdbc.lux index 748f2955d..ad9944425 100644 --- a/stdlib/source/library/lux/world/db/jdbc.lux +++ b/stdlib/source/library/lux/world/db/jdbc.lux @@ -2,28 +2,28 @@ [library [lux {"-" and int} [control - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}] - ["[0]" try {"+" Try}] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)] + ["[0]" try (.only Try)] ["ex" exception] [concurrency - ["[0]" async {"+" Async} ("[1]#[0]" monad)]] + ["[0]" async (.only Async) ("[1]#[0]" monad)]] [security - ["!" capability {"+" capability:}]]] + ["!" capability (.only capability:)]]] [data ["[0]" product] [text - ["%" format {"+" format}]]] - ["[0]" io {"+" IO}] + ["%" format (.only format)]]] + ["[0]" io (.only IO)] [world - [net {"+" URL}]] - [host {"+" import:}]]] + [net (.only URL)]] + [host (.only import:)]]] [// ["[0]" sql]] ["[0]" / "_" - ["[1][0]" input {"+" Input}] - ["[1][0]" output {"+" Output}]]) + ["[1][0]" input (.only Input)] + ["[1][0]" output (.only Output)]]) (import: java/lang/String) diff --git a/stdlib/source/library/lux/world/db/jdbc/input.lux b/stdlib/source/library/lux/world/db/jdbc/input.lux index 49f7557b1..742467b81 100644 --- a/stdlib/source/library/lux/world/db/jdbc/input.lux +++ b/stdlib/source/library/lux/world/db/jdbc/input.lux @@ -1,16 +1,16 @@ (.using - [library - [lux {"-" and int} - [ffi {"+" import:}] - [control - [functor {"+" Contravariant}] - [monad {"+" Monad do}] - ["[0]" try {"+" Try}]] - [time - ["[0]" instant {"+" Instant}]] - ["[0]" io {"+" IO}] - [world - [binary {"+" Binary}]]]]) + [library + [lux {"-" and int} + [ffi (.only import:)] + [control + [functor (.only Contravariant)] + [monad (.only Monad do)] + ["[0]" try (.only Try)]] + [time + ["[0]" instant (.only Instant)]] + ["[0]" io (.only IO)] + [world + [binary (.only Binary)]]]]) (import: java/lang/String) diff --git a/stdlib/source/library/lux/world/db/jdbc/output.lux b/stdlib/source/library/lux/world/db/jdbc/output.lux index 6de6b9d57..cf195b35c 100644 --- a/stdlib/source/library/lux/world/db/jdbc/output.lux +++ b/stdlib/source/library/lux/world/db/jdbc/output.lux @@ -1,18 +1,18 @@ (.using [library [lux {"-" and int} - [ffi {"+" import:}] + [ffi (.only import:)] [control - [functor {"+" Functor}] - [apply {"+" Apply}] - [monad {"+" Monad do}] + [functor (.only Functor)] + [apply (.only Apply)] + [monad (.only Monad do)] ["ex" exception] - ["[0]" try {"+" Try}]] + ["[0]" try (.only Try)]] [time - ["[0]" instant {"+" Instant}]] - ["[0]" io {"+" IO}] + ["[0]" instant (.only Instant)]] + ["[0]" io (.only IO)] [world - [binary {"+" Binary}]]]]) + [binary (.only Binary)]]]]) (import: java/lang/String) diff --git a/stdlib/source/library/lux/world/db/sql.lux b/stdlib/source/library/lux/world/db/sql.lux index 218d64ccf..952bab958 100644 --- a/stdlib/source/library/lux/world/db/sql.lux +++ b/stdlib/source/library/lux/world/db/sql.lux @@ -2,12 +2,12 @@ [library [lux {"-" Source Definition function and or not type int} [control - [monad {"+" do}]] + [monad (.only do)]] [data [number ["i" int]] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection ["[0]" list ("[1]#[0]" functor)]]] [macro diff --git a/stdlib/source/library/lux/world/file.lux b/stdlib/source/library/lux/world/file.lux index 820ab92e0..300751aaa 100644 --- a/stdlib/source/library/lux/world/file.lux +++ b/stdlib/source/library/lux/world/file.lux @@ -3,27 +3,27 @@ [lux {"-" open} ["@" target] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control ["[0]" pipe] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try} ("[1]#[0]" functor)] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO} ("[1]#[0]" functor)] + ["[0]" try (.only Try) ("[1]#[0]" functor)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO) ("[1]#[0]" functor)] ["[0]" function] [concurrency - ["[0]" async {"+" Async}] - ["[0]" stm {"+" Var STM}]]] + ["[0]" async (.only Async)] + ["[0]" stm (.only Var STM)]]] [data ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" product] - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] ["[0]" text ("[1]#[0]" equivalence) - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" array {"+" Array}] + ["[0]" array (.only Array)] ["[0]" list ("[1]#[0]" functor)] - ["[0]" dictionary {"+" Dictionary}]]] + ["[0]" dictionary (.only Dictionary)]]] ["[0]" ffi (~~ (.for "JavaScript" (~~ (.these ["[0]" node_js])) "{old}" (~~ (.these ["node_js" //control/thread])) @@ -35,7 +35,7 @@ ["i" int] ["f" frac]]] [time - ["[0]" instant {"+" Instant}] + ["[0]" instant (.only Instant)] ["[0]" duration]]]]))) (type: .public Path diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux index d9c070472..497af0a49 100644 --- a/stdlib/source/library/lux/world/file/watch.lux +++ b/stdlib/source/library/lux/world/file/watch.lux @@ -2,24 +2,24 @@ [library [lux {"-" all} ["@" target] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [predicate {"+" Predicate}] - ["[0]" monad {"+" do}]] + [predicate (.only Predicate)] + ["[0]" monad (.only do)]] [control - ["[0]" io {"+" IO}] + ["[0]" io (.only IO)] ["[0]" maybe] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [concurrency - ["[0]" async {"+" Async}] - ["[0]" stm {"+" STM Var}]]] + ["[0]" async (.only Async)] + ["[0]" stm (.only STM Var)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" dictionary {"+" Dictionary}] + ["[0]" dictionary (.only Dictionary)] ["[0]" list ("[1]#[0]" functor monoid mix)] ["[0]" set] ["[0]" array]]] @@ -27,9 +27,9 @@ [number ["n" nat]]] [time - ["[0]" instant {"+" Instant} ("[1]#[0]" equivalence)]] + ["[0]" instant (.only Instant) ("[1]#[0]" equivalence)]] [type - [primitive {"+" primitive: representation abstraction}]]]] + [primitive (.only primitive: representation abstraction)]]]] ["[0]" //]) (primitive: .public Concern diff --git a/stdlib/source/library/lux/world/net/http.lux b/stdlib/source/library/lux/world/net/http.lux index 514f8d6ff..950d1b982 100644 --- a/stdlib/source/library/lux/world/net/http.lux +++ b/stdlib/source/library/lux/world/net/http.lux @@ -1,16 +1,16 @@ (.using - [library - [lux "*" - [control - [try {"+" Try}] - [concurrency - [frp {"+" Channel}]] - [parser - ["[0]" environment {"+" Environment}]]] - [data - [binary {"+" Binary}]]]] - [// {"+" URL} - [uri {"+" URI}]]) + [library + [lux "*" + [control + [try (.only Try)] + [concurrency + [frp (.only Channel)]] + [parser + ["[0]" environment (.only Environment)]]] + [data + [binary (.only Binary)]]]] + [// (.only URL) + [uri (.only URI)]]) (type: .public Version Text) diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux index 35c6e9cac..da585e503 100644 --- a/stdlib/source/library/lux/world/net/http/client.lux +++ b/stdlib/source/library/lux/world/net/http/client.lux @@ -4,23 +4,23 @@ ["@" target] ["[0]" ffi] [abstract - ["[0]" monad {"+" do}]] + ["[0]" monad (.only do)]] [control ["[0]" pipe] - ["[0]" io {"+" IO}] + ["[0]" io (.only IO)] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] [concurrency - ["[0]" async {"+" Async}]] + ["[0]" async (.only Async)]] [parser ["<[0]>" code]]] [data - ["[0]" binary {"+" Binary}] + ["[0]" binary (.only Binary)] ["[0]" text] [collection ["[0]" dictionary]]] [macro - [syntax {"+" syntax:}] + [syntax (.only syntax:)] ["[0]" code] ["[0]" template]] [math @@ -28,7 +28,7 @@ ["n" nat] ["i" int]]]]] ["[0]" // - [// {"+" URL}]]) + [// (.only URL)]]) (type: .public (Client !) (Interface diff --git a/stdlib/source/library/lux/world/net/http/cookie.lux b/stdlib/source/library/lux/world/net/http/cookie.lux index b3143c56e..fe47d45e5 100644 --- a/stdlib/source/library/lux/world/net/http/cookie.lux +++ b/stdlib/source/library/lux/world/net/http/cookie.lux @@ -2,22 +2,22 @@ [library [lux "*" [control - [monad {"+" do}] - ["[0]" try {"+" Try}] + [monad (.only do)] + ["[0]" try (.only Try)] ["p" parser ("[1]#[0]" monad) - ["l" text {"+" Parser}]]] + ["l" text (.only Parser)]]] [data [number ["i" int]] [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [format - ["[0]" context {"+" Context}]] + ["[0]" context (.only Context)]] [collection ["[0]" dictionary]]] [time - ["[0]" duration {"+" Duration}]]]] - ["[0]" // {"+" Header} + ["[0]" duration (.only Duration)]]]] + ["[0]" // (.only Header) ["[0]" header]]) (type: .public Directive diff --git a/stdlib/source/library/lux/world/net/http/header.lux b/stdlib/source/library/lux/world/net/http/header.lux index 61bd78dbc..1af3a8035 100644 --- a/stdlib/source/library/lux/world/net/http/header.lux +++ b/stdlib/source/library/lux/world/net/http/header.lux @@ -5,12 +5,12 @@ ["[0]" pipe]] [data [text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" dictionary {"+" Dictionary}]]]]] - [// {"+" Header} - ["[0]" mime {"+" MIME}] - [// {"+" URL}]]) + ["[0]" dictionary (.only Dictionary)]]]]] + [// (.only Header) + ["[0]" mime (.only MIME)] + [// (.only URL)]]) (def: .public (has name value) (-> Text Text Header) diff --git a/stdlib/source/library/lux/world/net/http/mime.lux b/stdlib/source/library/lux/world/net/http/mime.lux index a8578015c..45181ebc5 100644 --- a/stdlib/source/library/lux/world/net/http/mime.lux +++ b/stdlib/source/library/lux/world/net/http/mime.lux @@ -3,8 +3,8 @@ [lux "*" [data ["[0]" text - ["%" format {"+" format}] - ["[0]" encoding {"+" Encoding}]]] + ["%" format (.only format)] + ["[0]" encoding (.only Encoding)]]] [type [primitive "*"]]]]) diff --git a/stdlib/source/library/lux/world/net/http/query.lux b/stdlib/source/library/lux/world/net/http/query.lux index 445e28bfe..0f5e7ef45 100644 --- a/stdlib/source/library/lux/world/net/http/query.lux +++ b/stdlib/source/library/lux/world/net/http/query.lux @@ -3,17 +3,17 @@ [lux "*" [control pipe - [monad {"+" do}] - ["[0]" try {"+" Try}] + [monad (.only do)] + ["[0]" try (.only Try)] ["p" parser - ["l" text {"+" Parser}]]] + ["l" text (.only Parser)]]] [data [number ["[0]" nat]] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [format - ["[0]" context {"+" Context}]] + ["[0]" context (.only Context)]] [collection ["[0]" dictionary]]]]]) diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux index bea2b0ffc..60e17d9b4 100644 --- a/stdlib/source/library/lux/world/net/http/request.lux +++ b/stdlib/source/library/lux/world/net/http/request.lux @@ -3,11 +3,11 @@ [lux "*" [control pipe - ["[0]" monad {"+" do}] + ["[0]" monad (.only do)] ["[0]" maybe] - ["[0]" try {"+" Try}] + ["[0]" try (.only Try)] [concurrency - ["[0]" async {"+" Async}] + ["[0]" async (.only Async)] ["[0]" frp]] [parser ["<[0]>" json]]] @@ -17,16 +17,16 @@ ["[0]" text ["[0]" encoding]] [format - ["[0]" json {"+" JSON}] - ["[0]" context {"+" Context Property}]] + ["[0]" json (.only JSON)] + ["[0]" context (.only Context Property)]] [collection ["[0]" list ("[1]#[0]" functor mix)] ["[0]" dictionary]]] [macro ["^" pattern]] [world - ["[0]" binary {"+" Binary}]]]] - ["[0]" // {"+" Body Response Server} + ["[0]" binary (.only Binary)]]]] + ["[0]" // (.only Body Response Server) ["[1][0]" response] ["[1][0]" query] ["[1][0]" cookie]]) diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux index eeb67bcde..074f97cb4 100644 --- a/stdlib/source/library/lux/world/net/http/response.lux +++ b/stdlib/source/library/lux/world/net/http/response.lux @@ -10,17 +10,17 @@ ["[0]" encoding]] [format ["[0]" html] - ["[0]" css {"+" CSS}] + ["[0]" css (.only CSS)] ["[0]" context] - ["[0]" json {"+" JSON} ("[1]#[0]" codec)]]] + ["[0]" json (.only JSON) ("[1]#[0]" codec)]]] ["[0]" io] [world - ["[0]" binary {"+" Binary}]]]] - ["[0]" // {"+" Status Body Response Server} + ["[0]" binary (.only Binary)]]]] + ["[0]" // (.only Status Body Response Server) ["[0]" status] - ["[0]" mime {"+" MIME}] + ["[0]" mime (.only MIME)] ["[0]" header] - [// {"+" URL}]]) + [// (.only URL)]]) (def: .public (static response) (-> Response Server) diff --git a/stdlib/source/library/lux/world/net/http/route.lux b/stdlib/source/library/lux/world/net/http/route.lux index c94dd8235..10d8e37fc 100644 --- a/stdlib/source/library/lux/world/net/http/route.lux +++ b/stdlib/source/library/lux/world/net/http/route.lux @@ -2,7 +2,7 @@ [library [lux {"-" or} [control - [monad {"+" do}] + [monad (.only do)] ["[0]" maybe] [concurrency ["[0]" async]]] @@ -12,7 +12,7 @@ ["n" nat]]] [macro ["^" pattern]]]] - ["[0]" // {"+" URI Server} + ["[0]" // (.only URI Server) ["[1][0]" status] ["[1][0]" response]]) diff --git a/stdlib/source/library/lux/world/net/http/status.lux b/stdlib/source/library/lux/world/net/http/status.lux index af539d381..d949df181 100644 --- a/stdlib/source/library/lux/world/net/http/status.lux +++ b/stdlib/source/library/lux/world/net/http/status.lux @@ -1,7 +1,7 @@ (.using - [library - [lux "*"]] - [// {"+" Status}]) + [library + [lux "*"]] + [// (.only Status)]) ... https://en.wikipedia.org/wiki/List_of_HTTP_status_codes (template [<status> <name>] diff --git a/stdlib/source/library/lux/world/net/http/version.lux b/stdlib/source/library/lux/world/net/http/version.lux index acd7ac9fa..cd9d69217 100644 --- a/stdlib/source/library/lux/world/net/http/version.lux +++ b/stdlib/source/library/lux/world/net/http/version.lux @@ -1,7 +1,7 @@ (.using - [library - [lux "*"]] - [// {"+" Version}]) + [library + [lux "*"]] + [// (.only Version)]) (template [<name> <version>] [(def: .public <name> Version <version>)] diff --git a/stdlib/source/library/lux/world/output/video/resolution.lux b/stdlib/source/library/lux/world/output/video/resolution.lux index 8883460bc..2b4ba2d6b 100644 --- a/stdlib/source/library/lux/world/output/video/resolution.lux +++ b/stdlib/source/library/lux/world/output/video/resolution.lux @@ -2,8 +2,8 @@ [library [lux "*" [abstract - [equivalence {"+" Equivalence}] - [hash {"+" Hash}]] + [equivalence (.only Equivalence)] + [hash (.only Hash)]] [data ["[0]" product]] [math diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index 0561a7c66..6d3c97cf5 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -3,27 +3,27 @@ [lux "*" ["@" target] [abstract - ["[0]" monad {"+" Monad do}]] + ["[0]" monad (.only Monad do)]] [control ["[0]" function] - ["[0]" io {"+" IO}] + ["[0]" io (.only IO)] ["[0]" maybe ("[1]#[0]" functor)] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] [concurrency ["[0]" atom] - ["[0]" async {"+" Async}]] + ["[0]" async (.only Async)]] [parser - ["[0]" environment {"+" Environment}]]] + ["[0]" environment (.only Environment)]]] [data ["[0]" bit ("[1]#[0]" equivalence)] ["[0]" text - ["%" format {"+" format}]] + ["%" format (.only format)]] [collection - ["[0]" array {"+" Array}] - ["[0]" dictionary {"+" Dictionary}] + ["[0]" array (.only Array)] + ["[0]" dictionary (.only Dictionary)] ["[0]" list ("[1]#[0]" functor)]]] - ["[0]" ffi {"+" import:} + ["[0]" ffi (.only import:) (~~ (.for "JavaScript" (~~ (.these ["[0]" node_js])) "{old}" (~~ (.these ["node_js" //math])) (~~ (.these))))] @@ -33,8 +33,8 @@ [number ["i" int]]]]] [// - [file {"+" Path}] - [shell {"+" Exit}]]))) + [file (.only Path)] + [shell (.only Exit)]]))) (exception: .public (unknown_environment_variable [name Text]) (exception.report diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux index 47302a81a..821806946 100644 --- a/stdlib/source/library/lux/world/shell.lux +++ b/stdlib/source/library/lux/world/shell.lux @@ -2,36 +2,36 @@ [library [lux "*" ["@" target] - ["[0]" ffi {"+" import:}] + ["[0]" ffi (.only import:)] [abstract - [monad {"+" do}]] + [monad (.only do)]] [control ["[0]" function] - ["[0]" try {"+" Try}] - ["[0]" exception {"+" exception:}] - ["[0]" io {"+" IO}] + ["[0]" try (.only Try)] + ["[0]" exception (.only exception:)] + ["[0]" io (.only IO)] [security - ["?" policy {"+" Context Safety Safe}]] + ["?" policy (.only Context Safety Safe)]] [concurrency - ["[0]" atom {"+" Atom}] - ["[0]" async {"+" Async}]] + ["[0]" atom (.only Atom)] + ["[0]" async (.only Async)]] [parser - [environment {"+" Environment}]]] + [environment (.only Environment)]]] [data ["[0]" product] ["[0]" text - ["%" format {"+" format}] + ["%" format (.only format)] [encoding ["[0]" utf8]]] [collection - ["[0]" array {"+" Array}] + ["[0]" array (.only Array)] ["[0]" list ("[1]#[0]" mix functor)] ["[0]" dictionary]]] [math - [number {"+" hex} + [number (.only hex) ["n" nat]]]]] [// - [file {"+" Path}]]) + [file (.only Path)]]) (type: .public Exit Int) |