diff options
author | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
commit | 35c0807799717cd720ab28b35851c1a01a67445d (patch) | |
tree | c6237b79fb262d24c8a46ee3ecb714df3e9874d8 | |
parent | b55cefcb258f11eeee32c1478faefd1bd09ec871 (diff) |
De-taggification | part 4
975 files changed, 9157 insertions, 9153 deletions
diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux index 1f5b9c05d..058f762c7 100644 --- a/licentia/source/program/licentia.lux +++ b/licentia/source/program/licentia.lux @@ -16,37 +16,37 @@ [lux "*" [ffi {"+" [import:]}] [program {"+" [program:]}] - ["." debug] + ["[0]" debug] [abstract [monad {"+" [do]}]] [control [remember {"+" [to_do]}] - ["." io {"+" [IO]} ("#\." monad)] - ["." maybe] - ["." try {"+" [Try]}] - ["." parser - ["<.>" cli] - ["<.>" json]] + ["[0]" io {"+" [IO]} ("[1]\[0]" monad)] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" parser + ["<[0]>" cli] + ["<[0]>" json]] [security ["!" capability]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." json]]] + ["[0]" json]]] [world - ["." file]]]] - ["." / "_" - ["#." input] - ["#." output]]) + ["[0]" file]]]] + ["[0]" / "_" + ["[1][0]" input] + ["[1][0]" output]]) (with_expansions [<expiry> "2022-04-01"] (to_do <expiry> "Create a short notice to add as a comment to each file in the _.work")) (import: java/lang/String - ["#::." + ["[1]::[0]" (trim [] java/lang/String)]) (def: default_output_file diff --git a/licentia/source/program/licentia/document.lux b/licentia/source/program/licentia/document.lux index 0746e3cbc..a5a6251b2 100644 --- a/licentia/source/program/licentia/document.lux +++ b/licentia/source/program/licentia/document.lux @@ -2,10 +2,10 @@ [library [lux {"-" [or and]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]]]]) + ["[0]" list ("[1]\[0]" functor)]]]]]) (def: .public (quote text) (-> Text Text) diff --git a/licentia/source/program/licentia/input.lux b/licentia/source/program/licentia/input.lux index 7f2796026..96d19cf14 100644 --- a/licentia/source/program/licentia/input.lux +++ b/licentia/source/program/licentia/input.lux @@ -4,9 +4,9 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" json {"+" [Parser]}]]] + ["<[0]>" json {"+" [Parser]}]]] [data [text ["%" format {"+" [format]}]]] @@ -15,19 +15,19 @@ ["n" nat] ["i" int] ["f" frac]]]]] - ["." // "_" - ["#" license {"+" [Identification - Termination - Liability - Distribution - Commercial - Extension - Entity Black_List - URL Attribution - Addendum - License]} - ["." time {"+" [Period]}] - ["." copyright]]]) + ["[0]" // "_" + ["[1]" license {"+" [Identification + Termination + Liability + Distribution + Commercial + Extension + Entity Black_List + URL Attribution + Addendum + License]} + ["[0]" time {"+" [Period]}] + ["[0]" copyright]]]) (def: identification (Parser Identification) diff --git a/licentia/source/program/licentia/license.lux b/licentia/source/program/licentia/license.lux index c810e865d..c52cbe577 100644 --- a/licentia/source/program/licentia/license.lux +++ b/licentia/source/program/licentia/license.lux @@ -1,9 +1,9 @@ (.module: [library [lux "*"]] - ["." / "_" + ["[0]" / "_" [time {"+" [Days Months Period]}] - ["#." copyright]]) + ["[1][0]" copyright]]) (type: .public Identification (Record diff --git a/licentia/source/program/licentia/license/addendum.lux b/licentia/source/program/licentia/license/addendum.lux index 825e91968..7cbe236c9 100644 --- a/licentia/source/program/licentia/license/addendum.lux +++ b/licentia/source/program/licentia/license/addendum.lux @@ -4,7 +4,7 @@ [data [text ["%" format {"+" [format]}]]]]] - ["." // {"+" [Addendum]} + ["[0]" // {"+" [Addendum]} [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/assurance.lux b/licentia/source/program/licentia/license/assurance.lux index 64e865e14..da571d407 100644 --- a/licentia/source/program/licentia/license/assurance.lux +++ b/licentia/source/program/licentia/license/assurance.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// ["_" term] diff --git a/licentia/source/program/licentia/license/black_list.lux b/licentia/source/program/licentia/license/black_list.lux index 96dd85d85..2c3d721ca 100644 --- a/licentia/source/program/licentia/license/black_list.lux +++ b/licentia/source/program/licentia/license/black_list.lux @@ -2,13 +2,13 @@ [library [lux "*" [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]]]] - ["." // {"+" [Entity Black_List]} + ["[0]" list ("[1]\[0]" functor)]]]]] + ["[0]" // {"+" [Entity Black_List]} ["_" term] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/commercial.lux b/licentia/source/program/licentia/license/commercial.lux index 5a9ea86d3..0410347be 100644 --- a/licentia/source/program/licentia/license/commercial.lux +++ b/licentia/source/program/licentia/license/commercial.lux @@ -2,9 +2,9 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] - ["." // {"+" [Commercial]} + ["[0]" // {"+" [Commercial]} ["_" term] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/definition.lux b/licentia/source/program/licentia/license/definition.lux index 921c67675..7a2d38381 100644 --- a/licentia/source/program/licentia/license/definition.lux +++ b/licentia/source/program/licentia/license/definition.lux @@ -2,7 +2,7 @@ [library [lux {"-" [Definition]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [/// ["$" document]]) diff --git a/licentia/source/program/licentia/license/distribution.lux b/licentia/source/program/licentia/license/distribution.lux index 22a783d79..c1a24a0b5 100644 --- a/licentia/source/program/licentia/license/distribution.lux +++ b/licentia/source/program/licentia/license/distribution.lux @@ -2,11 +2,11 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid)]]]]] - ["." // {"+" [Distribution]} + ["[0]" list ("[1]\[0]" monoid)]]]]] + ["[0]" // {"+" [Distribution]} ["_" term] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/extension.lux b/licentia/source/program/licentia/license/extension.lux index 2cf225b88..e2e2c469f 100644 --- a/licentia/source/program/licentia/license/extension.lux +++ b/licentia/source/program/licentia/license/extension.lux @@ -2,11 +2,11 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] - ["." // {"+" [Extension]} + ["[0]" // {"+" [Extension]} ["_" term] - ["." grant] + ["[0]" grant] [time {"+" [Months Period]}] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/grant.lux b/licentia/source/program/licentia/license/grant.lux index a0ad84474..0ec3f8a12 100644 --- a/licentia/source/program/licentia/license/grant.lux +++ b/licentia/source/program/licentia/license/grant.lux @@ -2,12 +2,12 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// [time {"+" [Days]}] ["_" term] - ["." definition] + ["[0]" definition] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/liability.lux b/licentia/source/program/licentia/license/liability.lux index aac47b4e9..005f27112 100644 --- a/licentia/source/program/licentia/license/liability.lux +++ b/licentia/source/program/licentia/license/liability.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// ["_" term] diff --git a/licentia/source/program/licentia/license/limitation.lux b/licentia/source/program/licentia/license/limitation.lux index 3da275235..e66ccc562 100644 --- a/licentia/source/program/licentia/license/limitation.lux +++ b/licentia/source/program/licentia/license/limitation.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// ["_" term] diff --git a/licentia/source/program/licentia/license/miscellaneous.lux b/licentia/source/program/licentia/license/miscellaneous.lux index bda4bade6..a2d77a122 100644 --- a/licentia/source/program/licentia/license/miscellaneous.lux +++ b/licentia/source/program/licentia/license/miscellaneous.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// ["_" term] diff --git a/licentia/source/program/licentia/license/notice.lux b/licentia/source/program/licentia/license/notice.lux index 7ade12fc8..33ea7362e 100644 --- a/licentia/source/program/licentia/license/notice.lux +++ b/licentia/source/program/licentia/license/notice.lux @@ -2,16 +2,16 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#." time] - ["#." copyright] + ["[0]" // "_" + ["[1][0]" time] + ["[1][0]" copyright] ["_" term] [// ["$" document]]]) diff --git a/licentia/source/program/licentia/license/submission.lux b/licentia/source/program/licentia/license/submission.lux index 4b74d0df8..3fb986351 100644 --- a/licentia/source/program/licentia/license/submission.lux +++ b/licentia/source/program/licentia/license/submission.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]]]] [// ["_" term] diff --git a/licentia/source/program/licentia/license/term.lux b/licentia/source/program/licentia/license/term.lux index 2d4df6ce7..1b9e55ef7 100644 --- a/licentia/source/program/licentia/license/term.lux +++ b/licentia/source/program/licentia/license/term.lux @@ -1,8 +1,8 @@ (.module: [library [lux {"-" [Definition]}]] - ["." // "_" - ["#." definition]]) + ["[0]" // "_" + ["[1][0]" definition]]) (template [<term> <definition>] [(def: .public <term> diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux index 8b69b0f8d..c271f3005 100644 --- a/licentia/source/program/licentia/output.lux +++ b/licentia/source/program/licentia/output.lux @@ -2,38 +2,38 @@ [library [lux {"-" [Definition]} [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." bit] - ["." text + ["[0]" bit] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]]]] + ["[0]" list ("[1]\[0]" functor monoid)]]]]] [// - ["." license {"+" [Identification - Termination - Liability - Distribution - Commercial - Extension - Entity Black_List - URL Attribution - License]} - ["." copyright] - ["." definition {"+" [Definition]}] - ["." grant] - ["." limitation] - ["." assurance] - ["." liability] - ["." distribution] - ["." commercial] - ["." extension] - ["." submission] - ["." miscellaneous] - ["." black_list] - ["." notice] + ["[0]" license {"+" [Identification + Termination + Liability + Distribution + Commercial + Extension + Entity Black_List + URL Attribution + License]} + ["[0]" copyright] + ["[0]" definition {"+" [Definition]}] + ["[0]" grant] + ["[0]" limitation] + ["[0]" assurance] + ["[0]" liability] + ["[0]" distribution] + ["[0]" commercial] + ["[0]" extension] + ["[0]" submission] + ["[0]" miscellaneous] + ["[0]" black_list] + ["[0]" notice] ["_" term] - ["." addendum]] + ["[0]" addendum]] ["$" document]]) (def: .public (definition value) diff --git a/licentia/source/test/licentia.lux b/licentia/source/test/licentia.lux index 8f967502a..4940b31eb 100644 --- a/licentia/source/test/licentia.lux +++ b/licentia/source/test/licentia.lux @@ -6,43 +6,43 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe ("#\." functor)]] + ["[0]" io] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." bit ("#\." equivalence)] - ["." text] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["n" nat ("#\." interval)]]]]] + ["n" nat ("[1]\[0]" interval)]]]]] [\\program - ["." output] - ["." license {"+" [Identification - Termination - Liability - Distribution - Commercial - Extension - Entity Black_List - URL Attribution - Addendum - License]} - ["." time {"+" [Period]}] - ["." copyright] - ["." notice] - ["." definition] - ["." grant] - ["." limitation] - ["." submission] - ["." liability] - ["." distribution] - ["." commercial] - ["." extension] - ["." miscellaneous] - ["." black_list] - ["." addendum]]]) + ["[0]" output] + ["[0]" license {"+" [Identification + Termination + Liability + Distribution + Commercial + Extension + Entity Black_List + URL Attribution + Addendum + License]} + ["[0]" time {"+" [Period]}] + ["[0]" copyright] + ["[0]" notice] + ["[0]" definition] + ["[0]" grant] + ["[0]" limitation] + ["[0]" submission] + ["[0]" liability] + ["[0]" distribution] + ["[0]" commercial] + ["[0]" extension] + ["[0]" miscellaneous] + ["[0]" black_list] + ["[0]" addendum]]]) (def: period (Random (Period Nat)) diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux index c07681483..be64f1cf3 100644 --- a/lux-cl/source/program.lux +++ b/lux-cl/source/program.lux @@ -1,33 +1,33 @@ (.module: [lux "*" [program {"+" [program:]}] - ["." ffi] - ["." debug] + ["[0]" ffi] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [exec> case> new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." promise {"+" [Promise]}]]] + ["[0]" promise {"+" [Promise]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" common_lisp]] [tool @@ -39,57 +39,57 @@ [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" common_lisp]] - ["." generation "_" - ["#" common_lisp]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" common_lisp]] + ["[0]" generation "_" + ["[1]" common_lisp]]] [generation - ["." reference] - ["." common_lisp - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" common_lisp + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta - ["." packager "_" - ["#" script]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (ffi.import: java/lang/String) (ffi.import: (java/lang/Class a) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] long)]) (ffi.import: java/lang/Number - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer) (longValue [] long) (doubleValue [] double)]) (ffi.import: org/armedbear/lisp/LispObject - ["#::." + ["[1]::[0]" (length [] int) (NTH [int] org/armedbear/lisp/LispObject) (SVREF [int] org/armedbear/lisp/LispObject) @@ -99,39 +99,39 @@ ... The org/armedbear/lisp/Interpreter must be imported before the ... other ones, because there is an order dependency in their static initialization. (ffi.import: org/armedbear/lisp/Interpreter - ["#::." + ["[1]::[0]" ("static" getInstance [] org/armedbear/lisp/Interpreter) ("static" createInstance [] "?" org/armedbear/lisp/Interpreter) (eval [java/lang/String] "try" org/armedbear/lisp/LispObject)]) (ffi.import: org/armedbear/lisp/Symbol - ["#::." + ["[1]::[0]" ("static" T org/armedbear/lisp/Symbol)]) (ffi.import: org/armedbear/lisp/DoubleFloat - ["#::." + ["[1]::[0]" (new [double]) (doubleValue [] double)]) (ffi.import: org/armedbear/lisp/SimpleString - ["#::." + ["[1]::[0]" (new [java/lang/String]) (getStringValue [] java/lang/String)]) (ffi.import: org/armedbear/lisp/LispInteger) (ffi.import: org/armedbear/lisp/Bignum - ["#::." + ["[1]::[0]" (longValue [] long) ("static" getInstance [long] org/armedbear/lisp/LispInteger)]) (ffi.import: org/armedbear/lisp/Fixnum - ["#::." + ["[1]::[0]" (longValue [] long) ("static" getInstance [int] org/armedbear/lisp/Fixnum)]) (ffi.import: org/armedbear/lisp/Nil - ["#::." + ["[1]::[0]" ("static" NIL org/armedbear/lisp/Symbol)]) (ffi.import: org/armedbear/lisp/SimpleVector) @@ -144,7 +144,7 @@ (getValue [] java/lang/Object)) (ffi.import: program/LuxADT - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]) (template [<name>] diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux index 897eb6900..b0de7dee3 100644 --- a/lux-js/source/program.lux +++ b/lux-js/source/program.lux @@ -2,41 +2,41 @@ [library [lux "*" [program {"+" [program:]}] - ["." ffi {"+" [import:]}] - ["." debug] + ["[0]" ffi {"+" [import:]}] + ["[0]" debug] [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["." function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["[0]" function] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] ["i" int] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" js]] [tool [compiler - ["." phase {"+" [Operation Phase]}] + ["[0]" phase {"+" [Operation Phase]}] [reference [variable {"+" [Register]}]] [language @@ -46,26 +46,26 @@ [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" js]] - ["." generation "_" - ["#" js]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" js]] + ["[0]" generation "_" + ["[1]" js]]] [generation - ["." reference] - ["." js - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" js + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta [archive {"+" [Archive]}] - ["." packager "_" - ["#" script]]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (exception: (null_has_no_lux_representation {code (Maybe _.Expression)}) (case code @@ -81,42 +81,42 @@ (import: (java/lang/Class a)) (import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] long)]) (import: java/lang/Number - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer) (longValue [] long) (doubleValue [] double)]) (import: java/util/Arrays - ["#::." + ["[1]::[0]" ("static" [t] copyOfRange [[t] int int] [t])]) (import: javax/script/ScriptEngine - ["#::." + ["[1]::[0]" (eval [java/lang/String] "try" "?" java/lang/Object)]) (import: javax/script/ScriptEngineFactory - ["#::." + ["[1]::[0]" (getScriptEngine [] javax/script/ScriptEngine)]) (import: org/openjdk/nashorn/api/scripting/NashornScriptEngineFactory - ["#::." + ["[1]::[0]" (new [])]) (import: org/openjdk/nashorn/api/scripting/JSObject - ["#::." + ["[1]::[0]" (isArray [] boolean) (isFunction [] boolean) (getSlot [int] "?" java/lang/Object) @@ -127,7 +127,7 @@ (import: org/openjdk/nashorn/api/scripting/AbstractJSObject) (import: org/openjdk/nashorn/api/scripting/ScriptObjectMirror - ["#::." + ["[1]::[0]" (size [] int) (toString [] java/lang/String) (getOwnKeys [boolean] [java/lang/String])]) @@ -139,7 +139,7 @@ (getValue [] java/lang/Object)) (`` (import: (~~ (template.identifier ["program/" <name>])) - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]))] [IntValue] diff --git a/lux-jvm/source/luxc/lang/directive/jvm.lux b/lux-jvm/source/luxc/lang/directive/jvm.lux index 246e49761..b41e0b75f 100644 --- a/lux-jvm/source/luxc/lang/directive/jvm.lux +++ b/lux-jvm/source/luxc/lang/directive/jvm.lux @@ -1,72 +1,72 @@ (.module: [library [lux {"-" [Type static local]} - ["." ffi {"+" [Inheritance Privacy State import:]}] + ["[0]" ffi {"+" [Inheritance Privacy State import:]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" code {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" code {"+" [Parser]}] + ["<[0]>" text]]] [data [identity {"+" [Identity]}] [binary {"+" [Binary]}] - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection [array {"+" [Array]}] - ["." list ("#\." mix functor monoid)] - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]} ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" mix functor monoid)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor mix)]]] [math [number - ["." nat]]] + ["[0]" nat]]] [target ["/" jvm [encoding - ["." name {"+" [External]}]] - ["#." type {"+" [Type Constraint]} + ["[0]" name {"+" [External]}]] + ["[1][0]" type {"+" [Type Constraint]} [category {"+" [Void Value Return Primitive Object Class Var Parameter]}] - ["." parser] - [".T" lux] - ["#/." signature] - ["#/." descriptor]]]] + ["[0]" parser] + ["[0]T" lux] + ["[1]/[0]" signature] + ["[1]/[0]" descriptor]]]] [tool [compiler - ["." phase] + ["[0]" phase] [language [lux - ["." analysis {"+" [Analysis]}] - ["." synthesis {"+" [Synthesis]}] - ["." generation] - ["." directive {"+" [Requirements]}] + ["[0]" analysis {"+" [Analysis]}] + ["[0]" synthesis {"+" [Synthesis]}] + ["[0]" generation] + ["[0]" directive {"+" [Requirements]}] [phase [analysis - [".A" scope] - [".A" type]] - ["." extension - ["." bundle] + ["[0]A" scope] + ["[0]A" type]] + ["[0]" extension + ["[0]" bundle] [analysis ["//A" jvm]] [directive - ["./" lux]]]]]] + ["[0]/" lux]]]]]] [meta [archive {"+" [Archive]}]]]]]] [/// [host - ["." jvm {"+" [Inst]} + ["[0]" jvm {"+" [Inst]} ["_" inst] - ["." def]]] + ["[0]" def]]] [translation [jvm [extension ["//G" host]]]]]) (import: org/objectweb/asm/Label - ["#::." + ["[1]::[0]" (new [])]) (def: (literal literal) diff --git a/lux-jvm/source/luxc/lang/host/jvm.lux b/lux-jvm/source/luxc/lang/host/jvm.lux index 206408ce0..a7eb07777 100644 --- a/lux-jvm/source/luxc/lang/host/jvm.lux +++ b/lux-jvm/source/luxc/lang/host/jvm.lux @@ -6,17 +6,17 @@ monad] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data [binary {"+" [Binary]}] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro - ["." code] + ["[0]" code] [syntax {"+" [syntax:]}]] [target [jvm - ["." type {"+" [Type]} + ["[0]" type {"+" [Type]} [category {"+" [Class]}]]]] [tool [compiler @@ -24,7 +24,7 @@ [variable {"+" [Register]}]] [language [lux - ["." generation]]] + ["[0]" generation]]] [meta [archive {"+" [Archive]}]]]]]]) @@ -33,7 +33,7 @@ (import: org/objectweb/asm/ClassWriter) (import: org/objectweb/asm/Label - ["#::." + ["[1]::[0]" (new [])]) (type: .public Def diff --git a/lux-jvm/source/luxc/lang/host/jvm/def.lux b/lux-jvm/source/luxc/lang/host/jvm/def.lux index 3260e954c..36aed2d61 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/def.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/def.lux @@ -1,28 +1,28 @@ (.module: [library [lux {"-" [Type]} - ["." ffi {"+" [import: do_to]}] + ["[0]" ffi {"+" [import: do_to]}] [control - ["." function]] + ["[0]" function]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#@." functor)]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]@[0]" functor)]]] [math [number ["i" int]]] [target [jvm [encoding - ["." name]] - ["." type {"+" [Type Constraint]} + ["[0]" name]] + ["[0]" type {"+" [Type Constraint]} [category {"+" [Class Value Method]}] - ["." signature] - ["." descriptor]]]]]] - ["." //]) + ["[0]" signature] + ["[0]" descriptor]]]]]] + ["[0]" //]) (def: signature (|>> type.signature signature.signature)) (def: descriptor (|>> type.descriptor descriptor.descriptor)) @@ -32,7 +32,7 @@ (import: java/lang/String) (import: org/objectweb/asm/Opcodes - ["#::." + ["[1]::[0]" ("static" ACC_PUBLIC int) ("static" ACC_PROTECTED int) ("static" ACC_PRIVATE int) @@ -59,17 +59,17 @@ ("static" V1_8 int)]) (import: org/objectweb/asm/FieldVisitor - ["#::." + ["[1]::[0]" (visitEnd [] void)]) (import: org/objectweb/asm/MethodVisitor - ["#::." + ["[1]::[0]" (visitCode [] void) (visitMaxs [int int] void) (visitEnd [] void)]) (import: org/objectweb/asm/ClassWriter - ["#::." + ["[1]::[0]" ("static" COMPUTE_MAXS int) ("static" COMPUTE_FRAMES int) (new [int]) diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux index 9a622da03..2255774f8 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux @@ -1,23 +1,23 @@ (.module: [library [lux {"-" [Type int char try]} - ["." ffi {"+" [import: do_to]}] + ["[0]" ffi {"+" [import: do_to]}] [abstract [monad {"+" [do]}]] [control - ["." function] - ["." maybe] - ["." try] + ["[0]" function] + ["[0]" maybe] + ["[0]" try] ["p" parser ["s" code]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#@." functor)]]] + ["[0]" list ("[1]@[0]" functor)]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat] @@ -25,16 +25,16 @@ [target [jvm [encoding - ["." name {"+" [External]}]] - ["." type {"+" [Type]} ("#@." equivalence) + ["[0]" name {"+" [External]}]] + ["[0]" type {"+" [Type]} ("[1]@[0]" equivalence) [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - ["." box] - ["." descriptor] - ["." reflection]]]] + ["[0]" box] + ["[0]" descriptor] + ["[0]" reflection]]]] [tool [compiler [phase {"+" [Operation]}]]]]] - ["." // {"+" [Inst]}]) + ["[0]" // {"+" [Inst]}]) (def: class_name (|>> type.descriptor descriptor.class_name name.read)) (def: descriptor (|>> type.descriptor descriptor.descriptor)) @@ -50,7 +50,7 @@ in)) (`` (import: org/objectweb/asm/Opcodes - ["#::." + ["[1]::[0]" ("static" NOP int) ... Conversion @@ -126,11 +126,11 @@ )) (import: org/objectweb/asm/Label - ["#::." + ["[1]::[0]" (new [])]) (import: org/objectweb/asm/MethodVisitor - ["#::." + ["[1]::[0]" (visitCode [] void) (visitMaxs [int int] void) (visitEnd [] void) diff --git a/lux-jvm/source/luxc/lang/synthesis/variable.lux b/lux-jvm/source/luxc/lang/synthesis/variable.lux index 73f1e031d..12594e154 100644 --- a/lux-jvm/source/luxc/lang/synthesis/variable.lux +++ b/lux-jvm/source/luxc/lang/synthesis/variable.lux @@ -6,7 +6,7 @@ ["s" set]))) (luxc (lang ["la" analysis] ["ls" synthesis] - [".L" variable {"+" [Variable]}]))) + ["[0]L" variable {"+" [Variable]}]))) (def: (bound-vars path) (-> ls.Path (List Variable)) diff --git a/lux-jvm/source/luxc/lang/translation/jvm.lux b/lux-jvm/source/luxc/lang/translation/jvm.lux index 3a2c38718..0dde7a2e7 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm.lux @@ -1,58 +1,58 @@ (.module: [library [lux {"-" [Module Definition]} - ["." ffi {"+" [import: do_to object]}] + ["[0]" ffi {"+" [import: do_to object]}] [abstract [monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." atom {"+" [Atom atom]}]]] + ["[0]" atom {"+" [Atom atom]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#@." hash) + ["[0]" product] + ["[0]" text ("[1]@[0]" hash) ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]] [target [jvm - ["." loader {"+" [Library]}] - ["." type - ["." descriptor]]]] + ["[0]" loader {"+" [Library]}] + ["[0]" type + ["[0]" descriptor]]]] [tool [compiler [language [lux - ["." version] - ["." generation]]] + ["[0]" version] + ["[0]" generation]]] [meta [io {"+" [lux_context]}] [archive [descriptor {"+" [Module]}] - ["." artifact]]]]]]] + ["[0]" artifact]]]]]]] [/// [host - ["." jvm {"+" [Inst Definition Host State]} - ["." def] - ["." inst]]]] + ["[0]" jvm {"+" [Inst Definition Host State]} + ["[0]" def] + ["[0]" inst]]]] ) (import: java/lang/reflect/Field - ["#::." + ["[1]::[0]" (get ["?" java/lang/Object] "try" "?" java/lang/Object)]) (import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getField [java/lang/String] "try" java/lang/reflect/Field)]) (import: java/lang/Object - ["#::." + ["[1]::[0]" (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/ClassLoader) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/case.lux b/lux-jvm/source/luxc/lang/translation/jvm/case.lux index b8ef09945..a6d0a725f 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/case.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/case.lux @@ -2,38 +2,38 @@ [library [lux {"-" [Type Label if let case]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["ex" exception {"+" [exception:]}]] [data [collection - ["." list ("#@." mix)]]] + ["[0]" list ("[1]@[0]" mix)]]] [math [number ["n" nat]]] [target [jvm - ["." type {"+" [Type]} - ["." category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] - ["." descriptor {"+" [Descriptor]}] - ["." signature {"+" [Signature]}]]]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" descriptor {"+" [Descriptor]}] + ["[0]" signature {"+" [Signature]}]]]] [tool [compiler - ["." phase ("operation@." monad)] + ["[0]" phase ("operation@[0]" monad)] [meta [archive {"+" [Archive]}]] [language [lux - ["." synthesis {"+" [Path Synthesis]}]]]]]]] + ["[0]" synthesis {"+" [Path Synthesis]}]]]]]]] [luxc [lang [host ["$" jvm {"+" [Label Inst Operation Phase Generator]} ["_" inst]]]]] - ["." // - ["." runtime] - ["." structure]]) + ["[0]" // + ["[0]" runtime] + ["[0]" structure]]) (def: (pop_altI stack_depth) (-> Nat Inst) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/common.lux index 1430a3ea4..8db12bd7e 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/common.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/common.lux @@ -4,27 +4,27 @@ ... [abstract ... [monad {"+" [do]}]] ... [control - ... ["." try {"+" [Try]}] + ... ["[0]" try {"+" [Try]}] ... ["ex" exception {"+" [exception:]}] - ... ["." io]] + ... ["[0]" io]] ... [data ... [binary {"+" [Binary]}] - ... ["." text ("#/." hash) + ... ["[0]" text ("[1]/[0]" hash) ... format] ... [collection - ... ["." dictionary {"+" [Dictionary]}]]] - ... ["." macro] + ... ["[0]" dictionary {"+" [Dictionary]}]]] + ... ["[0]" macro] ... [host {"+" [import:]}] ... [tool ... [compiler ... [reference {"+" [Register]}] - ... ["." name] - ... ["." phase]]] + ... ["[0]" name] + ... ["[0]" phase]]] ]] ... [luxc ... [lang ... [host - ... ["." jvm + ... ["[0]" jvm ... [type]]]]] ) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/expression.lux b/lux-jvm/source/luxc/lang/translation/jvm/expression.lux index 0586646da..087ebfaff 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/expression.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/expression.lux @@ -5,21 +5,21 @@ [compiler [language [lux - ["." synthesis] + ["[0]" synthesis] [phase - ["." extension]]]]]]]] + ["[0]" extension]]]]]]]] [luxc [lang [host [jvm {"+" [Phase]}]]]] [// - ["." common] - ["." primitive] - ["." structure] - ["." reference] - ["." case] - ["." loop] - ["." function]]) + ["[0]" common] + ["[0]" primitive] + ["[0]" structure] + ["[0]" reference] + ["[0]" case] + ["[0]" loop] + ["[0]" function]]) (def: .public (translate archive synthesis) Phase diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension.lux index ce0a3991b..fff364f52 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/extension.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/extension.lux @@ -3,13 +3,13 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [//// [host [jvm {"+" [Bundle]}]]] - ["." / "_" - ["#." common] - ["#." host]]) + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host]]) (def: .public bundle Bundle diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux index 706c69c00..e3ac4141b 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux @@ -3,43 +3,43 @@ [lux {"-" [Type Label]} [ffi {"+" [import:]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#@." monad)] - ["." dictionary]]] + ["[0]" list ("[1]@[0]" monad)] + ["[0]" dictionary]]] [math [number ["f" frac]]] [target [jvm - ["." type]]] + ["[0]" type]]] [tool [compiler - ["." phase] + ["[0]" phase] [meta [archive {"+" [Archive]}]] [language [lux - ["." synthesis {"+" [Synthesis %synthesis]}] + ["[0]" synthesis {"+" [Synthesis %synthesis]}] [phase [generation [extension {"+" [Nullary Unary Binary Trinary Variadic nullary unary binary trinary variadic]}]] - ["." extension - ["." bundle]]]]]]]]] + ["[0]" extension + ["[0]" bundle]]]]]]]]] [luxc [lang [host ["$" jvm {"+" [Label Inst Def Handler Bundle Operation Phase]} ["_" inst]]]]] - ["." /// - ["." runtime]]) + ["[0]" /// + ["[0]" runtime]]) (def: .public (custom [parser handler]) (All (_ s) @@ -55,7 +55,7 @@ (phase.except extension.invalid_syntax [extension_name %synthesis input])))) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" MIN_VALUE java/lang/Double) ("static" MAX_VALUE java/lang/Double)]) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux index 802d13d3f..4539ea17e 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux @@ -3,56 +3,56 @@ [lux {"-" [Type Label primitive int char type]} [ffi {"+" [import:]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)] - ["." exception {"+" [exception:]}] - ["." function] - ["<>" parser ("#\." monad) - ["<.>" text] - ["<.>" synthesis {"+" [Parser]}]]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] + ["[0]" function] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text] + ["<[0]>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set]]] + ["[0]" list ("[1]\[0]" monad mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]] [target [jvm - ["." type {"+" [Type Typed Argument]} - ["." category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] - ["." box] - ["." reflection] - ["." signature] - ["." descriptor] - ["." parser]]]] + ["[0]" type {"+" [Type Typed Argument]} + ["[0]" category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" box] + ["[0]" reflection] + ["[0]" signature] + ["[0]" descriptor] + ["[0]" parser]]]] [tool [compiler - ["." phase ("#\." monad)] + ["[0]" phase ("[1]\[0]" monad)] [reference {"+" []} - ["." variable {"+" [Variable Register]}]] + ["[0]" variable {"+" [Variable Register]}]] [meta [archive {"+" [Archive]}]] [language [lux [analysis {"+" [Environment]}] - ["." synthesis {"+" [Synthesis Path %synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [Synthesis Path %synthesis]}] + ["[0]" generation] [phase [generation [extension {"+" [Nullary Unary Binary nullary unary binary]}]] [analysis - [".A" reference]] - ["." extension - ["." bundle] + ["[0]A" reference]] + ["[0]" extension + ["[0]" bundle] [analysis ["/" jvm]]]]]]]]]] [luxc @@ -60,12 +60,12 @@ [host ["$" jvm {"+" [Label Inst Def Handler Bundle Operation Phase]} ["_" inst] - ["_." def]]]]] - ["." // "_" + ["_[0]" def]]]]] + ["[0]" // "_" [common {"+" [custom]}] - ["/#" // - ["#." reference] - ["#." function]]]) + ["/[1]" // + ["[1][0]" reference] + ["[1][0]" function]]]) (template [<name> <category> <parser>] [(def: .public <name> diff --git a/lux-jvm/source/luxc/lang/translation/jvm/function.lux b/lux-jvm/source/luxc/lang/translation/jvm/function.lux index 9cd5efdfb..2a202fbcd 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/function.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/function.lux @@ -2,47 +2,47 @@ [library [lux {"-" [Type Label function]} [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control [pipe {"+" [when> new>]}] - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#@." functor monoid)]]] + ["[0]" list ("[1]@[0]" functor monoid)]]] [math [number ["n" nat] ["i" int]]] [target [jvm - ["." type {"+" [Type]} - ["." category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}]]]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}]]]] [tool [compiler [arity {"+" [Arity]}] - ["." phase] + ["[0]" phase] [reference [variable {"+" [Register]}]] [language [lux [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis Abstraction Apply]}] - ["." generation {"+" [Context]}]]] + ["[0]" generation {"+" [Context]}]]] [meta [archive {"+" [Archive]}]]]]]] [luxc [lang [host ["$" jvm {"+" [Label Inst Def Operation Phase Generator]} - ["." def] + ["[0]" def] ["_" inst]]]]] - ["." // - ["#." runtime] - ["." reference]]) + ["[0]" // + ["[1][0]" runtime] + ["[0]" reference]]) (def: arity_field Text "arity") diff --git a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux index 1583cbed3..7d037280d 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux @@ -2,30 +2,30 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data [collection - ["." list ("#@." functor monoid)]]] + ["[0]" list ("[1]@[0]" functor monoid)]]] [math [number ["n" nat]]] [tool [compiler - ["." phase] + ["[0]" phase] [reference [variable {"+" [Register]}]] [language [lux - ["." synthesis {"+" [Synthesis]}] - ["." generation]]]]]]] + ["[0]" synthesis {"+" [Synthesis]}] + ["[0]" generation]]]]]]] [luxc [lang [host [jvm {"+" [Inst Operation Phase Generator]} ["_" inst]]]]] - ["." //]) + ["[0]" //]) (def: (invariant? expected actual) (-> Register Synthesis Bit) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux index 1b1c0dd3b..1e93db481 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/primitive.lux @@ -1,20 +1,20 @@ (.module: [library [lux {"-" [i64]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [math [number ["i" int]]] [target [jvm - ["." type]]] + ["[0]" type]]] [tool [compiler - [phase ("operation@." monad)]]]]] + [phase ("operation@[0]" monad)]]]]] [luxc [lang [host - ["." jvm {"+" [Inst Operation]} + ["[0]" jvm {"+" [Inst Operation]} ["_" inst]]]]]) (def: .public bit @@ -24,12 +24,12 @@ (operation@in (_.GETSTATIC Boolean (if value "TRUE" "FALSE") Boolean))))) (import: java/lang/Byte - ["#::." + ["[1]::[0]" ("static" MAX_VALUE byte) ("static" MIN_VALUE byte)]) (import: java/lang/Short - ["#::." + ["[1]::[0]" ("static" MAX_VALUE short) ("static" MIN_VALUE short)]) @@ -67,7 +67,7 @@ (operation@in (|>> constantI (_.wrap type.long)))))) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits "manual" [double] int)]) (def: d0-bits diff --git a/lux-jvm/source/luxc/lang/translation/jvm/program.lux b/lux-jvm/source/luxc/lang/translation/jvm/program.lux index e12e3b0e7..1db9028d1 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/program.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/program.lux @@ -20,8 +20,8 @@ ["$d" def] ["$i" inst]]] [translation - ["." jvm - ["." runtime]]]]]) + ["[0]" jvm + ["[0]" runtime]]]]]) (def: ^Object ($t.class "java.lang.Object" (list))) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux index 204fddfa8..9b0feeb78 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/reference.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/reference.lux @@ -8,24 +8,24 @@ ["%" format {"+" [format]}]]] [target [jvm - ["." type]]] + ["[0]" type]]] [tool [compiler [reference - ["." variable {"+" [Register Variable]}]] - ["." phase ("operation@." monad)] + ["[0]" variable {"+" [Register Variable]}]] + ["[0]" phase ("operation@[0]" monad)] [meta [archive {"+" [Archive]}]] [language [lux - ["." generation]]]]]]] + ["[0]" generation]]]]]]] [luxc [lang [host [jvm {"+" [Inst Operation]} ["_" inst]]]]] - ["." // - ["#." runtime]]) + ["[0]" // + ["[1][0]" runtime]]) (template [<name> <prefix>] [(def: .public <name> diff --git a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux index c351dd21c..8deac8430 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux @@ -3,41 +3,41 @@ [lux {"-" [Type Label try]} [abstract [monad {"+" [do]}] - ["." enum]] + ["[0]" enum]] [data [binary {"+" [Binary]}] - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#@." functor)] - ["." row]]] - ["." math + ["[0]" list ("[1]@[0]" functor)] + ["[0]" row]]] + ["[0]" math [number ["n" nat]]] [target [jvm - ["." type {"+" [Type]} - ["." category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] - ["." reflection]]]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" reflection]]]] [tool [compiler [arity {"+" [Arity]}] - ["." phase] + ["[0]" phase] [language [lux - ["." synthesis] - ["." generation]]] + ["[0]" synthesis] + ["[0]" generation]]] [meta [archive {"+" [Output]} - ["." artifact {"+" [Registry]}]]]]]]] + ["[0]" artifact {"+" [Registry]}]]]]]]] [luxc [lang [host ["$" jvm {"+" [Label Inst Def Operation]} ["$d" def] ["_" inst]]]]] - ["." // {"+" [ByteCode]}]) + ["[0]" // {"+" [ByteCode]}]) (def: $Text (type.class "java.lang.String" (list))) (def: .public $Lefts type.int) diff --git a/lux-jvm/source/luxc/lang/translation/jvm/structure.lux b/lux-jvm/source/luxc/lang/translation/jvm/structure.lux index a8c117f6e..2a688f4cc 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/structure.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/structure.lux @@ -1,29 +1,29 @@ (.module: [library [lux {"-" [Type]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." list]]] + ["[0]" list]]] [math [number ["n" nat] ["i" int]]] [target [jvm - ["." type {"+" [Type]} - ["." category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] - ["." descriptor {"+" [Descriptor]}] - ["." signature {"+" [Signature]}]]]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Void Value Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" descriptor {"+" [Descriptor]}] + ["[0]" signature {"+" [Signature]}]]]] [tool [compiler - ["." phase] + ["[0]" phase] [meta [archive {"+" [Archive]}]] [language @@ -34,8 +34,8 @@ [host [jvm {"+" [Inst Operation Phase Generator]} ["_" inst]]]]] - ["." // - ["#." runtime]]) + ["[0]" // + ["[1][0]" runtime]]) (exception: .public (not_a_tuple {size Nat}) (exception.report @@ -63,12 +63,12 @@ membersI)))) (import: java/lang/Byte - ["#::." + ["[1]::[0]" ("static" MAX_VALUE byte) ("static" MIN_VALUE byte)]) (import: java/lang/Short - ["#::." + ["[1]::[0]" ("static" MAX_VALUE short) ("static" MIN_VALUE short)]) diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index 6a908d1b1..b2319af7e 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -3,89 +3,89 @@ [lux {"-" [Definition]} [program {"+" [program:]}] ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try {"+" [Try]}] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection [array {"+" [Array]}] - ["." dictionary]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" dictionary]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] [target - ["." jvm "_" + ["[0]" jvm "_" [bytecode {"+" [Bytecode]}] - ["#/." type - ["#/." box]]]] + ["[1]/[0]" type + ["[1]/[0]" box]]]] [tool [compiler [reference {"+" []}] - ["." phase] + ["[0]" phase] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta [archive {"+" [Archive]}] - ["." packager "_" - ["#" jvm]]] + ["[0]" packager "_" + ["[1]" jvm]]] [language [lux ["$" synthesis {"+" [Synthesis]}] - ["." generation] + ["[0]" generation] [analysis [macro {"+" [Expander]}]] [phase [extension {"+" [Phase Bundle Operation Handler Extender]} - ["." analysis "_" - ["#" jvm]] - ... ["." generation "_" - ... ["#" jvm]] - ... ["." directive "_" - ... ["#" jvm]] + ["[0]" analysis "_" + ["[1]" jvm]] + ... ["[0]" generation "_" + ... ["[1]" jvm]] + ... ["[0]" directive "_" + ... ["[1]" jvm]] ] [generation - ["." jvm "_" - ["#/." runtime] - ... ["#/." host] + ["[0]" jvm "_" + ["[1]/[0]" runtime] + ... ["[1]/[0]" host] ]]]]]]]]] [program ["/" compositor - ["/." cli] - ["/." static]]] + ["/[0]" cli] + ["/[0]" static]]] [luxc [lang [host ["_" jvm]] - ["." directive "_" - ["#" jvm]] + ["[0]" directive "_" + ["[1]" jvm]] [translation - ["." jvm - ["." runtime] - ["." expression] - ["." function] - ["#/." program] + ["[0]" jvm + ["[0]" runtime] + ["[0]" expression] + ["[0]" function] + ["[1]/[0]" program] ["translation" extension]]]]]) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (invoke [java/lang/Object [java/lang/Object]] "try" java/lang/Object)]) (import: java/lang/ClassLoader) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" (getMethod [java/lang/String [(java/lang/Class java/lang/Object)]] "try" java/lang/reflect/Method)]) (import: java/lang/Object - ["#::." + ["[1]::[0]" (getClass [] (java/lang/Class java/lang/Object))]) (def: _object_class diff --git a/lux-jvm/source/test/program.lux b/lux-jvm/source/test/program.lux index e8cf0df53..53463255a 100644 --- a/lux-jvm/source/test/program.lux +++ b/lux-jvm/source/test/program.lux @@ -2,13 +2,13 @@ [lux "*" ["_" test {"+" [Test]}] [control - ["." io] + ["[0]" io] [parser [cli {"+" [program:]}]]]] [spec - ["." compositor]] + ["[0]" compositor]] {1 - ["." /]}) + ["[0]" /]}) (program: args (<| io.io diff --git a/lux-jvm/test/test/luxc/lang/analysis/host.jvm.lux b/lux-jvm/test/test/luxc/lang/analysis/host.jvm.lux index e8a585408..ef12fcf25 100644 --- a/lux-jvm/test/test/luxc/lang/analysis/host.jvm.lux +++ b/lux-jvm/test/test/luxc/lang/analysis/host.jvm.lux @@ -3,33 +3,33 @@ [control pipe [monad {"+" [do]}] - ["." maybe]] + ["[0]" maybe]] [data ["e" error] - ["." product] + ["[0]" product] [text ("text/" Equivalence<Text>) format] [collection - ["." array] + ["[0]" array] [list ("list/" Mix<List>)] ["dict" dictionary]]] [math ["r" random "r/" Monad<Random>]] - ["." type] + ["[0]" type] [macro {"+" [Monad<Meta>]} - ["." code]] + ["[0]" code]] [compiler - ["." default - [".L" init] + ["[0]" default + ["[0]L" init] [phase [analysis - [".A" type]] + ["[0]A" type]] [extension [analysis - [".AE" host]]]]]] + ["[0]AE" host]]]]]] test] [/// - ["_." primitive]]) + ["_[0]" primitive]]) (template [<name> <success> <failure>] [(def: (<name> procedure params output-type) diff --git a/lux-jvm/test/test/luxc/lang/synthesis/loop.lux b/lux-jvm/test/test/luxc/lang/synthesis/loop.lux index 7c059ac2e..ad2a67deb 100644 --- a/lux-jvm/test/test/luxc/lang/synthesis/loop.lux +++ b/lux-jvm/test/test/luxc/lang/synthesis/loop.lux @@ -12,9 +12,9 @@ test) (luxc (lang ["la" analysis] ["ls" synthesis] - (synthesis [".S" expression] - [".S" loop]) - [".L" extension])) + (synthesis ["[0]S" expression] + ["[0]S" loop]) + ["[0]L" extension])) (// common)) (def: (does-recursion? arity exprS) diff --git a/lux-jvm/test/test/luxc/lang/synthesis/procedure.lux b/lux-jvm/test/test/luxc/lang/synthesis/procedure.lux index ccbb28320..1262f2252 100644 --- a/lux-jvm/test/test/luxc/lang/synthesis/procedure.lux +++ b/lux-jvm/test/test/luxc/lang/synthesis/procedure.lux @@ -10,8 +10,8 @@ test) (luxc (lang ["la" analysis] ["ls" synthesis] - (synthesis [".S" expression]) - [".L" extension])) + (synthesis ["[0]S" expression]) + ["[0]L" extension])) (// common)) (context: "Procedures" diff --git a/lux-jvm/test/test/luxc/lang/translation/jvm.lux b/lux-jvm/test/test/luxc/lang/translation/jvm.lux index 060081e13..95812e6ca 100644 --- a/lux-jvm/test/test/luxc/lang/translation/jvm.lux +++ b/lux-jvm/test/test/luxc/lang/translation/jvm.lux @@ -17,11 +17,11 @@ [host] test) (luxc [lang] - (lang [".L" host] + (lang ["[0]L" host] ["ls" synthesis] - (translation (jvm [".T" expression] - [".T" eval] - [".T" runtime])))) + (translation (jvm ["[0]T" expression] + ["[0]T" eval] + ["[0]T" runtime])))) (test/luxc common)) (context: "Conversions [Part 1]" diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index 5ec2a3b8e..cc422bb5a 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -2,39 +2,39 @@ [library [lux "*" [program {"+" [program:]}] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["." function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["[0]" function] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}] - ["." list]]] + ["[0]" array {"+" [Array]}] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" lua]] [tool [compiler - ["." phase {"+" [Operation Phase]}] + ["[0]" phase {"+" [Operation Phase]}] [reference [variable {"+" [Register]}]] [language @@ -44,60 +44,60 @@ [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" lua]] - ["." generation "_" - ["#" lua]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" lua]] + ["[0]" generation "_" + ["[1]" lua]]] [generation - ["." reference] - ["." lua - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" lua + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta [archive {"+" [Archive]}] - ["." packager "_" - ["#" script]]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (with_expansions [<jvm> (as_is (ffi.import: java/lang/String) (ffi.import: (java/lang/Class a)) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: net/sandius/rembulan/StateContext) (ffi.import: net/sandius/rembulan/impl/StateContexts - ["#::." + ["[1]::[0]" ("static" newDefaultInstance [] net/sandius/rembulan/StateContext)]) (ffi.import: net/sandius/rembulan/env/RuntimeEnvironment) (ffi.import: net/sandius/rembulan/env/RuntimeEnvironments - ["#::." + ["[1]::[0]" ("static" system [] net/sandius/rembulan/env/RuntimeEnvironment)]) (ffi.import: net/sandius/rembulan/Table - ["#::." + ["[1]::[0]" (rawget "as" get_idx [long] "?" java/lang/Object) (rawget "as" get_key [java/lang/Object] "?" java/lang/Object) (rawlen [] long)]) (ffi.import: net/sandius/rembulan/ByteString - ["#::." + ["[1]::[0]" (decode [] java/lang/String)]) (ffi.import: net/sandius/rembulan/impl/DefaultTable) @@ -105,38 +105,38 @@ (ffi.import: net/sandius/rembulan/impl/ImmutableTable) (ffi.import: net/sandius/rembulan/impl/ImmutableTable$Builder - ["#::." + ["[1]::[0]" (new []) (build [] net/sandius/rembulan/impl/ImmutableTable)]) (ffi.import: net/sandius/rembulan/lib/StandardLibrary - ["#::." + ["[1]::[0]" ("static" in [net/sandius/rembulan/env/RuntimeEnvironment] net/sandius/rembulan/lib/StandardLibrary) (installInto [net/sandius/rembulan/StateContext] net/sandius/rembulan/Table)]) (ffi.import: net/sandius/rembulan/Variable - ["#::." + ["[1]::[0]" (new [java/lang/Object])]) (ffi.import: net/sandius/rembulan/runtime/ReturnBuffer - ["#::." + ["[1]::[0]" (setTo [java/lang/Object] void)]) (ffi.import: net/sandius/rembulan/runtime/ExecutionContext - ["#::." + ["[1]::[0]" (getReturnBuffer [] net/sandius/rembulan/runtime/ReturnBuffer)]) (ffi.import: net/sandius/rembulan/runtime/LuaFunction) (ffi.import: net/sandius/rembulan/load/ChunkLoader - ["#::." + ["[1]::[0]" (loadTextChunk [net/sandius/rembulan/Variable java/lang/String java/lang/String] "try" net/sandius/rembulan/runtime/LuaFunction)]) (ffi.import: net/sandius/rembulan/compiler/CompilerChunkLoader - ["#::." + ["[1]::[0]" ("static" of [java/lang/String] net/sandius/rembulan/compiler/CompilerChunkLoader)]) (ffi.import: net/sandius/rembulan/runtime/SchedulingContext) @@ -144,7 +144,7 @@ (ffi.import: net/sandius/rembulan/runtime/SchedulingContextFactory) (ffi.import: net/sandius/rembulan/exec/DirectCallExecutor - ["#::." + ["[1]::[0]" ("static" newExecutor [] net/sandius/rembulan/exec/DirectCallExecutor) (schedulingContextFactory [] net/sandius/rembulan/runtime/SchedulingContextFactory) (call [net/sandius/rembulan/StateContext java/lang/Object [java/lang/Object]] "try" [java/lang/Object])]) @@ -159,7 +159,7 @@ (getValue [] java/lang/Object)) (`` (ffi.import: (~~ (template.identifier ["program/" <name>])) - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]))] [StructureValue] diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux index 6a80b1eae..6c233ab4f 100644 --- a/lux-php/source/program.lux +++ b/lux-php/source/program.lux @@ -1,34 +1,34 @@ (.module: [lux "*" [program {"+" [program:]}] - ["." ffi] - ["." debug] + ["[0]" ffi] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [exec> case>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." promise {"+" [Promise]}]]] + ["[0]" promise {"+" [Promise]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" php]] [tool @@ -40,99 +40,99 @@ [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" php]] - ["." generation "_" - ["#" php]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" php]] + ["[0]" generation "_" + ["[1]" php]]] [generation - ["." reference] - ["." php - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" php + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta - ["." packager "_" - ["#" script]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (ffi.import: java/lang/String) (ffi.import: java/lang/reflect/Field - ["#::." + ["[1]::[0]" (get [java/lang/Object] java/lang/Object)]) (ffi.import: java/lang/reflect/AccessibleObject - ["#::." + ["[1]::[0]" (setAccessible [boolean] void)]) (ffi.import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getDeclaredField [java/lang/String] java/lang/reflect/Field)]) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Integer) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: php/runtime/Memory - ["#::." + ["[1]::[0]" (valueOfIndex "as" generic_valueOfIndex [php/runtime/env/TraceInfo php/runtime/Memory] php/runtime/Memory) (valueOfIndex "as" long_valueOfIndex [php/runtime/env/TraceInfo long] php/runtime/Memory) (valueOfIndex "as" string_valueOfIndex [php/runtime/env/TraceInfo java/lang/String] php/runtime/Memory)]) (ffi.import: php/runtime/Memory$Type - ["#::." + ["[1]::[0]" ("enum" ARRAY)]) (ffi.import: php/runtime/memory/NullMemory - ["#::." + ["[1]::[0]" ("static" INSTANCE php/runtime/memory/NullMemory)]) (ffi.import: php/runtime/memory/FalseMemory - ["#::." + ["[1]::[0]" ("static" INSTANCE php/runtime/memory/FalseMemory)]) (ffi.import: php/runtime/memory/TrueMemory - ["#::." + ["[1]::[0]" ("static" INSTANCE php/runtime/memory/TrueMemory)]) (ffi.import: php/runtime/memory/LongMemory - ["#::." + ["[1]::[0]" (new [long]) (toLong [] long) ("static" valueOf "manual" [int] php/runtime/Memory)]) (ffi.import: php/runtime/memory/DoubleMemory - ["#::." + ["[1]::[0]" (new [double]) (toDouble [] double)]) (ffi.import: php/runtime/memory/StringMemory - ["#::." + ["[1]::[0]" (new [java/lang/String]) (toString [] java/lang/String)]) (ffi.import: php/runtime/memory/ReferenceMemory - ["#::." + ["[1]::[0]" (getValue [] php/runtime/Memory)]) (ffi.import: php/runtime/memory/ArrayMemory - ["#::." + ["[1]::[0]" (new [[java/lang/Object]]) (size [] int) (isMap [] boolean) @@ -141,24 +141,24 @@ (ffi.import: php/runtime/lang/IObject) (ffi.import: php/runtime/memory/ObjectMemory - ["#::." + ["[1]::[0]" (value php/runtime/lang/IObject)]) (ffi.import: php/runtime/env/Environment) (ffi.import: php/runtime/env/TraceInfo - ["#::." + ["[1]::[0]" (new [java/lang/String int int])]) (ffi.import: php/runtime/reflection/FunctionEntity) (ffi.import: php/runtime/invoke/InvokeHelper - ["#::." + ["[1]::[0]" ("static" callAny [php/runtime/Memory [php/runtime/Memory] php/runtime/env/Environment php/runtime/env/TraceInfo] "try" php/runtime/Memory)]) (ffi.import: php/runtime/lang/Closure - ["#::." + ["[1]::[0]" (call [php/runtime/env/Environment [php/runtime/Memory]] "try" php/runtime/Memory)]) (template [<name>] @@ -166,7 +166,7 @@ (getValue [] java/lang/Object)) (`` (ffi.import: (~~ (template.identifier ["program/" <name>])) - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]))] [StructureValue] @@ -419,11 +419,11 @@ ["Non-function" (java/lang/Object::toString object)])) (ffi.import: javax/script/ScriptEngine - ["#::." + ["[1]::[0]" (eval [java/lang/String] "try" Object)]) (ffi.import: org/develnext/jphp/scripting/JPHPScriptEngine - ["#::." + ["[1]::[0]" (new [])]) (def: (ensure_macro macro) diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux index 34f527aed..8cc2987af 100644 --- a/lux-python/source/program.lux +++ b/lux-python/source/program.lux @@ -2,77 +2,77 @@ [library [lux "*" [program {"+" [program:]}] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}]] [control [pipe {"+" [new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["." function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["[0]" function] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}] - ["." list]]] + ["[0]" array {"+" [Array]}] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" python]] [tool [compiler - ["." phase {"+" [Operation Phase]}] + ["[0]" phase {"+" [Operation Phase]}] [reference [variable {"+" [Register]}]] [language [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" python]] - ["." generation "_" - ["#" python]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" python]] + ["[0]" generation "_" + ["[1]" python]]] [generation - ["." reference] - ["." python - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" python + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta [archive {"+" [Archive]}] - ["." packager "_" - ["#" script]]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]]] [program ["/" compositor - ["/." cli] - ["/." static]]]) + ["/[0]" cli] + ["/[0]" static]]]) (with_expansions [<jvm> (as_is (import: java/lang/String) (import: (java/lang/Class a)) (import: java/lang/Object - ["#::." + ["[1]::[0]" (new []) (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) @@ -86,11 +86,11 @@ (import: org/python/core/PyList) (import: org/python/core/PyString - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (import: org/python/core/PyObject - ["#::." + ["[1]::[0]" ... (asInt [] int) (asLong [] long) (asDouble [] double) @@ -101,18 +101,18 @@ (__len__ [] int)]) (import: org/python/core/PyFunction - ["#::." + ["[1]::[0]" (__call__ [[org/python/core/PyObject]] "try" org/python/core/PyObject)]) (import: org/python/core/ThreadState) (import: org/python/core/PyArray - ["#::." + ["[1]::[0]" (new [(java/lang/Class [? < java/lang/Object]) java/lang/Object]) (getArray [] java/lang/Object)]) (import: org/python/util/PythonInterpreter - ["#::." + ["[1]::[0]" (new []) (exec [java/lang/String] "try" void) (eval [java/lang/String] "try" PyObject)]) diff --git a/lux-r/source/luxc/lang/synthesis/variable.lux b/lux-r/source/luxc/lang/synthesis/variable.lux index ecbca7062..82478a2d6 100644 --- a/lux-r/source/luxc/lang/synthesis/variable.lux +++ b/lux-r/source/luxc/lang/synthesis/variable.lux @@ -5,7 +5,7 @@ ["s" set]))) (luxc (lang ["la" analysis] ["ls" synthesis] - [".L" variable {"+" [Variable]}]))) + ["[0]L" variable {"+" [Variable]}]))) (def: (bound-vars path) (-> ls.Path (List Variable)) diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index 78afc9e3e..474d88d8a 100644 --- a/lux-r/source/program.lux +++ b/lux-r/source/program.lux @@ -1,38 +1,38 @@ (.module: [lux "*" [program {"+" [program:]}] - ["." ffi] - ["." debug] + ["[0]" ffi] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [exec> case> new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." promise {"+" [Promise]}]] + ["[0]" promise {"+" [Promise]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}]]] - ["." macro + ["[0]" array {"+" [Array]}]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" r]] [tool @@ -44,61 +44,61 @@ [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" r]] - ["." generation "_" - ["#" r]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" r]] + ["[0]" generation "_" + ["[1]" r]]] [generation - ["." reference] - ["." r - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" r + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta - ["." packager "_" - ["#" script]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (ffi.import: java/lang/String) (ffi.import: (java/lang/Class a) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] long)]) (ffi.import: java/lang/Number - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer) (longValue [] long) (doubleValue [] double)]) (ffi.import: org/renjin/sexp/SEXP - ["#::." + ["[1]::[0]" (asInt [] int)]) (ffi.import: org/renjin/sexp/AttributeMap - ["#::." + ["[1]::[0]" ("static" EMPTY org/renjin/sexp/AttributeMap)]) (ffi.import: org/renjin/sexp/AbstractSEXP) @@ -106,17 +106,17 @@ (ffi.import: org/renjin/sexp/IntArrayVector) (ffi.import: org/renjin/sexp/Logical - ["#::." + ["[1]::[0]" (toBooleanStrict [] boolean)]) (ffi.import: org/renjin/sexp/LogicalVector - ["#::." + ["[1]::[0]" (asLogical [] org/renjin/sexp/Logical)]) (ffi.import: org/renjin/sexp/LogicalArrayVector) (ffi.import: org/renjin/sexp/StringVector - ["#::." + ["[1]::[0]" (asString [] java/lang/String)]) (ffi.import: org/renjin/sexp/StringArrayVector) @@ -124,7 +124,7 @@ (ffi.import: org/renjin/sexp/Null) (ffi.import: org/renjin/sexp/ListVector - ["#::." + ["[1]::[0]" (get "as" get_index [int] org/renjin/sexp/SEXP) (get "as" get_field [java/lang/String] org/renjin/sexp/SEXP) (length [] int)]) @@ -132,7 +132,7 @@ (ffi.import: org/renjin/sexp/PairList) (ffi.import: org/renjin/sexp/PairList$Builder - ["#::." + ["[1]::[0]" (new []) (add [org/renjin/sexp/SEXP] org/renjin/sexp/PairList$Builder) (build [] org/renjin/sexp/PairList)]) @@ -142,24 +142,24 @@ (ffi.import: org/renjin/sexp/Environment) (ffi.import: org/renjin/sexp/FunctionCall - ["#::." + ["[1]::[0]" (new [org/renjin/sexp/SEXP org/renjin/sexp/PairList]) (eval [org/renjin/eval/Context org/renjin/sexp/Environment] "try" org/renjin/sexp/SEXP)]) (ffi.import: org/renjin/sexp/Closure - ["#::." + ["[1]::[0]" (getEnclosingEnvironment [] org/renjin/sexp/Environment)]) (ffi.import: javax/script/ScriptEngine - ["#::." + ["[1]::[0]" (eval [java/lang/String] "try" java/lang/Object)]) (ffi.import: org/renjin/script/RenjinScriptEngine - ["#::." + ["[1]::[0]" (getRuntimeContext [] org/renjin/eval/Context)]) (ffi.import: org/renjin/script/RenjinScriptEngineFactory - ["#::." + ["[1]::[0]" (new []) (getScriptEngine [] org/renjin/script/RenjinScriptEngine)]) diff --git a/lux-r/source/test/program.lux b/lux-r/source/test/program.lux index e8cf0df53..53463255a 100644 --- a/lux-r/source/test/program.lux +++ b/lux-r/source/test/program.lux @@ -2,13 +2,13 @@ [lux "*" ["_" test {"+" [Test]}] [control - ["." io] + ["[0]" io] [parser [cli {"+" [program:]}]]]] [spec - ["." compositor]] + ["[0]" compositor]] {1 - ["." /]}) + ["[0]" /]}) (program: args (<| io.io diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index 8733c42d4..8c2cb3480 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -2,126 +2,126 @@ [library [lux "*" [program {"+" [program:]}] - ["." debug] - ["." ffi {"+" [import:]}] - ["." meta] + ["[0]" debug] + ["[0]" ffi {"+" [import:]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["." function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["[0]" function] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}] - ["." list]]] - ["." macro + ["[0]" array {"+" [Array]}] + ["[0]" list]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number {"+" [hex]} ["n" nat] ["i" int] - ["." i64]]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" i64]]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" ruby]] [tool [compiler - ["." phase {"+" [Operation Phase]}] + ["[0]" phase {"+" [Operation Phase]}] [reference [variable {"+" [Register]}]] [language [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" ruby]] - ["." generation "_" - ["#" ruby]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" ruby]] + ["[0]" generation "_" + ["[1]" ruby]]] [generation - ["." reference] - ["." ruby - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" ruby + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta [archive {"+" [Archive]}] - ["." packager "_" - ["#" script]]]]]]] + ["[0]" packager "_" + ["[1]" script]]]]]]] [program ["/" compositor - ["/." cli] - ["/." static]]]) + ["/[0]" cli] + ["/[0]" static]]]) (import: java/lang/String) (import: (java/lang/Class a)) (import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] java/lang/Long)]) (import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (import: org/jruby/RubyString - ["#::." + ["[1]::[0]" ("static" newInternalFromJavaExternal [org/jruby/Ruby java/lang/String] org/jruby/RubyString) (asJavaString [] java/lang/String)]) (import: org/jruby/RubySymbol - ["#::." + ["[1]::[0]" (asJavaString [] java/lang/String)]) (import: org/jruby/runtime/builtin/IRubyObject) (import: org/jruby/Ruby - ["#::." + ["[1]::[0]" (getCurrentContext [] org/jruby/runtime/ThreadContext) (getNil [] org/jruby/runtime/builtin/IRubyObject)]) (import: org/jruby/RubyClass) (import: org/jruby/RubyArray - ["#::." + ["[1]::[0]" (getLength [] int) (get [int] "?" Object)]) (import: org/jruby/RubyHash - ["#::." + ["[1]::[0]" (get [java/lang/Object] "?" java/lang/Object)]) (import: org/jruby/runtime/ThreadContext) (import: org/jruby/RubyRange - ["#::." + ["[1]::[0]" (first [org/jruby/runtime/ThreadContext] org/jruby/runtime/builtin/IRubyObject) (size [org/jruby/runtime/ThreadContext] org/jruby/runtime/builtin/IRubyObject)]) @@ -129,7 +129,7 @@ (getValue [] java/lang/Object)) (import: program/StructureValue - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]) (syntax: (method_inputs [input_classes (<code>.tuple (<>.some <code>.any))]) @@ -146,11 +146,11 @@ (import: org/jruby/runtime/builtin/InternalVariables) (import: org/jruby/embed/internal/LocalContextProvider - ["#::." + ["[1]::[0]" (getRuntime [] org/jruby/Ruby)]) (import: org/jruby/embed/ScriptingContainer - ["#::." + ["[1]::[0]" (new []) (runScriptlet [java/lang/String] "try" "?" java/lang/Object) (getProvider [] org/jruby/embed/internal/LocalContextProvider)]) @@ -172,58 +172,58 @@ (!ruby_runtime)) (import: org/jruby/java/proxies/JavaProxy - ["#::." + ["[1]::[0]" (new [org/jruby/Ruby org/jruby/RubyClass java/lang/Object]) (getObject [] java/lang/Object)]) (import: org/jruby/internal/runtime/methods/DynamicMethod) (import: org/jruby/runtime/callsite/CacheEntry - ["#::." + ["[1]::[0]" (new [org/jruby/internal/runtime/methods/DynamicMethod int])]) (import: org/jruby/RubyFixnum - ["#::." + ["[1]::[0]" (new [org/jruby/Ruby long]) (getLongValue [] long)]) (import: org/jruby/RubyFloat - ["#::." + ["[1]::[0]" (new [org/jruby/Ruby double])]) (import: org/jruby/RubyBoolean - ["#::." + ["[1]::[0]" ("static" newBoolean [org/jruby/Ruby boolean] org/jruby/RubyBoolean)]) (import: org/jruby/RubyNil - ["#::." + ["[1]::[0]" (new [org/jruby/Ruby])]) (import: org/jruby/runtime/Block$Type - ["#::." + ["[1]::[0]" ("enum" PROC)]) (import: org/jruby/runtime/Signature - ["#::." + ["[1]::[0]" ("static" THREE_ARGUMENTS org/jruby/runtime/Signature)]) (import: org/jruby/parser/StaticScope) (import: org/jruby/parser/StaticScopeFactory - ["#::." + ["[1]::[0]" (new [org/jruby/Ruby]) (getDummyScope [] org/jruby/parser/StaticScope)]) (import: org/jruby/runtime/BlockBody) (import: org/jruby/runtime/Block - ["#::." + ["[1]::[0]" ("static" NULL_BLOCK org/jruby/runtime/Block) (type org/jruby/runtime/Block$Type) (getBody [] org/jruby/runtime/BlockBody)]) (import: org/jruby/RubyProc - ["#::." + ["[1]::[0]" ("static" newProc [org/jruby/Ruby org/jruby/runtime/Block org/jruby/runtime/Block$Type] org/jruby/RubyProc) (call [org/jruby/runtime/ThreadContext [org/jruby/runtime/builtin/IRubyObject]] "try" org/jruby/runtime/builtin/IRubyObject)]) @@ -359,7 +359,7 @@ java/lang/Object::toString)])) (import: java/util/Arrays - ["#::." + ["[1]::[0]" ("static" [t] copyOfRange [[t] int int] [t])]) (def: (lux_wrapper_access lux_structure value) diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index f96d207b6..a4524eff8 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -1,35 +1,35 @@ (.module: [lux "*" [program {"+" [program:]}] - ["." ffi] - ["." debug] + ["[0]" ffi] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [exec> case> new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." promise {"+" [Promise]}]]] + ["[0]" promise {"+" [Promise]}]]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat] - ["." i64]]] + ["[0]" i64]]] [time - ["." instant]] - ["." world "_" - ["." file] - ["#/." program]] + ["[0]" instant]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program]] ["@" target ["_" scheme]] [tool @@ -41,29 +41,29 @@ [lux [program {"+" [Program]}] [generation {"+" [Context Host]}] - ["." synthesis] + ["[0]" synthesis] [analysis [macro {"+" [Expander]}]] [phase - ["." extension {"+" [Extender Handler]} - ["#/." bundle] - ["." analysis "_" - ["#" scheme]] - ["." generation "_" - ["#" scheme]]] + ["[0]" extension {"+" [Extender Handler]} + ["[1]/[0]" bundle] + ["[0]" analysis "_" + ["[1]" scheme]] + ["[0]" generation "_" + ["[1]" scheme]]] [generation - ["." reference] - ["." scheme - ["." runtime]]]]]] + ["[0]" reference] + ["[0]" scheme + ["[0]" runtime]]]]]] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [meta - ["." packager "_" - ["#" scheme]]]]]] + ["[0]" packager "_" + ["[1]" scheme]]]]]] [program ["/" compositor - ["#." cli] - ["#." static]]]) + ["[1][0]" cli] + ["[1][0]" static]]]) (ffi.import: java/lang/Boolean) (ffi.import: java/lang/String) @@ -71,64 +71,64 @@ (ffi.import: (java/lang/Class a)) (ffi.import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] java/lang/Integer)]) (ffi.import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] java/lang/Long)]) (ffi.import: gnu/math/IntNum - ["#::." + ["[1]::[0]" (new "manual" [int]) (longValue [] long)]) (ffi.import: gnu/math/DFloNum - ["#::." + ["[1]::[0]" (doubleValue [] double)]) (ffi.import: gnu/lists/FString - ["#::." + ["[1]::[0]" (toString [] String)]) (ffi.import: gnu/lists/IString - ["#::." + ["[1]::[0]" (toString [] String)]) (ffi.import: gnu/lists/Pair - ["#::." + ["[1]::[0]" (getCar [] java/lang/Object) (getCdr [] java/lang/Object)]) (ffi.import: gnu/lists/EmptyList - ["#::." + ["[1]::[0]" ("static" emptyList gnu/lists/EmptyList)]) (ffi.import: (gnu/lists/FVector E) - ["#::." + ["[1]::[0]" (getBufferLength [] int) (getRaw [int] E)]) (ffi.import: gnu/lists/U8Vector) (ffi.import: gnu/mapping/Procedure - ["#::." + ["[1]::[0]" (apply2 [java/lang/Object java/lang/Object] "try" java/lang/Object) (applyN [[java/lang/Object]] "try" java/lang/Object)]) (ffi.import: gnu/mapping/Environment) (ffi.import: gnu/expr/Language - ["#::." + ["[1]::[0]" (eval [java/lang/String] "try" java/lang/Object)]) (ffi.import: kawa/standard/Scheme - ["#::." + ["[1]::[0]" ("static" getR7rsInstance [] kawa/standard/Scheme)]) (def: (variant? value) @@ -158,7 +158,7 @@ (getValue [] java/lang/Object)) (`` (ffi.import: (~~ (template.identifier ["program/" <name>])) - ["#::." + ["[1]::[0]" (getValue [] java/lang/Object)]))] [VariantValue] diff --git a/stdlib/source/documentation/lux.lux b/stdlib/source/documentation/lux.lux index 88102d67a..d7eba1182 100644 --- a/stdlib/source/documentation/lux.lux +++ b/stdlib/source/documentation/lux.lux @@ -3,42 +3,42 @@ [lux [program {"+" [program:]}] ["$" documentation {"+" [documentation:]}] - ["." debug] + ["[0]" debug] [control - ["." io] + ["[0]" io] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." abstract] - ["#." control] - ["#." data] - ["#." debug] - ["#." documentation] - ["#." extension] - ["#." ffi] - ["#." locale] - ["#." macro] - ["#." math] - ["#." meta] - ["#." program] - ["#." static] - ["#." target] - ["#." test] - ["#." time] - ["#." tool] ... TODO: Documentation for this - ["#." type] - ["#." world] - ... ["#." target "_" + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" abstract] + ["[1][0]" control] + ["[1][0]" data] + ["[1][0]" debug] + ["[1][0]" documentation] + ["[1][0]" extension] + ["[1][0]" ffi] + ["[1][0]" locale] + ["[1][0]" macro] + ["[1][0]" math] + ["[1][0]" meta] + ["[1][0]" program] + ["[1][0]" static] + ["[1][0]" target] + ["[1][0]" test] + ["[1][0]" time] + ["[1][0]" tool] ... TODO: Documentation for this + ["[1][0]" type] + ["[1][0]" world] + ... ["[1][0]" target "_" ... <target>] ]) @@ -536,7 +536,7 @@ \n "Takes an 'alias' text for the generated local bindings.") [(def: .public (range enum from to) (All (_ a) (-> (Enum a) a a (List a))) - (let [(^open ".") enum] + (let [(^open "[0]") enum] (loop [end to output #.End] (cond (< end from) @@ -565,7 +565,7 @@ (documentation: /.open: "Opens a implementation and generates a definition for each of its members (including nested members)." - [(open: "i:." order) + [(open: "i:[0]" order) "=>" (def: i:= (\ order =)) (def: i:< (\ order <))]) @@ -601,11 +601,11 @@ ["M" monad "*"]] [data maybe - ["." name ("#\." codec)]] + ["[0]" name ("[1]\[0]" codec)]] [macro code]] [// - [type ("." equivalence)]])]) + [type ("[0]" equivalence)]])]) (documentation: /.\ "Allows accessing the value of a implementation's member." diff --git a/stdlib/source/documentation/lux/abstract.lux b/stdlib/source/documentation/lux/abstract.lux index 3181d310c..8138b8443 100644 --- a/stdlib/source/documentation/lux/abstract.lux +++ b/stdlib/source/documentation/lux/abstract.lux @@ -6,21 +6,21 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." apply] - ["#." codec] - ["#." comonad] - ["#." enum] - ["#." equivalence] - ["#." mix] - ["#." functor] - ["#." hash] - ["#." interval] - ["#." monad] - ["#." monoid] - ["#." order] - ["#." predicate]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" apply] + ["[1][0]" codec] + ["[1][0]" comonad] + ["[1][0]" enum] + ["[1][0]" equivalence] + ["[1][0]" mix] + ["[1][0]" functor] + ["[1][0]" hash] + ["[1][0]" interval] + ["[1][0]" monad] + ["[1][0]" monoid] + ["[1][0]" order] + ["[1][0]" predicate]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/abstract/apply.lux b/stdlib/source/documentation/lux/abstract/apply.lux index 063946288..84d13dc32 100644 --- a/stdlib/source/documentation/lux/abstract/apply.lux +++ b/stdlib/source/documentation/lux/abstract/apply.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Apply f) "Applicative functors.") diff --git a/stdlib/source/documentation/lux/abstract/codec.lux b/stdlib/source/documentation/lux/abstract/codec.lux index f0eeae7c0..a872caabb 100644 --- a/stdlib/source/documentation/lux/abstract/codec.lux +++ b/stdlib/source/documentation/lux/abstract/codec.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Codec medium value) "A way to move back-and-forth between a type and an alternative representation for it.") diff --git a/stdlib/source/documentation/lux/abstract/comonad.lux b/stdlib/source/documentation/lux/abstract/comonad.lux index 17087bac0..50ee8c3dd 100644 --- a/stdlib/source/documentation/lux/abstract/comonad.lux +++ b/stdlib/source/documentation/lux/abstract/comonad.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]] - ["." / "_" - ["#." cofree]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" cofree]]) (documentation: (/.CoMonad !) (format "Co-monads are the opposite/complement to monads." diff --git a/stdlib/source/documentation/lux/abstract/comonad/cofree.lux b/stdlib/source/documentation/lux/abstract/comonad/cofree.lux index b526fe7db..142759e06 100644 --- a/stdlib/source/documentation/lux/abstract/comonad/cofree.lux +++ b/stdlib/source/documentation/lux/abstract/comonad/cofree.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.CoFree ! it) "The CoFree CoMonad.") diff --git a/stdlib/source/documentation/lux/abstract/enum.lux b/stdlib/source/documentation/lux/abstract/enum.lux index 518ff2303..2c823bbc1 100644 --- a/stdlib/source/documentation/lux/abstract/enum.lux +++ b/stdlib/source/documentation/lux/abstract/enum.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Enum it) "Enumerable types, with a notion of moving forward and backwards through a type's instances.") diff --git a/stdlib/source/documentation/lux/abstract/equivalence.lux b/stdlib/source/documentation/lux/abstract/equivalence.lux index 06d419af8..ea02fe181 100644 --- a/stdlib/source/documentation/lux/abstract/equivalence.lux +++ b/stdlib/source/documentation/lux/abstract/equivalence.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Equivalence it) "Equivalence for a type's instances.") diff --git a/stdlib/source/documentation/lux/abstract/functor.lux b/stdlib/source/documentation/lux/abstract/functor.lux index 9c4cb9a5e..26bba0538 100644 --- a/stdlib/source/documentation/lux/abstract/functor.lux +++ b/stdlib/source/documentation/lux/abstract/functor.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]] - ["." / "_" - ["#." contravariant]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" contravariant]]) (documentation: /.sum "Co-product (sum) composition for functors.") diff --git a/stdlib/source/documentation/lux/abstract/functor/contravariant.lux b/stdlib/source/documentation/lux/abstract/functor/contravariant.lux index 5db7791c7..a97d4fc7f 100644 --- a/stdlib/source/documentation/lux/abstract/functor/contravariant.lux +++ b/stdlib/source/documentation/lux/abstract/functor/contravariant.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Functor !) "The contravariant functor.") diff --git a/stdlib/source/documentation/lux/abstract/hash.lux b/stdlib/source/documentation/lux/abstract/hash.lux index 08ca4099d..e1a3d0d13 100644 --- a/stdlib/source/documentation/lux/abstract/hash.lux +++ b/stdlib/source/documentation/lux/abstract/hash.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Hash it) "A way to produce hash-codes for a type's instances.") diff --git a/stdlib/source/documentation/lux/abstract/interval.lux b/stdlib/source/documentation/lux/abstract/interval.lux index 6160d05ab..47eee41c4 100644 --- a/stdlib/source/documentation/lux/abstract/interval.lux +++ b/stdlib/source/documentation/lux/abstract/interval.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Interval it) "A representation of top and bottom boundaries for an ordered type.") diff --git a/stdlib/source/documentation/lux/abstract/mix.lux b/stdlib/source/documentation/lux/abstract/mix.lux index 8bda5adb1..8bc2be5f5 100644 --- a/stdlib/source/documentation/lux/abstract/mix.lux +++ b/stdlib/source/documentation/lux/abstract/mix.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Mix structure) "Iterate over a structure's values to build a summary value.") diff --git a/stdlib/source/documentation/lux/abstract/monad.lux b/stdlib/source/documentation/lux/abstract/monad.lux index 634598bf3..83858883d 100644 --- a/stdlib/source/documentation/lux/abstract/monad.lux +++ b/stdlib/source/documentation/lux/abstract/monad.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]] - ["." / "_" - ["#." free]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" free]]) (documentation: (/.Monad it) (format "A monad is a monoid in the category of endofunctors." diff --git a/stdlib/source/documentation/lux/abstract/monad/free.lux b/stdlib/source/documentation/lux/abstract/monad/free.lux index 9276e9cac..8b9fdd5af 100644 --- a/stdlib/source/documentation/lux/abstract/monad/free.lux +++ b/stdlib/source/documentation/lux/abstract/monad/free.lux @@ -3,7 +3,7 @@ [lux ["$" documentation {"+" [documentation:]}]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Free ! it) "The Free Monad.") diff --git a/stdlib/source/documentation/lux/abstract/monoid.lux b/stdlib/source/documentation/lux/abstract/monoid.lux index 75ea66ab2..b571fdec0 100644 --- a/stdlib/source/documentation/lux/abstract/monoid.lux +++ b/stdlib/source/documentation/lux/abstract/monoid.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Monoid it) (format "A way to compose values." diff --git a/stdlib/source/documentation/lux/abstract/order.lux b/stdlib/source/documentation/lux/abstract/order.lux index 54aa48368..04306b6f7 100644 --- a/stdlib/source/documentation/lux/abstract/order.lux +++ b/stdlib/source/documentation/lux/abstract/order.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Order it) "A signature for types that possess some sense of ordering among their elements.") diff --git a/stdlib/source/documentation/lux/abstract/predicate.lux b/stdlib/source/documentation/lux/abstract/predicate.lux index b1fe154e7..8f30ac369 100644 --- a/stdlib/source/documentation/lux/abstract/predicate.lux +++ b/stdlib/source/documentation/lux/abstract/predicate.lux @@ -6,7 +6,7 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Predicate it) "A question that can be asked of a value, yield either false (#0) or true (#1).") diff --git a/stdlib/source/documentation/lux/control.lux b/stdlib/source/documentation/lux/control.lux index bcfb0845a..aa80aa227 100644 --- a/stdlib/source/documentation/lux/control.lux +++ b/stdlib/source/documentation/lux/control.lux @@ -6,26 +6,26 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." concatenative] - ["#." concurrency] - ["#." continuation] - ["#." exception] - ["#." function] - ["#." io] - ["#." lazy] - ["#." maybe] - ["#." parser] - ["#." pipe] - ["#." reader] - ["#." region] - ["#." remember] - ["#." security] - ["#." state] - ["#." thread] - ["#." try] - ["#." writer] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" concatenative] + ["[1][0]" concurrency] + ["[1][0]" continuation] + ["[1][0]" exception] + ["[1][0]" function] + ["[1][0]" io] + ["[1][0]" lazy] + ["[1][0]" maybe] + ["[1][0]" parser] + ["[1][0]" pipe] + ["[1][0]" reader] + ["[1][0]" region] + ["[1][0]" remember] + ["[1][0]" security] + ["[1][0]" state] + ["[1][0]" thread] + ["[1][0]" try] + ["[1][0]" writer] ]) (.def: .public documentation diff --git a/stdlib/source/documentation/lux/control/concatenative.lux b/stdlib/source/documentation/lux/control/concatenative.lux index 104f59381..ef19810e2 100644 --- a/stdlib/source/documentation/lux/control/concatenative.lux +++ b/stdlib/source/documentation/lux/control/concatenative.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] @@ -16,7 +16,7 @@ ["r" rev] ["f" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.=> "Concatenative function types." diff --git a/stdlib/source/documentation/lux/control/concurrency.lux b/stdlib/source/documentation/lux/control/concurrency.lux index a6a06b327..b1c92ebb0 100644 --- a/stdlib/source/documentation/lux/control/concurrency.lux +++ b/stdlib/source/documentation/lux/control/concurrency.lux @@ -6,15 +6,15 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." actor] - ["#." async] - ["#." atom] - ["#." frp] - ["#." semaphore] - ["#." stm] - ["#." thread]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" actor] + ["[1][0]" async] + ["[1][0]" atom] + ["[1][0]" frp] + ["[1][0]" semaphore] + ["[1][0]" stm] + ["[1][0]" thread]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/control/concurrency/actor.lux b/stdlib/source/documentation/lux/control/concurrency/actor.lux index 05989e2dd..240b1aefe 100644 --- a/stdlib/source/documentation/lux/control/concurrency/actor.lux +++ b/stdlib/source/documentation/lux/control/concurrency/actor.lux @@ -6,11 +6,11 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Actor state) "An entity that can react to messages (mail) sent to it concurrently.") diff --git a/stdlib/source/documentation/lux/control/concurrency/async.lux b/stdlib/source/documentation/lux/control/concurrency/async.lux index 7e453f544..59432302c 100644 --- a/stdlib/source/documentation/lux/control/concurrency/async.lux +++ b/stdlib/source/documentation/lux/control/concurrency/async.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Async it) "Represents values produced by asynchronous computations (unlike IO, which is synchronous).") diff --git a/stdlib/source/documentation/lux/control/concurrency/atom.lux b/stdlib/source/documentation/lux/control/concurrency/atom.lux index fece4dd0b..0d3f8e29a 100644 --- a/stdlib/source/documentation/lux/control/concurrency/atom.lux +++ b/stdlib/source/documentation/lux/control/concurrency/atom.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Atom it) "Atomic references that are safe to mutate concurrently.") diff --git a/stdlib/source/documentation/lux/control/concurrency/frp.lux b/stdlib/source/documentation/lux/control/concurrency/frp.lux index cc1ef6405..438ce3114 100644 --- a/stdlib/source/documentation/lux/control/concurrency/frp.lux +++ b/stdlib/source/documentation/lux/control/concurrency/frp.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Channel it) "An asynchronous channel to distribute values.") diff --git a/stdlib/source/documentation/lux/control/concurrency/semaphore.lux b/stdlib/source/documentation/lux/control/concurrency/semaphore.lux index 60c8fccb5..98e5b794c 100644 --- a/stdlib/source/documentation/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/documentation/lux/control/concurrency/semaphore.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Semaphore "A tool for controlling access to resources by multiple concurrent processes.") diff --git a/stdlib/source/documentation/lux/control/concurrency/stm.lux b/stdlib/source/documentation/lux/control/concurrency/stm.lux index 06a22f77e..e2caca6b5 100644 --- a/stdlib/source/documentation/lux/control/concurrency/stm.lux +++ b/stdlib/source/documentation/lux/control/concurrency/stm.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Var it) "A mutable cell containing a value, and observers that will be alerted of any change to it.") diff --git a/stdlib/source/documentation/lux/control/concurrency/thread.lux b/stdlib/source/documentation/lux/control/concurrency/thread.lux index 6caa4a58a..129ead077 100644 --- a/stdlib/source/documentation/lux/control/concurrency/thread.lux +++ b/stdlib/source/documentation/lux/control/concurrency/thread.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.parallelism "How many processes can run in parallel.") diff --git a/stdlib/source/documentation/lux/control/continuation.lux b/stdlib/source/documentation/lux/control/continuation.lux index 6605ace3c..38fc3b44b 100644 --- a/stdlib/source/documentation/lux/control/continuation.lux +++ b/stdlib/source/documentation/lux/control/continuation.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Cont input output) "Continuations.") diff --git a/stdlib/source/documentation/lux/control/exception.lux b/stdlib/source/documentation/lux/control/exception.lux index 0906206e4..297ac38fd 100644 --- a/stdlib/source/documentation/lux/control/exception.lux +++ b/stdlib/source/documentation/lux/control/exception.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Exception it) "An exception provides a way to decorate error messages.") diff --git a/stdlib/source/documentation/lux/control/function.lux b/stdlib/source/documentation/lux/control/function.lux index 01bf7a99c..4979bfee1 100644 --- a/stdlib/source/documentation/lux/control/function.lux +++ b/stdlib/source/documentation/lux/control/function.lux @@ -6,14 +6,14 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." contract] - ["#." memo] - ["#." mixin] - ["#." mutual]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" contract] + ["[1][0]" memo] + ["[1][0]" mixin] + ["[1][0]" mutual]]) (documentation: /.identity (format "Identity function." diff --git a/stdlib/source/documentation/lux/control/function/contract.lux b/stdlib/source/documentation/lux/control/function/contract.lux index 317b30d68..c5ee26d03 100644 --- a/stdlib/source/documentation/lux/control/function/contract.lux +++ b/stdlib/source/documentation/lux/control/function/contract.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.pre (format "Pre-conditions." diff --git a/stdlib/source/documentation/lux/control/function/memo.lux b/stdlib/source/documentation/lux/control/function/memo.lux index 42b463a24..35a6979de 100644 --- a/stdlib/source/documentation/lux/control/function/memo.lux +++ b/stdlib/source/documentation/lux/control/function/memo.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.open "Memoization where the memoized results can be re-used accross invocations." diff --git a/stdlib/source/documentation/lux/control/function/mixin.lux b/stdlib/source/documentation/lux/control/function/mixin.lux index a5531898f..6ccd98708 100644 --- a/stdlib/source/documentation/lux/control/function/mixin.lux +++ b/stdlib/source/documentation/lux/control/function/mixin.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Mixin input output) "A partially-defined function which can be mixed with others to inherit their behavior.") diff --git a/stdlib/source/documentation/lux/control/function/mutual.lux b/stdlib/source/documentation/lux/control/function/mutual.lux index 33d7cd26d..e830d73c3 100644 --- a/stdlib/source/documentation/lux/control/function/mutual.lux +++ b/stdlib/source/documentation/lux/control/function/mutual.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.let "Locally-defined mutually-recursive functions." diff --git a/stdlib/source/documentation/lux/control/io.lux b/stdlib/source/documentation/lux/control/io.lux index ff19603c1..9e427c35d 100644 --- a/stdlib/source/documentation/lux/control/io.lux +++ b/stdlib/source/documentation/lux/control/io.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.IO it) "A type that represents synchronous, effectful computations that may interact with the outside world.") diff --git a/stdlib/source/documentation/lux/control/lazy.lux b/stdlib/source/documentation/lux/control/lazy.lux index cb128a1ef..e0b047b4e 100644 --- a/stdlib/source/documentation/lux/control/lazy.lux +++ b/stdlib/source/documentation/lux/control/lazy.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Lazy it) (format "A value specified by an expression that is calculated only at the last moment possible." diff --git a/stdlib/source/documentation/lux/control/maybe.lux b/stdlib/source/documentation/lux/control/maybe.lux index c53cda3c4..f57f2f54d 100644 --- a/stdlib/source/documentation/lux/control/maybe.lux +++ b/stdlib/source/documentation/lux/control/maybe.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.lifted "Wraps a monadic value with Maybe machinery." diff --git a/stdlib/source/documentation/lux/control/parser.lux b/stdlib/source/documentation/lux/control/parser.lux index 2c622030e..ebe00a81b 100644 --- a/stdlib/source/documentation/lux/control/parser.lux +++ b/stdlib/source/documentation/lux/control/parser.lux @@ -6,21 +6,21 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." analysis] - ["#." binary] - ["#." cli] - ["#." code] - ["#." environment] - ["#." json] - ["#." synthesis] - ["#." text] - ["#." tree] - ["#." type] - ["#." xml]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" analysis] + ["[1][0]" binary] + ["[1][0]" cli] + ["[1][0]" code] + ["[1][0]" environment] + ["[1][0]" json] + ["[1][0]" synthesis] + ["[1][0]" text] + ["[1][0]" tree] + ["[1][0]" type] + ["[1][0]" xml]]) (documentation: (/.Parser state it) "A generic parser.") diff --git a/stdlib/source/documentation/lux/control/parser/analysis.lux b/stdlib/source/documentation/lux/control/parser/analysis.lux index 935974e84..e0864d1d6 100644 --- a/stdlib/source/documentation/lux/control/parser/analysis.lux +++ b/stdlib/source/documentation/lux/control/parser/analysis.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A parser for Lux code analysis nodes.") diff --git a/stdlib/source/documentation/lux/control/parser/binary.lux b/stdlib/source/documentation/lux/control/parser/binary.lux index 37a00a757..c286deeee 100644 --- a/stdlib/source/documentation/lux/control/parser/binary.lux +++ b/stdlib/source/documentation/lux/control/parser/binary.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Offset "An offset for reading within binary data.") diff --git a/stdlib/source/documentation/lux/control/parser/cli.lux b/stdlib/source/documentation/lux/control/parser/cli.lux index db525a6e8..5cddfeb2d 100644 --- a/stdlib/source/documentation/lux/control/parser/cli.lux +++ b/stdlib/source/documentation/lux/control/parser/cli.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A command-line interface parser.") diff --git a/stdlib/source/documentation/lux/control/parser/code.lux b/stdlib/source/documentation/lux/control/parser/code.lux index ccd84d82c..9a792d195 100644 --- a/stdlib/source/documentation/lux/control/parser/code.lux +++ b/stdlib/source/documentation/lux/control/parser/code.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A Lux code parser.") diff --git a/stdlib/source/documentation/lux/control/parser/environment.lux b/stdlib/source/documentation/lux/control/parser/environment.lux index 1ac686167..1849a0d55 100644 --- a/stdlib/source/documentation/lux/control/parser/environment.lux +++ b/stdlib/source/documentation/lux/control/parser/environment.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Property "A property in the environment.") diff --git a/stdlib/source/documentation/lux/control/parser/json.lux b/stdlib/source/documentation/lux/control/parser/json.lux index e072529b0..f72b5ecf3 100644 --- a/stdlib/source/documentation/lux/control/parser/json.lux +++ b/stdlib/source/documentation/lux/control/parser/json.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A JSON parser.") diff --git a/stdlib/source/documentation/lux/control/parser/synthesis.lux b/stdlib/source/documentation/lux/control/parser/synthesis.lux index eebd25e91..be55adbbc 100644 --- a/stdlib/source/documentation/lux/control/parser/synthesis.lux +++ b/stdlib/source/documentation/lux/control/parser/synthesis.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A parser for the Lux compiler's synthesis nodes using during optimization.") diff --git a/stdlib/source/documentation/lux/control/parser/text.lux b/stdlib/source/documentation/lux/control/parser/text.lux index e3c3a96c6..2368cbfc3 100644 --- a/stdlib/source/documentation/lux/control/parser/text.lux +++ b/stdlib/source/documentation/lux/control/parser/text.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Offset "An offset into a block of text.") diff --git a/stdlib/source/documentation/lux/control/parser/tree.lux b/stdlib/source/documentation/lux/control/parser/tree.lux index 49c5f56d9..310a368ee 100644 --- a/stdlib/source/documentation/lux/control/parser/tree.lux +++ b/stdlib/source/documentation/lux/control/parser/tree.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A parser of arbitrary trees.") diff --git a/stdlib/source/documentation/lux/control/parser/type.lux b/stdlib/source/documentation/lux/control/parser/type.lux index a755665c3..110570b38 100644 --- a/stdlib/source/documentation/lux/control/parser/type.lux +++ b/stdlib/source/documentation/lux/control/parser/type.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Env "An environment for type parsing.") diff --git a/stdlib/source/documentation/lux/control/parser/xml.lux b/stdlib/source/documentation/lux/control/parser/xml.lux index 06993388d..11e0f9410 100644 --- a/stdlib/source/documentation/lux/control/parser/xml.lux +++ b/stdlib/source/documentation/lux/control/parser/xml.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Parser it) "A parser of XML-encoded data.") diff --git a/stdlib/source/documentation/lux/control/pipe.lux b/stdlib/source/documentation/lux/control/pipe.lux index ad628a155..9f67f5c1b 100644 --- a/stdlib/source/documentation/lux/control/pipe.lux +++ b/stdlib/source/documentation/lux/control/pipe.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.new> "Ignores the piped argument, and begins a new pipe." diff --git a/stdlib/source/documentation/lux/control/reader.lux b/stdlib/source/documentation/lux/control/reader.lux index e6aa7c35d..6751b2a47 100644 --- a/stdlib/source/documentation/lux/control/reader.lux +++ b/stdlib/source/documentation/lux/control/reader.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Reader environment it) "Computations that have access to some environmental value.") diff --git a/stdlib/source/documentation/lux/control/region.lux b/stdlib/source/documentation/lux/control/region.lux index 6980cbb66..03cb0c53e 100644 --- a/stdlib/source/documentation/lux/control/region.lux +++ b/stdlib/source/documentation/lux/control/region.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Region r ! it) (format "A region where resources may be be claimed and where a side-effecting computation may be performed." diff --git a/stdlib/source/documentation/lux/control/remember.lux b/stdlib/source/documentation/lux/control/remember.lux index 5e42f67de..85d569411 100644 --- a/stdlib/source/documentation/lux/control/remember.lux +++ b/stdlib/source/documentation/lux/control/remember.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.remember (format "A message with an expiration date." diff --git a/stdlib/source/documentation/lux/control/security.lux b/stdlib/source/documentation/lux/control/security.lux index a073ed4ef..3a17dce6a 100644 --- a/stdlib/source/documentation/lux/control/security.lux +++ b/stdlib/source/documentation/lux/control/security.lux @@ -6,10 +6,10 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." capability] - ["#." policy]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" capability] + ["[1][0]" policy]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/control/security/capability.lux b/stdlib/source/documentation/lux/control/security/capability.lux index 5e8093419..e30616772 100644 --- a/stdlib/source/documentation/lux/control/security/capability.lux +++ b/stdlib/source/documentation/lux/control/security/capability.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Capability brand input output) (format "Represents the capability to perform an operation." diff --git a/stdlib/source/documentation/lux/control/security/policy.lux b/stdlib/source/documentation/lux/control/security/policy.lux index a8dd61191..7a2003f6d 100644 --- a/stdlib/source/documentation/lux/control/security/policy.lux +++ b/stdlib/source/documentation/lux/control/security/policy.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Policy brand value %) "A security policy encoded as the means to 'upgrade' or 'downgrade' in a secure context.") diff --git a/stdlib/source/documentation/lux/control/state.lux b/stdlib/source/documentation/lux/control/state.lux index d2b602fe4..6a729e030 100644 --- a/stdlib/source/documentation/lux/control/state.lux +++ b/stdlib/source/documentation/lux/control/state.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.State state it) "Stateful computations.") diff --git a/stdlib/source/documentation/lux/control/thread.lux b/stdlib/source/documentation/lux/control/thread.lux index a7cf24b97..95ebd8f5f 100644 --- a/stdlib/source/documentation/lux/control/thread.lux +++ b/stdlib/source/documentation/lux/control/thread.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Thread ! it) "An imperative process with access to mutable values.") diff --git a/stdlib/source/documentation/lux/control/try.lux b/stdlib/source/documentation/lux/control/try.lux index b74308b5d..6ef45a5b2 100644 --- a/stdlib/source/documentation/lux/control/try.lux +++ b/stdlib/source/documentation/lux/control/try.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Try it) "A computation that can fail with an error message.") diff --git a/stdlib/source/documentation/lux/control/writer.lux b/stdlib/source/documentation/lux/control/writer.lux index b84d6888a..13c8690cd 100644 --- a/stdlib/source/documentation/lux/control/writer.lux +++ b/stdlib/source/documentation/lux/control/writer.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Writer log value) "Represents a value with an associated 'log' to record arbitrary information.") diff --git a/stdlib/source/documentation/lux/data.lux b/stdlib/source/documentation/lux/data.lux index fdccacad3..54195b1d7 100644 --- a/stdlib/source/documentation/lux/data.lux +++ b/stdlib/source/documentation/lux/data.lux @@ -6,18 +6,18 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." binary] - ["#." bit] - ["#." collection] - ["#." color] - ["#." format] - ["#." identity] - ["#." name] - ["#." product] - ["#." sum] - ["#." text]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" binary] + ["[1][0]" bit] + ["[1][0]" collection] + ["[1][0]" color] + ["[1][0]" format] + ["[1][0]" identity] + ["[1][0]" name] + ["[1][0]" product] + ["[1][0]" sum] + ["[1][0]" text]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/data/binary.lux b/stdlib/source/documentation/lux/data/binary.lux index 474b99a0e..0e75197b2 100644 --- a/stdlib/source/documentation/lux/data/binary.lux +++ b/stdlib/source/documentation/lux/data/binary.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Binary "A binary BLOB of data.") diff --git a/stdlib/source/documentation/lux/data/bit.lux b/stdlib/source/documentation/lux/data/bit.lux index c31e06026..ca3b87fc7 100644 --- a/stdlib/source/documentation/lux/data/bit.lux +++ b/stdlib/source/documentation/lux/data/bit.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.complement (format "Generates the complement of a predicate." diff --git a/stdlib/source/documentation/lux/data/collection.lux b/stdlib/source/documentation/lux/data/collection.lux index 11f8b5245..53156212e 100644 --- a/stdlib/source/documentation/lux/data/collection.lux +++ b/stdlib/source/documentation/lux/data/collection.lux @@ -6,18 +6,18 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." array] - ["#." bits] - ["#." dictionary] - ["#." list] - ["#." queue] - ["#." row] - ["#." sequence] - ["#." stack] - ["#." set] - ["#." tree]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" array] + ["[1][0]" bits] + ["[1][0]" dictionary] + ["[1][0]" list] + ["[1][0]" queue] + ["[1][0]" row] + ["[1][0]" sequence] + ["[1][0]" stack] + ["[1][0]" set] + ["[1][0]" tree]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/data/collection/array.lux b/stdlib/source/documentation/lux/data/collection/array.lux index 0f0c8a610..ed6bce3a5 100644 --- a/stdlib/source/documentation/lux/data/collection/array.lux +++ b/stdlib/source/documentation/lux/data/collection/array.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Array it) "Mutable arrays.") diff --git a/stdlib/source/documentation/lux/data/collection/bits.lux b/stdlib/source/documentation/lux/data/collection/bits.lux index 79d85d7fe..76c4e956d 100644 --- a/stdlib/source/documentation/lux/data/collection/bits.lux +++ b/stdlib/source/documentation/lux/data/collection/bits.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Bits "A bit-map.") diff --git a/stdlib/source/documentation/lux/data/collection/dictionary.lux b/stdlib/source/documentation/lux/data/collection/dictionary.lux index 41f34cb6e..54d1cee15 100644 --- a/stdlib/source/documentation/lux/data/collection/dictionary.lux +++ b/stdlib/source/documentation/lux/data/collection/dictionary.lux @@ -4,19 +4,19 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." ordered] - ["#." plist]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" ordered] + ["[1][0]" plist]]) (documentation: (/.Dictionary key value) "A dictionary implemented as a Hash-Array Mapped Trie (HAMT).") diff --git a/stdlib/source/documentation/lux/data/collection/dictionary/ordered.lux b/stdlib/source/documentation/lux/data/collection/dictionary/ordered.lux index 866e5a850..aeeeff6a6 100644 --- a/stdlib/source/documentation/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/documentation/lux/data/collection/dictionary/ordered.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Dictionary key value) "A dictionary data-structure with ordered entries.") diff --git a/stdlib/source/documentation/lux/data/collection/dictionary/plist.lux b/stdlib/source/documentation/lux/data/collection/dictionary/plist.lux index be5b815a4..a0a1885c0 100644 --- a/stdlib/source/documentation/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/documentation/lux/data/collection/dictionary/plist.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.PList it) (format "A property list." diff --git a/stdlib/source/documentation/lux/data/collection/list.lux b/stdlib/source/documentation/lux/data/collection/list.lux index fe7d11246..1c183591e 100644 --- a/stdlib/source/documentation/lux/data/collection/list.lux +++ b/stdlib/source/documentation/lux/data/collection/list.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.mixes "" diff --git a/stdlib/source/documentation/lux/data/collection/queue.lux b/stdlib/source/documentation/lux/data/collection/queue.lux index 2fb60fac0..49330da9b 100644 --- a/stdlib/source/documentation/lux/data/collection/queue.lux +++ b/stdlib/source/documentation/lux/data/collection/queue.lux @@ -4,18 +4,18 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." priority]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" priority]]) (documentation: (/.Queue it) "A first-in, first-out sequential data-structure.") diff --git a/stdlib/source/documentation/lux/data/collection/queue/priority.lux b/stdlib/source/documentation/lux/data/collection/queue/priority.lux index 4569accc2..c22f2d30c 100644 --- a/stdlib/source/documentation/lux/data/collection/queue/priority.lux +++ b/stdlib/source/documentation/lux/data/collection/queue/priority.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.member? "" diff --git a/stdlib/source/documentation/lux/data/collection/row.lux b/stdlib/source/documentation/lux/data/collection/row.lux index e2e4f628f..820b37bc9 100644 --- a/stdlib/source/documentation/lux/data/collection/row.lux +++ b/stdlib/source/documentation/lux/data/collection/row.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Row it) "A sequential data-structure with fast random access.") diff --git a/stdlib/source/documentation/lux/data/collection/sequence.lux b/stdlib/source/documentation/lux/data/collection/sequence.lux index fb97896d9..25acc4837 100644 --- a/stdlib/source/documentation/lux/data/collection/sequence.lux +++ b/stdlib/source/documentation/lux/data/collection/sequence.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Sequence it) "An infinite sequence of values.") diff --git a/stdlib/source/documentation/lux/data/collection/set.lux b/stdlib/source/documentation/lux/data/collection/set.lux index 63bd6ca18..0dad59b7d 100644 --- a/stdlib/source/documentation/lux/data/collection/set.lux +++ b/stdlib/source/documentation/lux/data/collection/set.lux @@ -4,17 +4,17 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." multi] - ["#." ordered]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" multi] + ["[1][0]" ordered]]) (documentation: /.has "" diff --git a/stdlib/source/documentation/lux/data/collection/set/multi.lux b/stdlib/source/documentation/lux/data/collection/set/multi.lux index ea0a017ae..97da8536d 100644 --- a/stdlib/source/documentation/lux/data/collection/set/multi.lux +++ b/stdlib/source/documentation/lux/data/collection/set/multi.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Set it) "A set that keeps track of repetition in its entries.") diff --git a/stdlib/source/documentation/lux/data/collection/set/ordered.lux b/stdlib/source/documentation/lux/data/collection/set/ordered.lux index 23810bfae..a5a8f3d66 100644 --- a/stdlib/source/documentation/lux/data/collection/set/ordered.lux +++ b/stdlib/source/documentation/lux/data/collection/set/ordered.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Set it) "A set with ordered entries.") diff --git a/stdlib/source/documentation/lux/data/collection/stack.lux b/stdlib/source/documentation/lux/data/collection/stack.lux index 42cca84ff..11d467bc1 100644 --- a/stdlib/source/documentation/lux/data/collection/stack.lux +++ b/stdlib/source/documentation/lux/data/collection/stack.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Stack it) "A first-in, last-out sequential data-structure.") diff --git a/stdlib/source/documentation/lux/data/collection/tree.lux b/stdlib/source/documentation/lux/data/collection/tree.lux index 1e2994c98..32b51af56 100644 --- a/stdlib/source/documentation/lux/data/collection/tree.lux +++ b/stdlib/source/documentation/lux/data/collection/tree.lux @@ -4,17 +4,17 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." finger] - ["#." zipper]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" finger] + ["[1][0]" zipper]]) (documentation: (/.Tree it) "A generic tree data-structure.") diff --git a/stdlib/source/documentation/lux/data/collection/tree/finger.lux b/stdlib/source/documentation/lux/data/collection/tree/finger.lux index 7006b28d3..ef7b38bcf 100644 --- a/stdlib/source/documentation/lux/data/collection/tree/finger.lux +++ b/stdlib/source/documentation/lux/data/collection/tree/finger.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Tree @ tag value) "A finger tree.") diff --git a/stdlib/source/documentation/lux/data/collection/tree/zipper.lux b/stdlib/source/documentation/lux/data/collection/tree/zipper.lux index fc2ad10b1..9cf2388d8 100644 --- a/stdlib/source/documentation/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/documentation/lux/data/collection/tree/zipper.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Zipper it) "Tree zippers, for easy navigation and editing of trees.") diff --git a/stdlib/source/documentation/lux/data/color.lux b/stdlib/source/documentation/lux/data/color.lux index 73c383ff1..819bc4649 100644 --- a/stdlib/source/documentation/lux/data/color.lux +++ b/stdlib/source/documentation/lux/data/color.lux @@ -4,18 +4,18 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]] + ["[0]" code] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." named]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" named]]) (documentation: /.RGB "Red-Green-Blue color format.") diff --git a/stdlib/source/documentation/lux/data/color/named.lux b/stdlib/source/documentation/lux/data/color/named.lux index c261199e3..dbd470cad 100644 --- a/stdlib/source/documentation/lux/data/color/named.lux +++ b/stdlib/source/documentation/lux/data/color/named.lux @@ -4,20 +4,20 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number - ["." nat ("hex\." hex)]]]]] + ["[0]" nat ("hex\[0]" hex)]]]]] [\\library - ["." / - ["/#" //]]]) + ["[0]" / + ["/[1]" //]]]) (template [<name>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/data/format.lux b/stdlib/source/documentation/lux/data/format.lux index 0aab0b183..a7a664ea8 100644 --- a/stdlib/source/documentation/lux/data/format.lux +++ b/stdlib/source/documentation/lux/data/format.lux @@ -6,12 +6,12 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." binary] - ["#." json] - ["#." tar] - ["#." xml]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" binary] + ["[1][0]" json] + ["[1][0]" tar] + ["[1][0]" xml]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/data/format/binary.lux b/stdlib/source/documentation/lux/data/format/binary.lux index 1600bac3b..ecce00675 100644 --- a/stdlib/source/documentation/lux/data/format/binary.lux +++ b/stdlib/source/documentation/lux/data/format/binary.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Mutation "A mutation of binary data, tracking where in the data to transform.") diff --git a/stdlib/source/documentation/lux/data/format/json.lux b/stdlib/source/documentation/lux/data/format/json.lux index 6bb637058..4f8dc494f 100644 --- a/stdlib/source/documentation/lux/data/format/json.lux +++ b/stdlib/source/documentation/lux/data/format/json.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.json "A simple way to produce JSON literals." diff --git a/stdlib/source/documentation/lux/data/format/tar.lux b/stdlib/source/documentation/lux/data/format/tar.lux index 3040355cd..29f97d153 100644 --- a/stdlib/source/documentation/lux/data/format/tar.lux +++ b/stdlib/source/documentation/lux/data/format/tar.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/data/format/xml.lux b/stdlib/source/documentation/lux/data/format/xml.lux index b1c21555f..117a2a69e 100644 --- a/stdlib/source/documentation/lux/data/format/xml.lux +++ b/stdlib/source/documentation/lux/data/format/xml.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.attributes "An empty set of XML attributes.") diff --git a/stdlib/source/documentation/lux/data/identity.lux b/stdlib/source/documentation/lux/data/identity.lux index e2912a73b..9eeedaa4f 100644 --- a/stdlib/source/documentation/lux/data/identity.lux +++ b/stdlib/source/documentation/lux/data/identity.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Identity it) "A value, as is, without any extra structure super-imposed on it.") diff --git a/stdlib/source/documentation/lux/data/name.lux b/stdlib/source/documentation/lux/data/name.lux index f2b1227ed..55d9f7786 100644 --- a/stdlib/source/documentation/lux/data/name.lux +++ b/stdlib/source/documentation/lux/data/name.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.module "The module part of a name.") diff --git a/stdlib/source/documentation/lux/data/product.lux b/stdlib/source/documentation/lux/data/product.lux index d957f0820..7c08ef025 100644 --- a/stdlib/source/documentation/lux/data/product.lux +++ b/stdlib/source/documentation/lux/data/product.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.left "The left side of a pair.") diff --git a/stdlib/source/documentation/lux/data/sum.lux b/stdlib/source/documentation/lux/data/sum.lux index a58a0bab9..2ec3a8b71 100644 --- a/stdlib/source/documentation/lux/data/sum.lux +++ b/stdlib/source/documentation/lux/data/sum.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.left "Lifts value to the left side of a 2-variant.") diff --git a/stdlib/source/documentation/lux/data/text.lux b/stdlib/source/documentation/lux/data/text.lux index 1014e0e46..d28ca23fd 100644 --- a/stdlib/source/documentation/lux/data/text.lux +++ b/stdlib/source/documentation/lux/data/text.lux @@ -6,16 +6,16 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." buffer] - ["#." encoding] - ["#." escape] - ["#." format] - ["#." regex] - ["#." unicode]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" buffer] + ["[1][0]" encoding] + ["[1][0]" escape] + ["[1][0]" format] + ["[1][0]" regex] + ["[1][0]" unicode]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Char "A character code number.") diff --git a/stdlib/source/documentation/lux/data/text/buffer.lux b/stdlib/source/documentation/lux/data/text/buffer.lux index 3db182b44..a6018b875 100644 --- a/stdlib/source/documentation/lux/data/text/buffer.lux +++ b/stdlib/source/documentation/lux/data/text/buffer.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Buffer "Immutable text buffer for efficient text concatenation.") diff --git a/stdlib/source/documentation/lux/data/text/encoding.lux b/stdlib/source/documentation/lux/data/text/encoding.lux index 399ae613a..7b353857d 100644 --- a/stdlib/source/documentation/lux/data/text/encoding.lux +++ b/stdlib/source/documentation/lux/data/text/encoding.lux @@ -6,11 +6,11 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." utf8]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" utf8]]) (documentation: /.Encoding "Encoding formats for text.") diff --git a/stdlib/source/documentation/lux/data/text/encoding/utf8.lux b/stdlib/source/documentation/lux/data/text/encoding/utf8.lux index b407c4d11..1c2388da1 100644 --- a/stdlib/source/documentation/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/documentation/lux/data/text/encoding/utf8.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.codec "A codec for binary encoding of text as UTF-8.") diff --git a/stdlib/source/documentation/lux/data/text/escape.lux b/stdlib/source/documentation/lux/data/text/escape.lux index 027396003..2b7dce7a7 100644 --- a/stdlib/source/documentation/lux/data/text/escape.lux +++ b/stdlib/source/documentation/lux/data/text/escape.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.escaped "Yields a escaped version of the text." diff --git a/stdlib/source/documentation/lux/data/text/format.lux b/stdlib/source/documentation/lux/data/text/format.lux index 4acc2eacc..2a64832fc 100644 --- a/stdlib/source/documentation/lux/data/text/format.lux +++ b/stdlib/source/documentation/lux/data/text/format.lux @@ -3,9 +3,9 @@ [lux {"-" [nat int rev type list]} ["$" documentation {"+" [documentation:]}] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Format it) "A way to produce readable text from values.") diff --git a/stdlib/source/documentation/lux/data/text/regex.lux b/stdlib/source/documentation/lux/data/text/regex.lux index 9133dadef..a4f709da0 100644 --- a/stdlib/source/documentation/lux/data/text/regex.lux +++ b/stdlib/source/documentation/lux/data/text/regex.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.regex "Create lexers using regular-expression syntax." diff --git a/stdlib/source/documentation/lux/data/text/unicode.lux b/stdlib/source/documentation/lux/data/text/unicode.lux index a2e6069b9..8acab1227 100644 --- a/stdlib/source/documentation/lux/data/text/unicode.lux +++ b/stdlib/source/documentation/lux/data/text/unicode.lux @@ -6,10 +6,10 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." block] - ["#." set]]) + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" block] + ["[1][0]" set]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/data/text/unicode/block.lux b/stdlib/source/documentation/lux/data/text/unicode/block.lux index aa64257be..306bf6567 100644 --- a/stdlib/source/documentation/lux/data/text/unicode/block.lux +++ b/stdlib/source/documentation/lux/data/text/unicode/block.lux @@ -3,15 +3,15 @@ [lux "*" ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." nat ("hex\." hex)]]]]] + ["[0]" nat ("hex\[0]" hex)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Block "A block of valid unicode characters.") diff --git a/stdlib/source/documentation/lux/data/text/unicode/set.lux b/stdlib/source/documentation/lux/data/text/unicode/set.lux index 22d99b138..dedb45c40 100644 --- a/stdlib/source/documentation/lux/data/text/unicode/set.lux +++ b/stdlib/source/documentation/lux/data/text/unicode/set.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.set "" diff --git a/stdlib/source/documentation/lux/debug.lux b/stdlib/source/documentation/lux/debug.lux index 9ee9b1a8d..a78fea166 100644 --- a/stdlib/source/documentation/lux/debug.lux +++ b/stdlib/source/documentation/lux/debug.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.inspection "A best-effort attempt to generate a textual representation of a value, without knowing its type." diff --git a/stdlib/source/documentation/lux/documentation.lux b/stdlib/source/documentation/lux/documentation.lux index 3383826e5..9fef75fdf 100644 --- a/stdlib/source/documentation/lux/documentation.lux +++ b/stdlib/source/documentation/lux/documentation.lux @@ -2,12 +2,12 @@ [library [lux "*" [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.documentation: /.default "" diff --git a/stdlib/source/documentation/lux/extension.lux b/stdlib/source/documentation/lux/extension.lux index 49a37153c..c9216cb0c 100644 --- a/stdlib/source/documentation/lux/extension.lux +++ b/stdlib/source/documentation/lux/extension.lux @@ -2,28 +2,28 @@ [library [lux "*" ["$" documentation {"+" [documentation:]}] - ["." debug] + ["[0]" debug] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." row]]] + ["[0]" row]]] [macro - ["." template]] + ["[0]" template]] ["@" target - ["." jvm]] + ["[0]" jvm]] [tool [compiler - ["." phase] + ["[0]" phase] [language [lux [phase - ["." directive]]]]]]]] + ["[0]" directive]]]]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.analysis: "Mechanism for defining extensions to Lux's analysis/type-checking infrastructure." diff --git a/stdlib/source/documentation/lux/ffi.js.lux b/stdlib/source/documentation/lux/ffi.js.lux index 4dc65e812..1028cb1b5 100644 --- a/stdlib/source/documentation/lux/ffi.js.lux +++ b/stdlib/source/documentation/lux/ffi.js.lux @@ -3,12 +3,12 @@ [lux {"-" [int char type :as]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.null "The null pointer.") @@ -18,12 +18,12 @@ [(import: Uint8Array) (import: TextEncoder - ["#::." + ["[1]::[0]" (new [/.String]) (encode [/.String] Uint8Array)]) (import: TextDecoder - ["#::." + ["[1]::[0]" (new [/.String]) (decode [/.String] String)])]) diff --git a/stdlib/source/documentation/lux/ffi.jvm.lux b/stdlib/source/documentation/lux/ffi.jvm.lux index b5b8cb245..f76ada558 100644 --- a/stdlib/source/documentation/lux/ffi.jvm.lux +++ b/stdlib/source/documentation/lux/ffi.jvm.lux @@ -3,12 +3,12 @@ [lux {"-" [int char type :as]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name>] [(`` (documentation: <name> @@ -179,7 +179,7 @@ "Allows importing JVM classes, and using them as types." ["Their methods, fields and enum options can also be imported." (import: java/lang/Object - ["#::." + ["[1]::[0]" (new []) (equals [java/lang/Object] boolean) (wait [int] "io" "try" void)])] @@ -189,29 +189,29 @@ "'io' means the computation has side effects, and will be wrapped by the IO type." "These options must show up in the following order ['io' 'try' '?'] (although, each option can be used independently)." (import: java/lang/String - ["#::." + ["[1]::[0]" (new [[byte]]) ("static" valueOf [char] java/lang/String) ("static" valueOf "as" int_valueOf [int] java/lang/String)]) (import: (java/util/List e) - ["#::." + ["[1]::[0]" (size [] int) (get [int] e)]) (import: (java/util/ArrayList a) - ["#::." + ["[1]::[0]" ([T] toArray [[T]] [T])])] ["The class-type that is generated is of the fully-qualified name." "This avoids a clash between the java.util.List type, and Lux's own List type." "All enum options to be imported must be specified." (import: java/lang/Character$UnicodeScript - ["#::." + ["[1]::[0]" ("enum" ARABIC CYRILLIC LATIN)])] ["It should also be noted, the only types that may show up in method arguments or return values may be Java classes, arrays, primitives, void or type-vars." "Lux types, such as Maybe cannot be named (otherwise, they'd be confused for Java classes)." (import: (lux/concurrency/async/JvmAsync A) - ["#::." + ["[1]::[0]" (resolve [A] boolean) (poll [] A) (wasResolved [] boolean) diff --git a/stdlib/source/documentation/lux/ffi.old.lux b/stdlib/source/documentation/lux/ffi.old.lux index 308c13a4a..b2ac15139 100644 --- a/stdlib/source/documentation/lux/ffi.old.lux +++ b/stdlib/source/documentation/lux/ffi.old.lux @@ -3,12 +3,12 @@ [lux {"-" [int char type :as]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name> <from> <to>] [(documentation: <name> @@ -142,7 +142,7 @@ (format "Allows importing JVM classes, and using them as types." \n "Their methods, fields and enum options can also be imported.") [(import: java/lang/Object - ["#::." + ["[1]::[0]" (new []) (equals [java/lang/Object] boolean) (wait [int] "io" "try" void)])] @@ -152,29 +152,29 @@ "'io' means the computation has side effects, and will be wrapped by the IO type." "These options must show up in the following order ['io' 'try' '?'] (although, each option can be used independently)." (import: java/lang/String - ["#::." + ["[1]::[0]" (new [[byte]]) ("static" valueOf [char] java/lang/String) ("static" valueOf "as" int_valueOf [int] java/lang/String)]) (import: (java/util/List e) - ["#::." + ["[1]::[0]" (size [] int) (get [int] e)]) (import: (java/util/ArrayList a) - ["#::." + ["[1]::[0]" ([T] toArray [[T]] [T])])] ["The class-type that is generated is of the fully-qualified name." "This avoids a clash between the java.util.List type, and Lux's own List type." "All enum options to be imported must be specified." (import: java/lang/Character$UnicodeScript - ["#::." + ["[1]::[0]" ("enum" ARABIC CYRILLIC LATIN)])] ["It should also be noted, the only types that may show up in method arguments or return values may be Java classes, arrays, primitives, void or type-parameters." "Lux types, such as Maybe cannot be named (otherwise, they'd be confused for Java classes)." (import: (lux/concurrency/async/JvmAsync A) - ["#::." + ["[1]::[0]" (resolve [A] boolean) (poll [] A) (wasResolved [] boolean) diff --git a/stdlib/source/documentation/lux/ffi.rb.lux b/stdlib/source/documentation/lux/ffi.rb.lux index dc4c3974a..ca0d7bac8 100644 --- a/stdlib/source/documentation/lux/ffi.rb.lux +++ b/stdlib/source/documentation/lux/ffi.rb.lux @@ -3,22 +3,22 @@ [lux {"-" [int char type :as]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.import: "Easily import types, methods, functions and constants." [(import: Stat - ["#::." + ["[1]::[0]" (executable? [] Bit) (size Int)]) (import: File "as" RubyFile - ["#::." + ["[1]::[0]" ("static" SEPARATOR ..String) ("static" open [Path ..String] "io" "try" RubyFile) ("static" stat [Path] "io" "try" Stat) diff --git a/stdlib/source/documentation/lux/locale.lux b/stdlib/source/documentation/lux/locale.lux index f61a229d2..ed6bb8c47 100644 --- a/stdlib/source/documentation/lux/locale.lux +++ b/stdlib/source/documentation/lux/locale.lux @@ -6,12 +6,12 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." language] - ["#." territory]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" language] + ["[1][0]" territory]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Locale "A description of a locale; with territory, (optional) language, and (optional) text-encoding.") diff --git a/stdlib/source/documentation/lux/locale/language.lux b/stdlib/source/documentation/lux/locale/language.lux index db6551405..27b562d64 100644 --- a/stdlib/source/documentation/lux/locale/language.lux +++ b/stdlib/source/documentation/lux/locale/language.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid)]]]]] + ["[0]" list ("[1]\[0]" monoid)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Language "An ISO 639 language.") diff --git a/stdlib/source/documentation/lux/locale/territory.lux b/stdlib/source/documentation/lux/locale/territory.lux index 38e7b7d97..100f1b18f 100644 --- a/stdlib/source/documentation/lux/locale/territory.lux +++ b/stdlib/source/documentation/lux/locale/territory.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid)]]]]] + ["[0]" list ("[1]\[0]" monoid)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Territory "An ISO 3166 territory.") diff --git a/stdlib/source/documentation/lux/macro.lux b/stdlib/source/documentation/lux/macro.lux index d3ee4bbba..57b90ff0f 100644 --- a/stdlib/source/documentation/lux/macro.lux +++ b/stdlib/source/documentation/lux/macro.lux @@ -6,14 +6,14 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." code] - ["#." local] - ["#." syntax] - ["#." template]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" code] + ["[1][0]" local] + ["[1][0]" syntax] + ["[1][0]" template]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.single_expansion (format "Given code that requires applying a macro, does it once and returns the result." diff --git a/stdlib/source/documentation/lux/macro/code.lux b/stdlib/source/documentation/lux/macro/code.lux index fe0198ab8..abb8b15f6 100644 --- a/stdlib/source/documentation/lux/macro/code.lux +++ b/stdlib/source/documentation/lux/macro/code.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.local_identifier "Produces a local identifier (an identifier with no module prefix).") diff --git a/stdlib/source/documentation/lux/macro/local.lux b/stdlib/source/documentation/lux/macro/local.lux index 5b8c61c4f..b06966c81 100644 --- a/stdlib/source/documentation/lux/macro/local.lux +++ b/stdlib/source/documentation/lux/macro/local.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.push (format "Installs macros in the compiler-state, with the given names." diff --git a/stdlib/source/documentation/lux/macro/syntax.lux b/stdlib/source/documentation/lux/macro/syntax.lux index e8b7f4c21..3926086b6 100644 --- a/stdlib/source/documentation/lux/macro/syntax.lux +++ b/stdlib/source/documentation/lux/macro/syntax.lux @@ -6,18 +6,18 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." annotations] - ["#." check] - ["#." declaration] - ["#." definition] - ["#." export] - ["#." input] - ["#." type "_" - ["#/." variable]]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" annotations] + ["[1][0]" check] + ["[1][0]" declaration] + ["[1][0]" definition] + ["[1][0]" export] + ["[1][0]" input] + ["[1][0]" type "_" + ["[1]/[0]" variable]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.syntax: (format \n "A more advanced way to define macros than 'macro:'." diff --git a/stdlib/source/documentation/lux/macro/syntax/annotations.lux b/stdlib/source/documentation/lux/macro/syntax/annotations.lux index 108d975ab..62d2abdc2 100644 --- a/stdlib/source/documentation/lux/macro/syntax/annotations.lux +++ b/stdlib/source/documentation/lux/macro/syntax/annotations.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Annotations "Definition/module annotations.") diff --git a/stdlib/source/documentation/lux/macro/syntax/check.lux b/stdlib/source/documentation/lux/macro/syntax/check.lux index c8997e14b..d678d4ca3 100644 --- a/stdlib/source/documentation/lux/macro/syntax/check.lux +++ b/stdlib/source/documentation/lux/macro/syntax/check.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Check "A type annotation for an expression.") diff --git a/stdlib/source/documentation/lux/macro/syntax/declaration.lux b/stdlib/source/documentation/lux/macro/syntax/declaration.lux index 77634b4e7..9153c5ac7 100644 --- a/stdlib/source/documentation/lux/macro/syntax/declaration.lux +++ b/stdlib/source/documentation/lux/macro/syntax/declaration.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Declaration "A declaration for either a constant or a function.") diff --git a/stdlib/source/documentation/lux/macro/syntax/definition.lux b/stdlib/source/documentation/lux/macro/syntax/definition.lux index a0c9a7f25..77bdbf33f 100644 --- a/stdlib/source/documentation/lux/macro/syntax/definition.lux +++ b/stdlib/source/documentation/lux/macro/syntax/definition.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Definition "Syntax for a constant definition.") diff --git a/stdlib/source/documentation/lux/macro/syntax/export.lux b/stdlib/source/documentation/lux/macro/syntax/export.lux index cf63e7a27..d9b7112d7 100644 --- a/stdlib/source/documentation/lux/macro/syntax/export.lux +++ b/stdlib/source/documentation/lux/macro/syntax/export.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.parser "" diff --git a/stdlib/source/documentation/lux/macro/syntax/input.lux b/stdlib/source/documentation/lux/macro/syntax/input.lux index 53bcef4c3..93b4f74be 100644 --- a/stdlib/source/documentation/lux/macro/syntax/input.lux +++ b/stdlib/source/documentation/lux/macro/syntax/input.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Input "The common typed-argument syntax used by many macros.") diff --git a/stdlib/source/documentation/lux/macro/syntax/type/variable.lux b/stdlib/source/documentation/lux/macro/syntax/type/variable.lux index 1512f5985..a6d094361 100644 --- a/stdlib/source/documentation/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/documentation/lux/macro/syntax/type/variable.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Variable "A variable's name.") diff --git a/stdlib/source/documentation/lux/macro/template.lux b/stdlib/source/documentation/lux/macro/template.lux index 00be1845a..1dfac9a3b 100644 --- a/stdlib/source/documentation/lux/macro/template.lux +++ b/stdlib/source/documentation/lux/macro/template.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.spliced "" diff --git a/stdlib/source/documentation/lux/math.lux b/stdlib/source/documentation/lux/math.lux index df28c874a..c3caab318 100644 --- a/stdlib/source/documentation/lux/math.lux +++ b/stdlib/source/documentation/lux/math.lux @@ -6,16 +6,16 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." infix] - ["#." modulus] - ["#." modular] - ["#." number] - ["#." logic] - ["#." random]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" infix] + ["[1][0]" modulus] + ["[1][0]" modular] + ["[1][0]" number] + ["[1][0]" logic] + ["[1][0]" random]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.e "The base of the natural logarithm.") diff --git a/stdlib/source/documentation/lux/math/infix.lux b/stdlib/source/documentation/lux/math/infix.lux index c542dcf99..ccaf4195f 100644 --- a/stdlib/source/documentation/lux/math/infix.lux +++ b/stdlib/source/documentation/lux/math/infix.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.infix (format "Infix math syntax." diff --git a/stdlib/source/documentation/lux/math/logic.lux b/stdlib/source/documentation/lux/math/logic.lux index b9c7a37e7..3bb217d18 100644 --- a/stdlib/source/documentation/lux/math/logic.lux +++ b/stdlib/source/documentation/lux/math/logic.lux @@ -6,10 +6,10 @@ [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid)]]]]] - ["." / "_" - ["#." continuous] - ["#." fuzzy]]) + ["[0]" list ("[1]\[0]" monoid)]]]]] + ["[0]" / "_" + ["[1][0]" continuous] + ["[1][0]" fuzzy]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/math/logic/continuous.lux b/stdlib/source/documentation/lux/math/logic/continuous.lux index 40f3b383f..e7a2606a1 100644 --- a/stdlib/source/documentation/lux/math/logic/continuous.lux +++ b/stdlib/source/documentation/lux/math/logic/continuous.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.implies "" diff --git a/stdlib/source/documentation/lux/math/logic/fuzzy.lux b/stdlib/source/documentation/lux/math/logic/fuzzy.lux index c5995bd75..7afbee83c 100644 --- a/stdlib/source/documentation/lux/math/logic/fuzzy.lux +++ b/stdlib/source/documentation/lux/math/logic/fuzzy.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Fuzzy it) "A fuzzy set.") diff --git a/stdlib/source/documentation/lux/math/modular.lux b/stdlib/source/documentation/lux/math/modular.lux index 6a45e9199..9f4bd14d9 100644 --- a/stdlib/source/documentation/lux/math/modular.lux +++ b/stdlib/source/documentation/lux/math/modular.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Mod %) "A number under a modulus.") diff --git a/stdlib/source/documentation/lux/math/modulus.lux b/stdlib/source/documentation/lux/math/modulus.lux index 45f35b6ba..e25d23cc5 100644 --- a/stdlib/source/documentation/lux/math/modulus.lux +++ b/stdlib/source/documentation/lux/math/modulus.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Modulus %) (format "A number used as a modulus in modular arithmetic." diff --git a/stdlib/source/documentation/lux/math/number.lux b/stdlib/source/documentation/lux/math/number.lux index 8a0c0c171..a6e8114e9 100644 --- a/stdlib/source/documentation/lux/math/number.lux +++ b/stdlib/source/documentation/lux/math/number.lux @@ -3,23 +3,23 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." i8] - ["#." i16] - ["#." i32] - ["#." i64] - ["#." nat] - ["#." int] - ["#." rev] - ["#." frac] - ["#." ratio] - ["#." complex]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" i8] + ["[1][0]" i16] + ["[1][0]" i32] + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["[1][0]" frac] + ["[1][0]" ratio] + ["[1][0]" complex]]) (template [<name> <encoding> <no_commas> <with_commas>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/math/number/complex.lux b/stdlib/source/documentation/lux/math/number/complex.lux index e6d2c4b16..2d2f5d331 100644 --- a/stdlib/source/documentation/lux/math/number/complex.lux +++ b/stdlib/source/documentation/lux/math/number/complex.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Complex "A complex number.") diff --git a/stdlib/source/documentation/lux/math/number/frac.lux b/stdlib/source/documentation/lux/math/number/frac.lux index 1d4a2f45e..2852ee75a 100644 --- a/stdlib/source/documentation/lux/math/number/frac.lux +++ b/stdlib/source/documentation/lux/math/number/frac.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.= "Frac(tion) equivalence." diff --git a/stdlib/source/documentation/lux/math/number/i16.lux b/stdlib/source/documentation/lux/math/number/i16.lux index 7cb6b96df..1f4fe63ec 100644 --- a/stdlib/source/documentation/lux/math/number/i16.lux +++ b/stdlib/source/documentation/lux/math/number/i16.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.I16 "A 16-bit integer.") diff --git a/stdlib/source/documentation/lux/math/number/i32.lux b/stdlib/source/documentation/lux/math/number/i32.lux index 88bbe80e4..83814b429 100644 --- a/stdlib/source/documentation/lux/math/number/i32.lux +++ b/stdlib/source/documentation/lux/math/number/i32.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.I32 "A 32-bit integer.") diff --git a/stdlib/source/documentation/lux/math/number/i64.lux b/stdlib/source/documentation/lux/math/number/i64.lux index 49e371342..08c55da4d 100644 --- a/stdlib/source/documentation/lux/math/number/i64.lux +++ b/stdlib/source/documentation/lux/math/number/i64.lux @@ -3,12 +3,12 @@ [lux {"-" [or and not]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name> <doc>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/math/number/i8.lux b/stdlib/source/documentation/lux/math/number/i8.lux index 3329e8a6c..b9d53fbae 100644 --- a/stdlib/source/documentation/lux/math/number/i8.lux +++ b/stdlib/source/documentation/lux/math/number/i8.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.I8 "A 8-bit integer.") diff --git a/stdlib/source/documentation/lux/math/number/int.lux b/stdlib/source/documentation/lux/math/number/int.lux index 60659050c..4c503598f 100644 --- a/stdlib/source/documentation/lux/math/number/int.lux +++ b/stdlib/source/documentation/lux/math/number/int.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.= "Int(eger) equivalence." diff --git a/stdlib/source/documentation/lux/math/number/nat.lux b/stdlib/source/documentation/lux/math/number/nat.lux index dbae19c36..1e7fa5d5f 100644 --- a/stdlib/source/documentation/lux/math/number/nat.lux +++ b/stdlib/source/documentation/lux/math/number/nat.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name> <documentation>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/math/number/ratio.lux b/stdlib/source/documentation/lux/math/number/ratio.lux index e7e018083..e99a0f21f 100644 --- a/stdlib/source/documentation/lux/math/number/ratio.lux +++ b/stdlib/source/documentation/lux/math/number/ratio.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Ratio "An unsigned ratio of numbers.") diff --git a/stdlib/source/documentation/lux/math/number/rev.lux b/stdlib/source/documentation/lux/math/number/rev.lux index 2a2053128..ba215f444 100644 --- a/stdlib/source/documentation/lux/math/number/rev.lux +++ b/stdlib/source/documentation/lux/math/number/rev.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.= "Rev(olution) equivalence." diff --git a/stdlib/source/documentation/lux/math/random.lux b/stdlib/source/documentation/lux/math/random.lux index 801923b9e..652ef5c77 100644 --- a/stdlib/source/documentation/lux/math/random.lux +++ b/stdlib/source/documentation/lux/math/random.lux @@ -3,12 +3,12 @@ [lux {"-" [or and nat int rev]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.PRNG "An abstract way to represent any PRNG.") diff --git a/stdlib/source/documentation/lux/meta.lux b/stdlib/source/documentation/lux/meta.lux index 7bd9894fd..1f69bffed 100644 --- a/stdlib/source/documentation/lux/meta.lux +++ b/stdlib/source/documentation/lux/meta.lux @@ -3,15 +3,15 @@ [lux {"-" [type macro]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." annotation] - ["#." location]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" annotation] + ["[1][0]" location]]) (documentation: /.result' (format "Evaluates a computation that depends on Lux's compiler state." diff --git a/stdlib/source/documentation/lux/meta/annotation.lux b/stdlib/source/documentation/lux/meta/annotation.lux index 10f4d0aad..71ef33cc0 100644 --- a/stdlib/source/documentation/lux/meta/annotation.lux +++ b/stdlib/source/documentation/lux/meta/annotation.lux @@ -3,12 +3,12 @@ [lux {"-" [nat int rev]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/meta/location.lux b/stdlib/source/documentation/lux/meta/location.lux index 2cf8344e4..d912bce13 100644 --- a/stdlib/source/documentation/lux/meta/location.lux +++ b/stdlib/source/documentation/lux/meta/location.lux @@ -3,12 +3,12 @@ [lux {"-" [private]} ["$" documentation {"+" [documentation:]}] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.here "The Location of the current form." diff --git a/stdlib/source/documentation/lux/program.lux b/stdlib/source/documentation/lux/program.lux index c5253e5e2..0899ffcca 100644 --- a/stdlib/source/documentation/lux/program.lux +++ b/stdlib/source/documentation/lux/program.lux @@ -3,14 +3,14 @@ [lux "*" ["$" documentation {"+" [documentation:]}] [control - ["." io]] + ["[0]" io]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.program: "Defines the entry-point to a program (similar to the 'main' function/method in other programming languages)." diff --git a/stdlib/source/documentation/lux/static.lux b/stdlib/source/documentation/lux/static.lux index 8f7789b25..89436fd00 100644 --- a/stdlib/source/documentation/lux/static.lux +++ b/stdlib/source/documentation/lux/static.lux @@ -6,9 +6,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name> <type>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/target.lux b/stdlib/source/documentation/lux/target.lux index 831881f2f..ab0830a24 100644 --- a/stdlib/source/documentation/lux/target.lux +++ b/stdlib/source/documentation/lux/target.lux @@ -6,15 +6,15 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]] - ["." / "_" - ["#." js] - ["#." jvm] - ["#." lua] - ["#." python] - ["#." ruby]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" js] + ["[1][0]" jvm] + ["[1][0]" lua] + ["[1][0]" python] + ["[1][0]" ruby]]) (documentation: /.Target (format "The name/ID of a platform targetted by a Lux compiler." diff --git a/stdlib/source/documentation/lux/target/js.lux b/stdlib/source/documentation/lux/target/js.lux index fe87d7e40..443441f13 100644 --- a/stdlib/source/documentation/lux/target/js.lux +++ b/stdlib/source/documentation/lux/target/js.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/target/jvm.lux b/stdlib/source/documentation/lux/target/jvm.lux index 85833ce7a..9deccc33f 100644 --- a/stdlib/source/documentation/lux/target/jvm.lux +++ b/stdlib/source/documentation/lux/target/jvm.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/target/lua.lux b/stdlib/source/documentation/lux/target/lua.lux index 32870785f..e5ecff7be 100644 --- a/stdlib/source/documentation/lux/target/lua.lux +++ b/stdlib/source/documentation/lux/target/lua.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/target/python.lux b/stdlib/source/documentation/lux/target/python.lux index 2bb90ca9d..b17cde4d6 100644 --- a/stdlib/source/documentation/lux/target/python.lux +++ b/stdlib/source/documentation/lux/target/python.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/target/ruby.lux b/stdlib/source/documentation/lux/target/ruby.lux index f5fe5ae22..27cd14963 100644 --- a/stdlib/source/documentation/lux/target/ruby.lux +++ b/stdlib/source/documentation/lux/target/ruby.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/test.lux b/stdlib/source/documentation/lux/test.lux index f63a8885d..18f2a2845 100644 --- a/stdlib/source/documentation/lux/test.lux +++ b/stdlib/source/documentation/lux/test.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Tally "A record of successes and failures while executing tests.") diff --git a/stdlib/source/documentation/lux/time.lux b/stdlib/source/documentation/lux/time.lux index be55fbb4b..3dbbc206f 100644 --- a/stdlib/source/documentation/lux/time.lux +++ b/stdlib/source/documentation/lux/time.lux @@ -4,21 +4,21 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." date] - ["#." day] - ["#." duration] - ["#." instant] - ["#." month] - ["#." year]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" date] + ["[1][0]" day] + ["[1][0]" duration] + ["[1][0]" instant] + ["[1][0]" month] + ["[1][0]" year]]) (template [<name> <doc>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/time/date.lux b/stdlib/source/documentation/lux/time/date.lux index 8c27c7a52..a781d1248 100644 --- a/stdlib/source/documentation/lux/time/date.lux +++ b/stdlib/source/documentation/lux/time/date.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Date "A date specified as a year/month/day triplet.") diff --git a/stdlib/source/documentation/lux/time/day.lux b/stdlib/source/documentation/lux/time/day.lux index 495ddc028..de3214bec 100644 --- a/stdlib/source/documentation/lux/time/day.lux +++ b/stdlib/source/documentation/lux/time/day.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Day "A day of the week.") diff --git a/stdlib/source/documentation/lux/time/duration.lux b/stdlib/source/documentation/lux/time/duration.lux index 20e1bf8d8..ed3784bd3 100644 --- a/stdlib/source/documentation/lux/time/duration.lux +++ b/stdlib/source/documentation/lux/time/duration.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Duration "Durations have a resolution of milli-seconds.") diff --git a/stdlib/source/documentation/lux/time/instant.lux b/stdlib/source/documentation/lux/time/instant.lux index bad0f1d75..0c9c9946b 100644 --- a/stdlib/source/documentation/lux/time/instant.lux +++ b/stdlib/source/documentation/lux/time/instant.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Instant "Instant is defined as milli-seconds since the epoch.") diff --git a/stdlib/source/documentation/lux/time/month.lux b/stdlib/source/documentation/lux/time/month.lux index 71606f8fc..c9597a360 100644 --- a/stdlib/source/documentation/lux/time/month.lux +++ b/stdlib/source/documentation/lux/time/month.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Month "A month of the year.") diff --git a/stdlib/source/documentation/lux/time/year.lux b/stdlib/source/documentation/lux/time/year.lux index 1fa9dc836..7d7679253 100644 --- a/stdlib/source/documentation/lux/time/year.lux +++ b/stdlib/source/documentation/lux/time/year.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Year (format "A year in the gregorian calendar." diff --git a/stdlib/source/documentation/lux/tool.lux b/stdlib/source/documentation/lux/tool.lux index 1cd0a11a1..0c721b6ed 100644 --- a/stdlib/source/documentation/lux/tool.lux +++ b/stdlib/source/documentation/lux/tool.lux @@ -6,16 +6,16 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." / "_" + ["[0]" list]]]]] + ["[0]" / "_" [compiler - ["#." phase] + ["[1][0]" phase] [language [lux - ["#." analysis] - ["#." directive] - ["#." generation] - ["#." synthesis]]]]]) + ["[1][0]" analysis] + ["[1][0]" directive] + ["[1][0]" generation] + ["[1][0]" synthesis]]]]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/documentation/lux/tool/compiler/language/lux/analysis.lux index b31cd23f9..ef029bf59 100644 --- a/stdlib/source/documentation/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/documentation/lux/tool/compiler/language/lux/analysis.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/tool/compiler/language/lux/directive.lux b/stdlib/source/documentation/lux/tool/compiler/language/lux/directive.lux index e7aafa507..aa1e1d7b7 100644 --- a/stdlib/source/documentation/lux/tool/compiler/language/lux/directive.lux +++ b/stdlib/source/documentation/lux/tool/compiler/language/lux/directive.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/documentation/lux/tool/compiler/language/lux/generation.lux index 7f7b2173c..1c478efd5 100644 --- a/stdlib/source/documentation/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/documentation/lux/tool/compiler/language/lux/generation.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/tool/compiler/language/lux/synthesis.lux b/stdlib/source/documentation/lux/tool/compiler/language/lux/synthesis.lux index d9163f261..e2ea2d13c 100644 --- a/stdlib/source/documentation/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/documentation/lux/tool/compiler/language/lux/synthesis.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/tool/compiler/phase.lux b/stdlib/source/documentation/lux/tool/compiler/phase.lux index 143ccb42f..8fa688c11 100644 --- a/stdlib/source/documentation/lux/tool/compiler/phase.lux +++ b/stdlib/source/documentation/lux/tool/compiler/phase.lux @@ -6,9 +6,9 @@ [text {"+" [\n]} ["%" format {"+" [format]}]] [collection - ["." list]]]]] + ["[0]" list]]]]] [\\library - ["." /]]) + ["[0]" /]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/type.lux b/stdlib/source/documentation/lux/type.lux index 57d8f9497..e317f6d3f 100644 --- a/stdlib/source/documentation/lux/type.lux +++ b/stdlib/source/documentation/lux/type.lux @@ -4,25 +4,25 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." abstract] - ["#." check] - ["#." dynamic] - ["#." implicit] - ["#." poly] - ["#." quotient] - ["#." refinement] - ["#." resource] - ["#." unit] - ["#." variance]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" abstract] + ["[1][0]" check] + ["[1][0]" dynamic] + ["[1][0]" implicit] + ["[1][0]" poly] + ["[1][0]" quotient] + ["[1][0]" refinement] + ["[1][0]" resource] + ["[1][0]" unit] + ["[1][0]" variance]]) (template [<name>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/type/abstract.lux b/stdlib/source/documentation/lux/type/abstract.lux index 41c91897f..a0bf8147b 100644 --- a/stdlib/source/documentation/lux/type/abstract.lux +++ b/stdlib/source/documentation/lux/type/abstract.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Frame "Meta-data about an abstract/nominal type in a stack of them.") diff --git a/stdlib/source/documentation/lux/type/check.lux b/stdlib/source/documentation/lux/type/check.lux index bcb5456cb..de8a14027 100644 --- a/stdlib/source/documentation/lux/type/check.lux +++ b/stdlib/source/documentation/lux/type/check.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Var "The ID for a type-variable in a type-checking context.") diff --git a/stdlib/source/documentation/lux/type/dynamic.lux b/stdlib/source/documentation/lux/type/dynamic.lux index 14b7f9708..10ccdf349 100644 --- a/stdlib/source/documentation/lux/type/dynamic.lux +++ b/stdlib/source/documentation/lux/type/dynamic.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Dynamic "A value coupled with its type, so it can be checked later.") diff --git a/stdlib/source/documentation/lux/type/implicit.lux b/stdlib/source/documentation/lux/type/implicit.lux index 5a8e83f42..934557429 100644 --- a/stdlib/source/documentation/lux/type/implicit.lux +++ b/stdlib/source/documentation/lux/type/implicit.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.\\ (format "Automatic implementation selection (for type-class style polymorphism)." diff --git a/stdlib/source/documentation/lux/type/poly.lux b/stdlib/source/documentation/lux/type/poly.lux index 096136cf5..8708d3f90 100644 --- a/stdlib/source/documentation/lux/type/poly.lux +++ b/stdlib/source/documentation/lux/type/poly.lux @@ -4,18 +4,18 @@ ["$" documentation {"+" [documentation:]}] [abstract [\\specification - ["$." equivalence] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" codec]]] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.derived: "" diff --git a/stdlib/source/documentation/lux/type/quotient.lux b/stdlib/source/documentation/lux/type/quotient.lux index eefb2c965..e4b33e678 100644 --- a/stdlib/source/documentation/lux/type/quotient.lux +++ b/stdlib/source/documentation/lux/type/quotient.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Class value label) "The class knows how to classify/label values that are meant to be equivalent to one another.") diff --git a/stdlib/source/documentation/lux/type/refinement.lux b/stdlib/source/documentation/lux/type/refinement.lux index d3bd0abef..fff890746 100644 --- a/stdlib/source/documentation/lux/type/refinement.lux +++ b/stdlib/source/documentation/lux/type/refinement.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Refined it) "A refined version of another type, using a predicate to select valid instances.") diff --git a/stdlib/source/documentation/lux/type/resource.lux b/stdlib/source/documentation/lux/type/resource.lux index 335cef3b0..5d6427fcb 100644 --- a/stdlib/source/documentation/lux/type/resource.lux +++ b/stdlib/source/documentation/lux/type/resource.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Procedure monad input output value) (format "A computation that takes a sequence of resource access rights as inputs and yields a different sequence as outputs." diff --git a/stdlib/source/documentation/lux/type/unit.lux b/stdlib/source/documentation/lux/type/unit.lux index 14e7a8ce0..fdf8e27d6 100644 --- a/stdlib/source/documentation/lux/type/unit.lux +++ b/stdlib/source/documentation/lux/type/unit.lux @@ -4,17 +4,17 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." ratio]]]]] + ["[0]" ratio]]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Qty unit) "A quantity with an associated unit of measurement.") diff --git a/stdlib/source/documentation/lux/type/variance.lux b/stdlib/source/documentation/lux/type/variance.lux index 039cc9034..4a19996e7 100644 --- a/stdlib/source/documentation/lux/type/variance.lux +++ b/stdlib/source/documentation/lux/type/variance.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Co it) "A constraint for covariant types.") diff --git a/stdlib/source/documentation/lux/world.lux b/stdlib/source/documentation/lux/world.lux index b27ed0fcd..bb7af0722 100644 --- a/stdlib/source/documentation/lux/world.lux +++ b/stdlib/source/documentation/lux/world.lux @@ -3,23 +3,23 @@ [lux "*" [program {"+" [program:]}] ["$" documentation {"+" [documentation:]}] - ["." debug] + ["[0]" debug] [control - ["." io]] + ["[0]" io]] [data [collection - ["." list ("#\." monoid)]]]]] - ["." / "_" - ["#." console] - ["#." file] - ["#." input "_" - ["#/." keyboard]] - ["#." net] - ["#." output "_" - ["#/." video "_" - ["#/." resolution]]] - ["#." program] - ["#." shell]]) + ["[0]" list ("[1]\[0]" monoid)]]]]] + ["[0]" / "_" + ["[1][0]" console] + ["[1][0]" file] + ["[1][0]" input "_" + ["[1]/[0]" keyboard]] + ["[1][0]" net] + ["[1][0]" output "_" + ["[1]/[0]" video "_" + ["[1]/[0]" resolution]]] + ["[1][0]" program] + ["[1][0]" shell]]) (.def: .public documentation (.List $.Module) diff --git a/stdlib/source/documentation/lux/world/console.lux b/stdlib/source/documentation/lux/world/console.lux index 11fe9be8c..c84c663c3 100644 --- a/stdlib/source/documentation/lux/world/console.lux +++ b/stdlib/source/documentation/lux/world/console.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Console !) "An interface to console/terminal I/O.") diff --git a/stdlib/source/documentation/lux/world/file.lux b/stdlib/source/documentation/lux/world/file.lux index fd62de80f..f74af15b6 100644 --- a/stdlib/source/documentation/lux/world/file.lux +++ b/stdlib/source/documentation/lux/world/file.lux @@ -4,16 +4,16 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]] - ["." / "_" - ["#." watch]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" watch]]) (documentation: /.Path "A path to a file or a directory in a file-system.") diff --git a/stdlib/source/documentation/lux/world/file/watch.lux b/stdlib/source/documentation/lux/world/file/watch.lux index 8c6c6f89d..6d27d8f29 100644 --- a/stdlib/source/documentation/lux/world/file/watch.lux +++ b/stdlib/source/documentation/lux/world/file/watch.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Concern "A particular concern to watch-out for.") diff --git a/stdlib/source/documentation/lux/world/input/keyboard.lux b/stdlib/source/documentation/lux/world/input/keyboard.lux index 4ed1a9221..ade8e66fc 100644 --- a/stdlib/source/documentation/lux/world/input/keyboard.lux +++ b/stdlib/source/documentation/lux/world/input/keyboard.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Key "A key from a keyboard, identify by a numeric ID.") diff --git a/stdlib/source/documentation/lux/world/net.lux b/stdlib/source/documentation/lux/world/net.lux index 6612d7d84..8c41917ee 100644 --- a/stdlib/source/documentation/lux/world/net.lux +++ b/stdlib/source/documentation/lux/world/net.lux @@ -3,16 +3,16 @@ [lux "*" [program {"+" [program:]}] ["$" documentation {"+" [documentation:]}] - ["." debug] + ["[0]" debug] [control - ["." io]]]] + ["[0]" io]]]] [\\library - ["." /]] - ["." / "_" - ["#." uri] - ["#." http "_" - ["#/." client] - ["#/." status]]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" uri] + ["[1][0]" http "_" + ["[1]/[0]" client] + ["[1]/[0]" status]]]) (documentation: /.Address "A TCP/IP address.") diff --git a/stdlib/source/documentation/lux/world/net/http/client.lux b/stdlib/source/documentation/lux/world/net/http/client.lux index 8a95cf0d4..cda303287 100644 --- a/stdlib/source/documentation/lux/world/net/http/client.lux +++ b/stdlib/source/documentation/lux/world/net/http/client.lux @@ -1,17 +1,17 @@ -(.module: + (.module: [library [lux "*" ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Client !) "A HTTP client capable of issuing requests to a HTTP server.") diff --git a/stdlib/source/documentation/lux/world/net/http/status.lux b/stdlib/source/documentation/lux/world/net/http/status.lux index 2aa0ddf5a..4dbecd25b 100644 --- a/stdlib/source/documentation/lux/world/net/http/status.lux +++ b/stdlib/source/documentation/lux/world/net/http/status.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name>] [(documentation: <name> diff --git a/stdlib/source/documentation/lux/world/net/uri.lux b/stdlib/source/documentation/lux/world/net/uri.lux index 4c9c10e5b..31594fdff 100644 --- a/stdlib/source/documentation/lux/world/net/uri.lux +++ b/stdlib/source/documentation/lux/world/net/uri.lux @@ -3,11 +3,11 @@ [lux "*" [program {"+" [program:]}] ["$" documentation {"+" [documentation:]}] - ["." debug] + ["[0]" debug] [control - ["." io]]]] + ["[0]" io]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.URI "A Uniform Resource Identifier.") diff --git a/stdlib/source/documentation/lux/world/output/video/resolution.lux b/stdlib/source/documentation/lux/world/output/video/resolution.lux index e59bdae6c..e66d2a226 100644 --- a/stdlib/source/documentation/lux/world/output/video/resolution.lux +++ b/stdlib/source/documentation/lux/world/output/video/resolution.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Resolution "A screen resolution.") diff --git a/stdlib/source/documentation/lux/world/program.lux b/stdlib/source/documentation/lux/world/program.lux index 4a6cc9b8d..c6c578861 100644 --- a/stdlib/source/documentation/lux/world/program.lux +++ b/stdlib/source/documentation/lux/world/program.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: (/.Program !) "Access to ambient program data and the capacity to exit the program.") diff --git a/stdlib/source/documentation/lux/world/shell.lux b/stdlib/source/documentation/lux/world/shell.lux index 559070b3d..927519d06 100644 --- a/stdlib/source/documentation/lux/world/shell.lux +++ b/stdlib/source/documentation/lux/world/shell.lux @@ -4,14 +4,14 @@ ["$" documentation {"+" [documentation:]}] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text {"+" [\n]} + ["[0]" text {"+" [\n]} ["%" format {"+" [format]}]]] [macro - ["." template]]]] + ["[0]" template]]]] [\\library - ["." /]]) + ["[0]" /]]) (documentation: /.Exit "A program exit code.") diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 5b6a2ba6e..bc5393c3c 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -3825,14 +3825,18 @@ ("lux text concat" left right)))) "" template)) -(def: contextual_reference "#") -(def: self_reference ".") - -(def: (module_alias context self aliased) - (-> Text Text Text Text) - (|> aliased - (replaced ..self_reference self) - (replaced ..contextual_reference context))) +(def: (alias_stand_in index) + (-> Nat Text) + ($_ "lux text concat" "[" (nat\encoded index) "]")) + +(def: (module_alias context aliased) + (-> (List Text) Text Text) + (product\right + (list\mix (function (_ replacement [index aliased]) + [("lux i64 +" 1 index) + (replaced (alias_stand_in index) replacement aliased)]) + [0 aliased] + context))) (def: .public module_separator "/") @@ -3909,8 +3913,8 @@ "Importing module: " module ..\n " Relative Root: " relative_root ..\n)))))) -(def: (imports_parser nested? relative_root context_alias imports) - (-> Bit Text Text (List Code) (Meta (List Importation))) +(def: (imports_parser nested? relative_root context imports) + (-> Bit Text (List Text) (List Code) (Meta (List Importation))) (do meta_monad [imports' (monad\each meta_monad (: (-> Code (Meta (List Importation))) @@ -3938,7 +3942,7 @@ .let [[referral extra] referral+extra] openings+extra (openings_parser extra) .let [[openings extra] openings+extra] - sub_imports (imports_parser #1 absolute_module_name context_alias extra)] + sub_imports (imports_parser #1 absolute_module_name context extra)] (in (case [referral openings] [#Nothing #End] sub_imports @@ -3962,8 +3966,8 @@ .let [[referral extra] referral+extra] openings+extra (openings_parser extra) .let [[openings extra] openings+extra - module_alias (..module_alias context_alias module_name alias)] - sub_imports (imports_parser #1 absolute_module_name module_alias extra)] + module_alias (..module_alias (#Item module_name context) alias)] + sub_imports (imports_parser #1 absolute_module_name (#Item module_alias context) extra)] (in (case [referral openings] [#Ignore #End] sub_imports @@ -4242,7 +4246,7 @@ [full_body ((: (-> Name [(List Name) (List Type)] Code (Meta Code)) (function (recur source [tags members] target) (let [locals (list\each (function (_ [t_module t_name]) - ["" (..module_alias "" t_name alias)]) + ["" (..module_alias (list t_name) alias)]) tags) pattern (tuple$ (list\each identifier$ locals))] (do meta_monad @@ -4363,7 +4367,7 @@ (in_meta (list\conjoint decls'))) _ - (in_meta (list (` ("lux def" (~ (local_identifier$ (..module_alias "" short alias))) + (in_meta (list (` ("lux def" (~ (local_identifier$ (..module_alias (list short) alias))) (~ source+) [(~ location_code) (#.Record #.End)] #0))))))) @@ -4516,7 +4520,7 @@ #Nothing (list))) openings (list\each (function (_ [alias structs]) - (form$ (list& (text$ (..replaced ..contextual_reference module_alias alias)) + (form$ (list& (text$ (..module_alias (list (alias_stand_in 0) module_alias) alias)) (list\each local_identifier$ structs)))) r_opens)] (` ((~! ..refer) (~ (text$ module_name)) @@ -4533,7 +4537,7 @@ _ [(list) tokens]))] current_module current_module_name - imports (imports_parser #0 current_module "" _imports) + imports (imports_parser #0 current_module #End _imports) .let [=imports (|> imports (list\each (: (-> Importation Code) (function (_ [module_name m_alias =refer]) @@ -4551,7 +4555,7 @@ (macro: .public (\ tokens) (case tokens (^ (list struct [_ (#Identifier member)])) - (in_meta (list (` (let [(^open (~ (text$ ..self_reference))) (~ struct)] (~ (identifier$ member)))))) + (in_meta (list (` (let [(^open (~ (text$ (alias_stand_in 0)))) (~ struct)] (~ (identifier$ member)))))) (^ (list& struct member args)) (in_meta (list (` ((..\ (~ struct) (~ member)) (~+ args))))) diff --git a/stdlib/source/library/lux/abstract/apply.lux b/stdlib/source/library/lux/abstract/apply.lux index f50403a4b..48598dfa5 100644 --- a/stdlib/source/library/lux/abstract/apply.lux +++ b/stdlib/source/library/lux/abstract/apply.lux @@ -4,7 +4,7 @@ ["@" target]]] [// [monad {"+" [Monad]}] - ["." functor {"+" [Functor]}]]) + ["[0]" functor {"+" [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 7308a0cd7..9a772accf 100644 --- a/stdlib/source/library/lux/abstract/codec.lux +++ b/stdlib/source/library/lux/abstract/codec.lux @@ -2,10 +2,10 @@ [library [lux "*" [control - ["." try {"+" [Try]}]]]] + ["[0]" try {"+" [Try]}]]]] [// [monad {"+" [do]}] - ["." functor]]) + ["[0]" functor]]) (type: .public (Codec m a) (Interface diff --git a/stdlib/source/library/lux/abstract/comonad.lux b/stdlib/source/library/lux/abstract/comonad.lux index b9175ecf1..2e37a943e 100644 --- a/stdlib/source/library/lux/abstract/comonad.lux +++ b/stdlib/source/library/lux/abstract/comonad.lux @@ -3,12 +3,12 @@ [lux "*" [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]] [meta - ["." location]]]] + ["[0]" location]]]] [// [functor {"+" [Functor]}]]) diff --git a/stdlib/source/library/lux/abstract/enum.lux b/stdlib/source/library/lux/abstract/enum.lux index fdd7e30e1..390bd9956 100644 --- a/stdlib/source/library/lux/abstract/enum.lux +++ b/stdlib/source/library/lux/abstract/enum.lux @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["." order {"+" [Order]}]]) + ["[0]" order {"+" [Order]}]]) (type: .public (Enum e) (Interface @@ -12,7 +12,7 @@ (def: .public (range enum from to) (All (_ a) (-> (Enum a) a a (List a))) - (let [(^open ".") enum] + (let [(^open "[0]") enum] (loop [end to output #.End] (cond (< end from) diff --git a/stdlib/source/library/lux/abstract/equivalence.lux b/stdlib/source/library/lux/abstract/equivalence.lux index 6e6b2e834..28dd71ce1 100644 --- a/stdlib/source/library/lux/abstract/equivalence.lux +++ b/stdlib/source/library/lux/abstract/equivalence.lux @@ -3,7 +3,7 @@ [lux "*"]] [// [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Equivalence a) (Interface diff --git a/stdlib/source/library/lux/abstract/functor.lux b/stdlib/source/library/lux/abstract/functor.lux index 50ad52f37..c72ae415b 100644 --- a/stdlib/source/library/lux/abstract/functor.lux +++ b/stdlib/source/library/lux/abstract/functor.lux @@ -15,7 +15,7 @@ (type: .public (Or f g) (All (_ a) (.Or (f a) (g a)))) -(def: .public (sum (^open "f\.") (^open "g\.")) +(def: .public (sum (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..Or F G)))) (implementation (def: (each f fa|ga) @@ -29,7 +29,7 @@ (type: .public (And f g) (All (_ a) (.And (f a) (g a)))) -(def: .public (product (^open "f\.") (^open "g\.")) +(def: .public (product (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..And F G)))) (implementation (def: (each f [fa ga]) @@ -39,7 +39,7 @@ (type: .public (Then f g) (All (_ a) (f (g a)))) -(def: .public (composite (^open "f\.") (^open "g\.")) +(def: .public (composite (^open "f\[0]") (^open "g\[0]")) (All (_ F G) (-> (Functor F) (Functor G) (Functor (..Then F G)))) (implementation (def: (each f fga) diff --git a/stdlib/source/library/lux/abstract/hash.lux b/stdlib/source/library/lux/abstract/hash.lux index 4ad150417..5b753b484 100644 --- a/stdlib/source/library/lux/abstract/hash.lux +++ b/stdlib/source/library/lux/abstract/hash.lux @@ -2,9 +2,9 @@ [library [lux "*"]] [// - ["." equivalence {"+" [Equivalence]}] + ["[0]" equivalence {"+" [Equivalence]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Hash a) (Interface diff --git a/stdlib/source/library/lux/abstract/interval.lux b/stdlib/source/library/lux/abstract/interval.lux index 66b57a5e6..c39ac868c 100644 --- a/stdlib/source/library/lux/abstract/interval.lux +++ b/stdlib/source/library/lux/abstract/interval.lux @@ -4,7 +4,7 @@ [lux "*"]] [// [equivalence {"+" [Equivalence]}] - ["." order] + ["[0]" order] [enum {"+" [Enum]}]]) (type: .public (Interval a) @@ -35,7 +35,7 @@ (template [<name> <comp>] [(def: .public (<name> interval) (All (_ a) (-> (Interval a) Bit)) - (let [(^open ",\.") interval] + (let [(^open ",\[0]") interval] (<comp> ,\bottom ,\top)))] [inner? (order.> ,\&order)] @@ -45,7 +45,7 @@ (def: .public (within? interval elem) (All (_ a) (-> (Interval a) a Bit)) - (let [(^open ",\.") interval] + (let [(^open ",\[0]") interval] (cond (inner? interval) (and (order.>= ,\&order ,\bottom elem) (order.<= ,\&order ,\top elem)) @@ -61,7 +61,7 @@ (template [<name> <limit>] [(def: .public (<name> elem interval) (All (_ a) (-> a (Interval a) Bit)) - (let [(^open ".") interval] + (let [(^open "[0]") interval] (= <limit> elem)))] [starts_with? bottom] @@ -96,7 +96,7 @@ (def: .public (precedes? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ".") reference + (let [(^open "[0]") reference limit (\ reference bottom)] (and (< limit (\ sample bottom)) (< limit (\ sample top))))) @@ -108,7 +108,7 @@ (template [<name> <comp>] [(def: .public (<name> reference sample) (All (_ a) (-> a (Interval a) Bit)) - (let [(^open ",\.") sample] + (let [(^open ",\[0]") sample] (and (<comp> reference ,\bottom) (<comp> reference ,\top))))] @@ -118,7 +118,7 @@ (def: .public (meets? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference + (let [(^open ",\[0]") reference limit (\ reference bottom)] (and (,\= limit (\ sample top)) (order.<= ,\&order limit (\ sample bottom))))) @@ -131,7 +131,7 @@ (template [<name> <eq_side> <ineq> <ineq_side>] [(def: .public (<name> reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (,\= (\ reference <eq_side>) (\ sample <eq_side>)) (<ineq> ,\&order @@ -146,7 +146,7 @@ (All (_ a) (Equivalence (Interval a))) (def: (= reference sample) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (,\= ,\bottom (\ sample bottom)) (,\= ,\top (\ sample top)))))) @@ -155,7 +155,7 @@ (cond (or (singleton? sample) (and (inner? reference) (inner? sample)) (and (outer? reference) (outer? sample))) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (order.>= ,\&order (\ reference bottom) (\ sample bottom)) (order.<= ,\&order (\ reference top) (\ sample top)))) @@ -164,7 +164,7 @@ #0 ... (and (outer? reference) (inner? sample)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (or (and (order.>= ,\&order (\ reference bottom) (\ sample bottom)) (order.> ,\&order (\ reference bottom) (\ sample top))) (and (,\< (\ reference top) (\ sample bottom)) @@ -173,7 +173,7 @@ (def: .public (overlaps? reference sample) (All (_ a) (-> (Interval a) (Interval a) Bit)) - (let [(^open ",\.") reference] + (let [(^open ",\[0]") reference] (and (not (\ ..equivalence = reference sample)) (cond (singleton? sample) #0 diff --git a/stdlib/source/library/lux/abstract/mix.lux b/stdlib/source/library/lux/abstract/mix.lux index 0999616bc..53e6fbcf8 100644 --- a/stdlib/source/library/lux/abstract/mix.lux +++ b/stdlib/source/library/lux/abstract/mix.lux @@ -13,5 +13,5 @@ (def: .public (with_monoid monoid mix value) (All (_ F a) (-> (Monoid a) (Mix F) (F a) a)) - (let [(^open "/\.") monoid] + (let [(^open "/\[0]") monoid] (mix /\composite /\identity value))) diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux index cc2aadad1..b90a93580 100644 --- a/stdlib/source/library/lux/abstract/monad.lux +++ b/stdlib/source/library/lux/abstract/monad.lux @@ -2,7 +2,7 @@ [library [lux "*" [meta - ["." location]]]] + ["[0]" location]]]] [// [functor {"+" [Functor]}]]) @@ -117,7 +117,7 @@ (All (_ ! a) (-> (Monad !) (List (! a)) (! (List a)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End @@ -133,7 +133,7 @@ (All (_ M a b) (-> (Monad M) (-> a (M b)) (List a) (M (List b)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End @@ -149,7 +149,7 @@ (All (_ ! a b) (-> (Monad !) (-> a (! Bit)) (List a) (! (List a)))) - (let [(^open "!\.") monad] + (let [(^open "!\[0]") monad] (function (recur xs) (case xs #.End diff --git a/stdlib/source/library/lux/abstract/monad/indexed.lux b/stdlib/source/library/lux/abstract/monad/indexed.lux index 704213215..99446f84f 100644 --- a/stdlib/source/library/lux/abstract/monad/indexed.lux +++ b/stdlib/source/library/lux/abstract/monad/indexed.lux @@ -3,14 +3,14 @@ [lux "*" [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." functor mix)]]] - ["." macro + ["[0]" list ("[1]\[0]" functor mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]]]] - ["." //]) + ["[0]" code]]]] + ["[0]" //]) (type: .public (IxMonad m) (Interface diff --git a/stdlib/source/library/lux/abstract/order.lux b/stdlib/source/library/lux/abstract/order.lux index 067e21e91..878a167f5 100644 --- a/stdlib/source/library/lux/abstract/order.lux +++ b/stdlib/source/library/lux/abstract/order.lux @@ -2,11 +2,11 @@ [library [lux "*" [control - ["." function]]]] + ["[0]" function]]]] [// - ["." equivalence {"+" [Equivalence]}] + ["[0]" equivalence {"+" [Equivalence]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Order a) (Interface diff --git a/stdlib/source/library/lux/abstract/predicate.lux b/stdlib/source/library/lux/abstract/predicate.lux index ca38d26d3..0009a8467 100644 --- a/stdlib/source/library/lux/abstract/predicate.lux +++ b/stdlib/source/library/lux/abstract/predicate.lux @@ -2,11 +2,11 @@ [library [lux {"-" [or and]} [control - ["." function]]]] + ["[0]" function]]]] [// [monoid {"+" [Monoid]}] [functor - ["." contravariant]]]) + ["[0]" contravariant]]]) (type: .public (Predicate a) (-> a Bit)) diff --git a/stdlib/source/library/lux/control/concatenative.lux b/stdlib/source/library/lux/control/concatenative.lux index 9d9e419f7..ee8cc8af9 100644 --- a/stdlib/source/library/lux/control/concatenative.lux +++ b/stdlib/source/library/lux/control/concatenative.lux @@ -1,21 +1,21 @@ (.module: [library [lux {"-" [Alias if loop]} - ["." meta] + ["[0]" meta] [abstract - ["." monad]] + ["[0]" monad]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)]]] - ["." macro {"+" [with_identifiers]} - ["." code] - ["." template] + ["[0]" list ("[1]\[0]" mix functor)]]] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]} - ["|.|" annotations]]] + ["|[0]|" annotations]]] [math [number ["n" nat] @@ -23,8 +23,8 @@ ["r" rev] ["f" frac]]]]] [// - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]]) + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [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 9958c7e0b..d127feec3 100644 --- a/stdlib/source/library/lux/control/concurrency/actor.lux +++ b/stdlib/source/library/lux/control/concurrency/actor.lux @@ -1,40 +1,40 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [abstract monad] [control [pipe {"+" [case>]}] - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit] - ["." product] + ["[0]" bit] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid monad)]]] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" list ("[1]\[0]" monoid monad)]]] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" input] - ["|.|" annotations]]] + ["|[0]|" input] + ["|[0]|" annotations]]] [math [number ["n" nat]]] - ["." meta {"+" [monad]} - ["." annotation]] + ["[0]" meta {"+" [monad]} + ["[0]" annotation]] [type {"+" [:sharing]} - ["." abstract {"+" [abstract: :representation :abstraction]}]]]] + ["[0]" abstract {"+" [abstract: :representation :abstraction]}]]]] [// - ["." atom {"+" [Atom atom]}] - ["." async {"+" [Async Resolver]} ("#\." monad)] - ["." frp {"+" [Channel]}]]) + ["[0]" atom {"+" [Atom atom]}] + ["[0]" async {"+" [Async Resolver]} ("[1]\[0]" monad)] + ["[0]" frp {"+" [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 b959ef3b7..aec52dcf9 100644 --- a/stdlib/source/library/lux/control/concurrency/async.lux +++ b/stdlib/source/library/lux/control/concurrency/async.lux @@ -4,18 +4,18 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." function] - ["." io {"+" [IO io]}]] + ["[0]" function] + ["[0]" io {"+" [IO io]}]] [data - ["." product]] + ["[0]" product]] [type {"+" [:sharing]} abstract]]] [// - ["." thread] - ["." atom {"+" [Atom atom]}]]) + ["[0]" thread] + ["[0]" atom {"+" [Atom atom]}]]) (abstract: .public (Async a) {} diff --git a/stdlib/source/library/lux/control/concurrency/atom.lux b/stdlib/source/library/lux/control/concurrency/atom.lux index d08b80b42..802ea9298 100644 --- a/stdlib/source/library/lux/control/concurrency/atom.lux +++ b/stdlib/source/library/lux/control/concurrency/atom.lux @@ -1,22 +1,22 @@ (.module: [library [lux "*" - ["." ffi] ["@" target] + ["[0]" ffi] [abstract [monad {"+" [do]}]] [control - ["." function] - ["." io {"+" [IO]} ("#\." functor)]] + ["[0]" function] + ["[0]" io {"+" [IO]} ("[1]\[0]" functor)]] [data - ["." product] + ["[0]" product] [collection - ["." array]]] + ["[0]" array]]] [type abstract]]]) (with_expansions [<jvm> (as_is (ffi.import: (java/util/concurrent/atomic/AtomicReference a) - ["#::." + ["[1]::[0]" (new [a]) (get [] a) (compareAndSet [a a] boolean)]))] diff --git a/stdlib/source/library/lux/control/concurrency/frp.lux b/stdlib/source/library/lux/control/concurrency/frp.lux index eab415358..1021c7e05 100644 --- a/stdlib/source/library/lux/control/concurrency/frp.lux +++ b/stdlib/source/library/lux/control/concurrency/frp.lux @@ -5,17 +5,17 @@ [equivalence {"+" [Equivalence]}] [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}]] [type {"+" [:sharing]} abstract]]] [// - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]} ("#\." functor)]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]} ("[1]\[0]" functor)]]) (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 8256f221b..3b0461579 100644 --- a/stdlib/source/library/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/library/lux/control/concurrency/semaphore.lux @@ -5,24 +5,24 @@ [monad {"+" [do]}]] [control [pipe {"+" [if>]}] - ["." io {"+" [IO]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." queue {"+" [Queue]}]]] + ["[0]" queue {"+" [Queue]}]]] [math [number ["n" nat] ["i" int]]] [type abstract - ["." refinement]]]] + ["[0]" refinement]]]] [// - ["." atom {"+" [Atom]}] - ["." async {"+" [Async Resolver]}]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [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 36508615e..c62540890 100644 --- a/stdlib/source/library/lux/control/concurrency/stm.lux +++ b/stdlib/source/library/lux/control/concurrency/stm.lux @@ -4,21 +4,21 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." io {"+" [IO io]}] - ["." maybe] - ["." try]] + ["[0]" io {"+" [IO io]}] + ["[0]" maybe] + ["[0]" try]] [data - ["." product] + ["[0]" product] [collection - ["." list]]] + ["[0]" list]]] [type abstract]]] [// - ["." atom {"+" [Atom atom]}] - ["." async {"+" [Async Resolver]}] - ["." frp {"+" [Channel Sink]}]]) + ["[0]" atom {"+" [Atom atom]}] + ["[0]" async {"+" [Async Resolver]}] + ["[0]" frp {"+" [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 5ad9c4265..b0571cc64 100644 --- a/stdlib/source/library/lux/control/concurrency/thread.lux +++ b/stdlib/source/library/lux/control/concurrency/thread.lux @@ -2,47 +2,47 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}]] [data - ["." text] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math [number ["n" nat] ["f" frac]]] [time - ["." instant]]]] + ["[0]" instant]]]] [// - ["." atom {"+" [Atom]}]]) + ["[0]" atom {"+" [Atom]}]]) (with_expansions [<jvm> (as_is (ffi.import: java/lang/Object) (ffi.import: java/lang/Runtime - ["#::." + ["[1]::[0]" ("static" getRuntime [] java/lang/Runtime) (availableProcessors [] int)]) (ffi.import: java/lang/Runnable) (ffi.import: java/util/concurrent/TimeUnit - ["#::." + ["[1]::[0]" ("enum" MILLISECONDS)]) (ffi.import: java/util/concurrent/Executor - ["#::." + ["[1]::[0]" (execute [java/lang/Runnable] "io" void)]) (ffi.import: (java/util/concurrent/ScheduledFuture a)) (ffi.import: java/util/concurrent/ScheduledThreadPoolExecutor - ["#::." + ["[1]::[0]" (new [int]) (schedule [java/lang/Runnable long java/util/concurrent/TimeUnit] "io" (java/util/concurrent/ScheduledFuture java/lang/Object))]))] (for {@.old (as_is <jvm>) @@ -53,7 +53,7 @@ @.python (ffi.import: threading/Timer - ["#::." + ["[1]::[0]" (new [ffi.Float ffi.Function]) (start [] "io" "?" Any)])} diff --git a/stdlib/source/library/lux/control/continuation.lux b/stdlib/source/library/lux/control/continuation.lux index 48b752ef5..013c849da 100644 --- a/stdlib/source/library/lux/control/continuation.lux +++ b/stdlib/source/library/lux/control/continuation.lux @@ -6,12 +6,12 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}]] [control - ["." function] + ["[0]" function] [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: .public (Cont i o) (-> (-> i o) o)) diff --git a/stdlib/source/library/lux/control/exception.lux b/stdlib/source/library/lux/control/exception.lux index 49daeec7e..ecf71dc49 100644 --- a/stdlib/source/library/lux/control/exception.lux +++ b/stdlib/source/library/lux/control/exception.lux @@ -1,28 +1,28 @@ (.module: [library [lux "*" - ["." macro] - ["." meta] + ["[0]" macro] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." code] + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" input] - ["." type "_" - ["|#_.|" variable]]]] + ["|[0]|" input] + ["[0]" type "_" + ["|[1]_[0]|" variable]]]] [math [number - ["n" nat ("#\." decimal)]]]]] + ["n" nat ("[1]\[0]" decimal)]]]]] [// ["//" try {"+" [Try]}]]) diff --git a/stdlib/source/library/lux/control/function/contract.lux b/stdlib/source/library/lux/control/function/contract.lux index b101cc43f..4b349c534 100644 --- a/stdlib/source/library/lux/control/function/contract.lux +++ b/stdlib/source/library/lux/control/function/contract.lux @@ -2,15 +2,15 @@ [library [lux "*" [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [text ["%" format {"+" [format]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["i" int]]]]]) diff --git a/stdlib/source/library/lux/control/function/memo.lux b/stdlib/source/library/lux/control/function/memo.lux index 6ed8b6576..8e99b18ab 100644 --- a/stdlib/source/library/lux/control/function/memo.lux +++ b/stdlib/source/library/lux/control/function/memo.lux @@ -7,13 +7,13 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." state {"+" [State]}]] + ["[0]" state {"+" [State]}]] [data - ["." product] + ["[0]" product] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." // "_" - ["#" mixin {"+" [Mixin Recursive]}]]) + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" // "_" + ["[1]" mixin {"+" [Mixin Recursive]}]]) (def: .public memoization (All (_ i o) diff --git a/stdlib/source/library/lux/control/function/mutual.lux b/stdlib/source/library/lux/control/function/mutual.lux index 7781fd3e5..159f037e3 100644 --- a/stdlib/source/library/lux/control/function/mutual.lux +++ b/stdlib/source/library/lux/control/function/mutual.lux @@ -1,28 +1,28 @@ (.module: [library [lux {"-" [Definition let def: macro]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] [dictionary - ["." plist {"+" [PList]}]]]] - ["." macro - ["." local] - ["." code] + ["[0]" plist {"+" [PList]}]]]] + ["[0]" macro + ["[0]" local] + ["[0]" code] [syntax {"+" [syntax:]} - ["." declaration {"+" [Declaration]}]]]]] - ["." //]) + ["[0]" declaration {"+" [Declaration]}]]]]] + ["[0]" //]) (type: Mutual (Record diff --git a/stdlib/source/library/lux/control/io.lux b/stdlib/source/library/lux/control/io.lux index d7aac7fed..8ff12b40b 100644 --- a/stdlib/source/library/lux/control/io.lux +++ b/stdlib/source/library/lux/control/io.lux @@ -7,12 +7,12 @@ [monad {"+" [Monad do]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." template]]]]) + ["[0]" template]]]]) (abstract: .public (IO a) {} diff --git a/stdlib/source/library/lux/control/lazy.lux b/stdlib/source/library/lux/control/lazy.lux index b4a3567d4..e38166d14 100644 --- a/stdlib/source/library/lux/control/lazy.lux +++ b/stdlib/source/library/lux/control/lazy.lux @@ -7,11 +7,11 @@ [monad {"+" [Monad do]}] [equivalence {"+" [Equivalence]}]] [control - ["." io] + ["[0]" io] [parser - ["<.>" code]] + ["<[0]>" code]] [concurrency - ["." atom]]] + ["[0]" atom]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}]] [type @@ -44,7 +44,7 @@ (with_identifiers [g!_] (in (list (` ((~! ..lazy') (function ((~ g!_) (~ g!_)) (~ expression)))))))) -(implementation: .public (equivalence (^open "\.")) +(implementation: .public (equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Lazy a)))) (def: (= left right) diff --git a/stdlib/source/library/lux/control/maybe.lux b/stdlib/source/library/lux/control/maybe.lux index 1131dbe49..036377285 100644 --- a/stdlib/source/library/lux/control/maybe.lux +++ b/stdlib/source/library/lux/control/maybe.lux @@ -6,10 +6,10 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]] [meta - ["." location]]]]) + ["[0]" location]]]]) ... (type: (Maybe a) ... #.None diff --git a/stdlib/source/library/lux/control/parser.lux b/stdlib/source/library/lux/control/parser.lux index 34a00fa6a..7b7c499aa 100644 --- a/stdlib/source/library/lux/control/parser.lux +++ b/stdlib/source/library/lux/control/parser.lux @@ -7,11 +7,11 @@ [monad {"+" [Monad do]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/control/parser/analysis.lux b/stdlib/source/library/lux/control/parser/analysis.lux index 0744391c2..9bbb6840b 100644 --- a/stdlib/source/library/lux/control/parser/analysis.lux +++ b/stdlib/source/library/lux/control/parser/analysis.lux @@ -4,24 +4,24 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." name] - ["." text + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i64] - ["." nat] - ["." int] - ["." rev] - ["." frac]]] + ["[0]" i64] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]] [tool [compiler [arity {"+" [Arity]}] @@ -30,7 +30,7 @@ [language [lux ["/" analysis {"+" [Variant Tuple Environment Analysis]}]]]]]]] - ["." //]) + ["[0]" //]) (def: (remaining_inputs asts) (-> (List Analysis) Text) diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux index 846f952d3..4304bbc02 100644 --- a/stdlib/source/library/lux/control/parser/binary.lux +++ b/stdlib/source/library/lux/control/parser/binary.lux @@ -6,25 +6,25 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data ["/" binary {"+" [Binary]}] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list] - ["." row {"+" [Row]}] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" row {"+" [Row]}] + ["[0]" set {"+" [Set]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." frac]]]]] - ["." // ("#\." monad)]) + ["[0]" frac]]]]] + ["[0]" // ("[1]\[0]" monad)]) (type: .public Offset Nat) diff --git a/stdlib/source/library/lux/control/parser/cli.lux b/stdlib/source/library/lux/control/parser/cli.lux index 4a7e4149e..c60b80d6a 100644 --- a/stdlib/source/library/lux/control/parser/cli.lux +++ b/stdlib/source/library/lux/control/parser/cli.lux @@ -4,11 +4,11 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]]]] - ["." //]) + ["[0]" //]) (type: .public (Parser a) (//.Parser (List Text) a)) diff --git a/stdlib/source/library/lux/control/parser/code.lux b/stdlib/source/library/lux/control/parser/code.lux index 2b8e7d799..f04dddc6c 100644 --- a/stdlib/source/library/lux/control/parser/code.lux +++ b/stdlib/source/library/lux/control/parser/code.lux @@ -2,24 +2,24 @@ [library [lux {"-" [nat int rev local not]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." bit] - ["." text ("#\." monoid)] - ["." name] + ["[0]" bit] + ["[0]" text ("[1]\[0]" monoid)] + ["[0]" name] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] - ["." //]) + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] + ["[0]" //]) (def: (un_paired pairs) (All (_ a) (-> (List [a a]) (List a))) diff --git a/stdlib/source/library/lux/control/parser/environment.lux b/stdlib/source/library/lux/control/parser/environment.lux index ad4d2c3c9..ab577eeb4 100644 --- a/stdlib/source/library/lux/control/parser/environment.lux +++ b/stdlib/source/library/lux/control/parser/environment.lux @@ -2,15 +2,15 @@ [library [lux "*" [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." //]) + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" //]) (type: .public Property Text) diff --git a/stdlib/source/library/lux/control/parser/json.lux b/stdlib/source/library/lux/control/parser/json.lux index 02b5c406a..114b49f3b 100644 --- a/stdlib/source/library/lux/control/parser/json.lux +++ b/stdlib/source/library/lux/control/parser/json.lux @@ -2,25 +2,25 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." text ("#\." equivalence monoid)] + ["[0]" bit] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor)] - ["." row] - ["." dictionary {"+" [Dictionary]}]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row] + ["[0]" dictionary {"+" [Dictionary]}]] [format ["/" json {"+" [JSON]}]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["." frac]]]]] - ["." // ("#\." functor)]) + ["[0]" frac]]]]] + ["[0]" // ("[1]\[0]" functor)]) (type: .public (Parser a) (//.Parser (List JSON) a)) diff --git a/stdlib/source/library/lux/control/parser/synthesis.lux b/stdlib/source/library/lux/control/parser/synthesis.lux index 224eee314..a4927b521 100644 --- a/stdlib/source/library/lux/control/parser/synthesis.lux +++ b/stdlib/source/library/lux/control/parser/synthesis.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit] - ["." name] - ["." text + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]]] [math [number ["n" nat] - ["." i64] - ["." frac]]] + ["[0]" i64] + ["[0]" frac]]] [tool [compiler [reference {"+" []} @@ -25,7 +25,7 @@ [lux [analysis {"+" [Variant Tuple Environment]}] ["/" synthesis {"+" [Synthesis Abstraction]}]]]]]]] - ["." //]) + ["[0]" //]) (exception: .public (cannot_parse {input (List Synthesis)}) (exception.report diff --git a/stdlib/source/library/lux/control/parser/text.lux b/stdlib/source/library/lux/control/parser/text.lux index 2d3e404d8..256d749bc 100644 --- a/stdlib/source/library/lux/control/parser/text.lux +++ b/stdlib/source/library/lux/control/parser/text.lux @@ -4,21 +4,21 @@ [abstract [monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["/" text {"+" [Char]} ("#\." monoid)] - ["." product] + ["/" text {"+" [Char]} ("[1]\[0]" monoid)] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [macro - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number - ["n" nat ("#\." decimal)]]]]] - ["." //]) + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" //]) (type: .public Offset Nat) diff --git a/stdlib/source/library/lux/control/parser/tree.lux b/stdlib/source/library/lux/control/parser/tree.lux index 4b8f9e2a3..7a28812ac 100644 --- a/stdlib/source/library/lux/control/parser/tree.lux +++ b/stdlib/source/library/lux/control/parser/tree.lux @@ -4,13 +4,13 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [collection [tree {"+" [Tree]} - ["." zipper {"+" [Zipper]}]]]]]] - ["." //]) + ["[0]" zipper {"+" [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 5724fc98a..437574acb 100644 --- a/stdlib/source/library/lux/control/parser/type.lux +++ b/stdlib/source/library/lux/control/parser/type.lux @@ -2,25 +2,25 @@ [library [lux {"-" [function local]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function]] [data - ["." text ("#\." monoid) + ["[0]" text ("[1]\[0]" monoid) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["n" nat ("#\." decimal)]]] - ["." type ("#\." equivalence) - ["." check]]]] - ["." //]) + ["n" nat ("[1]\[0]" decimal)]]] + ["[0]" type ("[1]\[0]" equivalence) + ["[0]" check]]]] + ["[0]" //]) (template: (|recursion_dummy|) [(#.Primitive "" #.End)]) diff --git a/stdlib/source/library/lux/control/parser/xml.lux b/stdlib/source/library/lux/control/parser/xml.lux index 66b5da36f..55d18cab2 100644 --- a/stdlib/source/library/lux/control/parser/xml.lux +++ b/stdlib/source/library/lux/control/parser/xml.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}]] [data - ["." name ("#\." equivalence codec)] - ["." text + ["[0]" name ("[1]\[0]" equivalence codec)] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." dictionary]] + ["[0]" list] + ["[0]" dictionary]] [format ["/" xml {"+" [Attribute Attrs Tag XML]}]]]]] - ["." //]) + ["[0]" //]) (type: .public (Parser a) (//.Parser [Attrs (List XML)] a)) diff --git a/stdlib/source/library/lux/control/pipe.lux b/stdlib/source/library/lux/control/pipe.lux index f8370f8b1..9c3c5ce36 100644 --- a/stdlib/source/library/lux/control/pipe.lux +++ b/stdlib/source/library/lux/control/pipe.lux @@ -4,16 +4,16 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." identity] + ["[0]" identity] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/control/reader.lux b/stdlib/source/library/lux/control/reader.lux index 91439facf..e7c59e57b 100644 --- a/stdlib/source/library/lux/control/reader.lux +++ b/stdlib/source/library/lux/control/reader.lux @@ -3,8 +3,8 @@ [lux {"-" [local]} [abstract [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]]]]) + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [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 79bf84c90..26dd017e8 100644 --- a/stdlib/source/library/lux/control/region.lux +++ b/stdlib/source/library/lux/control/region.lux @@ -4,16 +4,16 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix)]]]]] + ["[0]" list ("[1]\[0]" mix)]]]]] [// - ["." exception {"+" [Exception exception:]}]]) + ["[0]" exception {"+" [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 f220af759..a65e9fc2d 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -4,21 +4,21 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." functor) + ["[0]" io] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" functor) ["<c>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [time - ["." instant] - ["." date {"+" [Date]} ("#\." order)]] - ["." meta] + ["[0]" instant] + ["[0]" date {"+" [Date]} ("[1]\[0]" order)]] + ["[0]" meta] [macro - ["." code] - ["." template] + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]}]]]]) (exception: .public (must_remember {deadline Date} {today Date} {message Text} {focus (Maybe Code)}) diff --git a/stdlib/source/library/lux/control/security/capability.lux b/stdlib/source/library/lux/control/security/capability.lux index 7a05d848e..49b19e07f 100644 --- a/stdlib/source/library/lux/control/security/capability.lux +++ b/stdlib/source/library/lux/control/security/capability.lux @@ -4,25 +4,25 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] + ["[0]" io {"+" [IO]}] ["<>" parser ["<c>" code]] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] - ["." meta] - ["." macro - ["." code] + ["[0]" meta] + ["[0]" macro + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" export] - ["|.|" declaration] - ["|.|" annotations]]]]]) + ["|[0]|" export] + ["|[0]|" declaration] + ["|[0]|" annotations]]]]]) (abstract: .public (Capability brand input output) {} diff --git a/stdlib/source/library/lux/control/thread.lux b/stdlib/source/library/lux/control/thread.lux index 660be7bd1..c583a4709 100644 --- a/stdlib/source/library/lux/control/thread.lux +++ b/stdlib/source/library/lux/control/thread.lux @@ -7,10 +7,10 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}]] [control - ["." io {"+" [IO]}]] + ["[0]" io {"+" [IO]}]] [data [collection - ["." array {"+" [Array]}]]] + ["[0]" array {"+" [Array]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/control/try.lux b/stdlib/source/library/lux/control/try.lux index 1d3535ba2..16d58007c 100644 --- a/stdlib/source/library/lux/control/try.lux +++ b/stdlib/source/library/lux/control/try.lux @@ -4,10 +4,10 @@ [abstract [apply {"+" [Apply]}] [equivalence {"+" [Equivalence]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}]] [meta - ["." location]]]]) + ["[0]" location]]]]) (type: .public (Try a) (Variant @@ -84,7 +84,7 @@ (All (_ ! a) (-> (Monad !) (-> (! a) (! (Try a))))) (\ monad each (\ ..monad in))) -(implementation: .public (equivalence (^open "_\.")) +(implementation: .public (equivalence (^open "_\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Try a)))) (def: (= reference sample) diff --git a/stdlib/source/library/lux/control/writer.lux b/stdlib/source/library/lux/control/writer.lux index 74b0c997b..cabc9268c 100644 --- a/stdlib/source/library/lux/control/writer.lux +++ b/stdlib/source/library/lux/control/writer.lux @@ -5,8 +5,8 @@ [abstract [monoid {"+" [Monoid]}] [apply {"+" [Apply]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}]]]]) + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [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 2f56f33aa..de9481bc5 100644 --- a/stdlib/source/library/lux/data/binary.lux +++ b/stdlib/source/library/lux/data/binary.lux @@ -2,25 +2,25 @@ [library [lux {"-" [i64]} ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [monad {"+" [do]}] [equivalence {"+" [Equivalence]}] [monoid {"+" [Monoid]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." array]]] + ["[0]" array]]] [math [number {"+" [hex]} ["n" nat] ["f" frac] - ["." i64]]]]]) + ["[0]" i64]]]]]) (exception: .public (index_out_of_bounds {size Nat} {index Nat}) (exception.report @@ -39,11 +39,11 @@ (ffi.import: java/lang/Object) (ffi.import: java/lang/System - ["#::." + ["[1]::[0]" ("static" arraycopy [java/lang/Object int java/lang/Object int int] "try" void)]) (ffi.import: java/util/Arrays - ["#::." + ["[1]::[0]" ("static" copyOfRange [[byte] int int] [byte]) ("static" equals [[byte] [byte]] boolean)]) @@ -67,11 +67,11 @@ @.js (as_is (ffi.import: ArrayBuffer - ["#::." + ["[1]::[0]" (new [ffi.Number])]) (ffi.import: Uint8Array - ["#::." + ["[1]::[0]" (new [ArrayBuffer]) (length ffi.Number)]) diff --git a/stdlib/source/library/lux/data/bit.lux b/stdlib/source/library/lux/data/bit.lux index b0fd566db..b1926e164 100644 --- a/stdlib/source/library/lux/data/bit.lux +++ b/stdlib/source/library/lux/data/bit.lux @@ -7,7 +7,7 @@ [hash {"+" [Hash]}] [codec {"+" [Codec]}]] [control - ["." function]]]]) + ["[0]" function]]]]) (template [<zero> <one>] [(def: .public <zero> Bit #0) diff --git a/stdlib/source/library/lux/data/collection/array.lux b/stdlib/source/library/lux/data/collection/array.lux index 0574b2fe7..3c04a7d7f 100644 --- a/stdlib/source/library/lux/data/collection/array.lux +++ b/stdlib/source/library/lux/data/collection/array.lux @@ -9,11 +9,11 @@ [mix {"+" [Mix]}] [predicate {"+" [Predicate]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]]]]) @@ -314,7 +314,7 @@ #.None (list|-default array))) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Array a)))) (def: (= xs ys) diff --git a/stdlib/source/library/lux/data/collection/bits.lux b/stdlib/source/library/lux/data/collection/bits.lux index b218e57bf..8bfe7f2f9 100644 --- a/stdlib/source/library/lux/data/collection/bits.lux +++ b/stdlib/source/library/lux/data/collection/bits.lux @@ -5,14 +5,14 @@ [equivalence {"+" [Equivalence]}]] [control pipe - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." array {"+" [Array]} ("#\." mix)]]] + ["[0]" array {"+" [Array]} ("[1]\[0]" mix)]]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: .public Chunk I64) diff --git a/stdlib/source/library/lux/data/collection/dictionary.lux b/stdlib/source/library/lux/data/collection/dictionary.lux index 1418b56d6..3d7e785f3 100644 --- a/stdlib/source/library/lux/data/collection/dictionary.lux +++ b/stdlib/source/library/lux/data/collection/dictionary.lux @@ -6,18 +6,18 @@ [equivalence {"+" [Equivalence]}] [functor {"+" [Functor]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix functor monoid)] - ["." array {"+" [Array]} ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" mix functor monoid)] + ["[0]" array {"+" [Array]} ("[1]\[0]" functor mix)]]] [math - ["." number + ["[0]" number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) ... This implementation of Hash Array Mapped Trie (HAMT) is based on ... Clojure's PersistentHashMap implementation. @@ -687,7 +687,7 @@ (empty key_hash) keys))) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v)))) (def: (= reference subject) diff --git a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux index a18f5b7ce..8407703a0 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/ordered.lux @@ -4,13 +4,13 @@ [abstract equivalence [monad {"+" [Monad do]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." maybe]] + ["[0]" maybe]] [data ["p" product] [collection - ["." list ("#\." monoid mix)]]] + ["[0]" list ("[1]\[0]" monoid mix)]]] [math [number ["n" nat]]]]]) @@ -58,7 +58,7 @@ ... TODO: Must improve it as soon as bug is fixed. (def: .public (value key dict) (All (_ k v) (-> k (Dictionary k v) (Maybe v))) - (let [... (^open "_\.") (value@ #&order dict) + (let [... (^open "_\[0]") (value@ #&order dict) ] (loop [node (value@ #root dict)] (case node @@ -83,7 +83,7 @@ ... TODO: Must improve it as soon as bug is fixed. (def: .public (key? dict key) (All (_ k v) (-> (Dictionary k v) k Bit)) - (let [... (^open "_\.") (value@ #&order dict) + (let [... (^open "_\[0]") (value@ #&order dict) ] (loop [node (value@ #root dict)] (case node @@ -249,7 +249,7 @@ (def: .public (has key value dict) (All (_ k v) (-> k v (Dictionary k v) (Dictionary k v))) - (let [(^open "_\.") (value@ #&order dict) + (let [(^open "_\[0]") (value@ #&order dict) root' (loop [?root (value@ #root dict)] (case ?root #.None @@ -472,7 +472,7 @@ (def: .public (lacks key dict) (All (_ k v) (-> k (Dictionary k v) (Dictionary k v))) - (let [(^open "_\.") (value@ #&order dict) + (let [(^open "_\[0]") (value@ #&order dict) [?root found?] (loop [?root (value@ #root dict)] (case ?root #.None @@ -560,11 +560,11 @@ [values v (value@ #value node')] ) -(implementation: .public (equivalence (^open ",\.")) +(implementation: .public (equivalence (^open ",\[0]")) (All (_ k v) (-> (Equivalence v) (Equivalence (Dictionary k v)))) (def: (= reference sample) - (let [(^open "/\.") (value@ #&order reference)] + (let [(^open "/\[0]") (value@ #&order reference)] (loop [entriesR (entries reference) entriesS (entries sample)] (case [entriesR entriesS] diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux index d26859f71..9bd4665df 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/list.lux b/stdlib/source/library/lux/data/collection/list.lux index b4aa38cf7..ead69db05 100644 --- a/stdlib/source/library/lux/data/collection/list.lux +++ b/stdlib/source/library/lux/data/collection/list.lux @@ -9,12 +9,12 @@ [hash {"+" [Hash]}] [mix {"+" [Mix]}] [predicate {"+" [Predicate]}] - ["." functor {"+" [Functor]}] - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" functor {"+" [Functor]}] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [data - ["." bit] - ["." product]] + ["[0]" bit] + ["[0]" product]] [math [number ["n" nat]]]]]) @@ -320,7 +320,7 @@ (#.Item x xs') (#.Item x (composite xs' ys))))) -(open: "." ..monoid) +(open: "[0]" ..monoid) (implementation: .public functor (Functor List) @@ -333,7 +333,7 @@ (#.Item a ma') (#.Item (f a) (each f ma'))))) -(open: "." ..functor) +(open: "[0]" ..functor) (implementation: .public apply (Apply List) @@ -445,7 +445,7 @@ (case tokens (^ (list [_ (#.Nat num_lists)])) (if (n.> 0 num_lists) - (let [(^open ".") ..functor + (let [(^open "[0]") ..functor indices (..indices num_lists) type_vars (: (List Code) (each (|>> nat\encoded identifier$) indices)) zipped_type (` (.All ((~ (identifier$ "0_")) (~+ type_vars)) @@ -485,7 +485,7 @@ (case tokens (^ (list [_ (#.Nat num_lists)])) (if (n.> 0 num_lists) - (let [(^open ".") ..functor + (let [(^open "[0]") ..functor indices (..indices num_lists) g!return_type (identifier$ "0return_type0") g!func (identifier$ "0func0") diff --git a/stdlib/source/library/lux/data/collection/queue.lux b/stdlib/source/library/lux/data/collection/queue.lux index 12bb5b68e..3e3bd9e87 100644 --- a/stdlib/source/library/lux/data/collection/queue.lux +++ b/stdlib/source/library/lux/data/collection/queue.lux @@ -6,7 +6,7 @@ [functor {"+" [Functor]}]] [data [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/queue/priority.lux b/stdlib/source/library/lux/data/collection/queue/priority.lux index 7d609c439..f6fc98d98 100644 --- a/stdlib/source/library/lux/data/collection/queue/priority.lux +++ b/stdlib/source/library/lux/data/collection/queue/priority.lux @@ -5,14 +5,14 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." tree "_" - ["#" finger {"+" [Tree]}]]]] + ["[0]" tree "_" + ["[1]" finger {"+" [Tree]}]]]] [math [number - ["n" nat ("#\." interval)]]] + ["n" nat ("[1]\[0]" interval)]]] [type {"+" [:by_example]} [abstract {"+" [abstract: :abstraction :representation]}]]]]) diff --git a/stdlib/source/library/lux/data/collection/row.lux b/stdlib/source/library/lux/data/collection/row.lux index 1b2b0764d..438e1a408 100644 --- a/stdlib/source/library/lux/data/collection/row.lux +++ b/stdlib/source/library/lux/data/collection/row.lux @@ -14,23 +14,23 @@ [mix {"+" [Mix]}] [predicate {"+" [Predicate]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix functor monoid)] - ["." array {"+" [Array]} ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" mix functor monoid)] + ["[0]" array {"+" [Array]} ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: (Node a) (Variant @@ -386,7 +386,7 @@ (def: (= v1 v2) (and (n.= (value@ #size v1) (value@ #size v2)) - (let [(^open "node\.") (node_equivalence Equivalence<a>)] + (let [(^open "node\[0]") (node_equivalence Equivalence<a>)] (and (node\= (#Base (value@ #tail v1)) (#Base (value@ #tail v2))) (node\= (#Hierarchy (value@ #root v1)) @@ -409,7 +409,7 @@ (Mix Row) (def: (mix f init xs) - (let [(^open ".") node_mix] + (let [(^open "[0]") node_mix] (mix f (mix f init @@ -450,9 +450,9 @@ (def: &functor ..functor) (def: (on fa ff) - (let [(^open ".") ..functor - (^open ".") ..mix - (^open ".") ..monoid + (let [(^open "[0]") ..functor + (^open "[0]") ..mix + (^open "[0]") ..monoid results (each (function (_ f) (each f fa)) ff)] (mix composite identity results)))) @@ -466,8 +466,8 @@ (|>> row)) (def: conjoint - (let [(^open ".") ..mix - (^open ".") ..monoid] + (let [(^open "[0]") ..mix + (^open "[0]") ..monoid] (mix (function (_ post pre) (composite pre post)) identity)))) (def: .public reversed diff --git a/stdlib/source/library/lux/data/collection/sequence.lux b/stdlib/source/library/lux/data/collection/sequence.lux index 35b9a1102..a641721c8 100644 --- a/stdlib/source/library/lux/data/collection/sequence.lux +++ b/stdlib/source/library/lux/data/collection/sequence.lux @@ -7,14 +7,14 @@ [control ["//" continuation {"+" [Cont]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [data - ["." bit] + ["[0]" bit] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/data/collection/set.lux b/stdlib/source/library/lux/data/collection/set.lux index 32fabd6b7..585ee60eb 100644 --- a/stdlib/source/library/lux/data/collection/set.lux +++ b/stdlib/source/library/lux/data/collection/set.lux @@ -8,12 +8,12 @@ [monoid {"+" [Monoid]}]] [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#" dictionary {"+" [Dictionary]}]]) + ["[0]" // "_" + ["[1]" dictionary {"+" [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 abc0836c5..f3df37d57 100644 --- a/stdlib/source/library/lux/data/collection/set/multi.lux +++ b/stdlib/source/library/lux/data/collection/set/multi.lux @@ -6,17 +6,17 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [control - ["." function] - ["." maybe]] + ["[0]" function] + ["[0]" maybe]] [math [number ["n" nat]]] [type [abstract {"+" [abstract: :abstraction :representation ^:representation]}]]]] - ["." // + ["[0]" // [// - ["." list ("#\." mix monoid)] - ["." dictionary {"+" [Dictionary]}]]]) + ["[0]" list ("[1]\[0]" mix monoid)] + ["[0]" dictionary {"+" [Dictionary]}]]]) (abstract: .public (Set a) {} diff --git a/stdlib/source/library/lux/data/collection/set/ordered.lux b/stdlib/source/library/lux/data/collection/set/ordered.lux index dc8a825e6..91edd4642 100644 --- a/stdlib/source/library/lux/data/collection/set/ordered.lux +++ b/stdlib/source/library/lux/data/collection/set/ordered.lux @@ -6,7 +6,7 @@ [order {"+" [Order]}]] [data [collection - ["." list ("#\." mix)] + ["[0]" list ("[1]\[0]" mix)] [dictionary ["/" ordered]]]] [type diff --git a/stdlib/source/library/lux/data/collection/tree.lux b/stdlib/source/library/lux/data/collection/tree.lux index 2216a7b11..b1d158c65 100644 --- a/stdlib/source/library/lux/data/collection/tree.lux +++ b/stdlib/source/library/lux/data/collection/tree.lux @@ -8,13 +8,13 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." monad mix)]]] + ["[0]" list ("[1]\[0]" monad mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: .public (Tree a) (Record diff --git a/stdlib/source/library/lux/data/collection/tree/finger.lux b/stdlib/source/library/lux/data/collection/tree/finger.lux index 40a70ac2d..998ccde41 100644 --- a/stdlib/source/library/lux/data/collection/tree/finger.lux +++ b/stdlib/source/library/lux/data/collection/tree/finger.lux @@ -3,10 +3,10 @@ [lux "*" [abstract [predicate {"+" [Predicate]}] - ["." monoid {"+" [Monoid]}]] + ["[0]" monoid {"+" [Monoid]}]] [data [collection - ["." list ("#\." monoid)]]] + ["[0]" list ("[1]\[0]" monoid)]]] [type [abstract {"+" [abstract: :abstraction :representation]}]]]]) @@ -88,7 +88,7 @@ (All (_ @ t v) (-> (Predicate t) (Tree @ t v) (Maybe v))) (let [[monoid tag root] (:representation tree)] (if (predicate tag) - (let [(^open "tag//.") monoid] + (let [(^open "tag//[0]") monoid] (loop [_tag tag//identity _node root] (case _node diff --git a/stdlib/source/library/lux/data/collection/tree/zipper.lux b/stdlib/source/library/lux/data/collection/tree/zipper.lux index 613e3aeed..36b162843 100644 --- a/stdlib/source/library/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/library/lux/data/collection/tree/zipper.lux @@ -8,14 +8,14 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]]]] - ["." // {"+" [Tree]} ("#\." functor)]) + ["[0]" list ("[1]\[0]" functor monoid)]]]]] + ["[0]" // {"+" [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 52b4cfac0..82a44b4cb 100644 --- a/stdlib/source/library/lux/data/color.lux +++ b/stdlib/source/library/lux/data/color.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}] [monoid {"+" [Monoid]}] - ["." hash {"+" [Hash]}]] + ["[0]" hash {"+" [Hash]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list ("#\." functor)]]] - ["." math + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" math [number ["n" nat] ["f" frac] - ["." int] - ["." rev ("#\." interval)] - ["." i64]]] + ["[0]" int] + ["[0]" rev ("[1]\[0]" interval)] + ["[0]" i64]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/color/named.lux b/stdlib/source/library/lux/data/color/named.lux index b2d26139a..822708ccc 100644 --- a/stdlib/source/library/lux/data/color/named.lux +++ b/stdlib/source/library/lux/data/color/named.lux @@ -3,7 +3,7 @@ [lux "*" [math [number {"+" [hex]}]]]] - ["." // {"+" [Color]}]) + ["[0]" // {"+" [Color]}]) (template [<red> <green> <blue> <name>] [(`` (def: .public <name> diff --git a/stdlib/source/library/lux/data/format/binary.lux b/stdlib/source/library/lux/data/format/binary.lux index 71aeb6fc6..3ee903853 100644 --- a/stdlib/source/library/lux/data/format/binary.lux +++ b/stdlib/source/library/lux/data/format/binary.lux @@ -7,26 +7,26 @@ [equivalence {"+" [Equivalence]}]] [control [pipe {"+" [case>]}] - ["." function] - ["." try {"+" [Try]}] - ["<>" parser ("#\." monad) + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["<>" parser ("[1]\[0]" monad) ["/" binary {"+" [Offset Size Parser]}]]] [data - ["." product] - ["." binary {"+" [Binary]}] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list] - ["." row {"+" [Row]} ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] - ["." frac]]]]]) + ["[0]" frac]]]]]) (def: mask (-> Size (I64 Any)) @@ -185,7 +185,7 @@ value (if (n.= original_count capped_count) value (|> value row.list (list.first capped_count) row.of_list)) - (^open "specification\.") ..monoid + (^open "specification\[0]") ..monoid [size mutation] (|> value (row\each valueW) (\ row.mix mix diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux index 7fd5e28d9..8f0cc2f06 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/data/format/css.lux @@ -2,25 +2,25 @@ [library [lux {"-" [and]} [control - ["." maybe]] + ["[0]" maybe]] [data [number - ["." nat]] - ["." text + ["[0]" nat]] + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]] + ["[0]" encoding {"+" [Encoding]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [world [net {"+" [URL]}]]]] - ["." / "_" - ["#." selector {"+" [Selector Combinator]}] - ["#." value {"+" [Value Animation Percentage]}] - ["#." font {"+" [Font]}] - ["#." style {"+" [Style]}] - ["#." query {"+" [Query]}]]) + ["[0]" / "_" + ["[1][0]" selector {"+" [Selector Combinator]}] + ["[1][0]" value {"+" [Value Animation Percentage]}] + ["[1][0]" font {"+" [Font]}] + ["[1][0]" style {"+" [Style]}] + ["[1][0]" query {"+" [Query]}]]) (abstract: .public Common {} Any) (abstract: .public Special {} Any) diff --git a/stdlib/source/library/lux/data/format/css/font.lux b/stdlib/source/library/lux/data/format/css/font.lux index 21f983a86..abfa332d1 100644 --- a/stdlib/source/library/lux/data/format/css/font.lux +++ b/stdlib/source/library/lux/data/format/css/font.lux @@ -6,12 +6,12 @@ [control [parser ["s" code]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}]] [world [net {"+" [URL]}]]]] - ["." // "_" - ["#." value {"+" [Value Font_Stretch Font_Style Font_Weight]}]]) + ["[0]" // "_" + ["[1][0]" value {"+" [Value Font_Stretch Font_Style Font_Weight]}]]) (type: .public Unicode_Range (Record diff --git a/stdlib/source/library/lux/data/format/css/property.lux b/stdlib/source/library/lux/data/format/css/property.lux index 0f0553b77..19b11209c 100644 --- a/stdlib/source/library/lux/data/format/css/property.lux +++ b/stdlib/source/library/lux/data/format/css/property.lux @@ -7,8 +7,8 @@ [type abstract] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]]]] [// [value {"+" [All diff --git a/stdlib/source/library/lux/data/format/css/query.lux b/stdlib/source/library/lux/data/format/css/query.lux index e48c1716c..adaed39ab 100644 --- a/stdlib/source/library/lux/data/format/css/query.lux +++ b/stdlib/source/library/lux/data/format/css/query.lux @@ -8,18 +8,18 @@ [text ["%" format {"+" [format]}]]] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]] [type abstract]]] - ["." // "_" - ["#." 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]}]]) + ["[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]}]]) (syntax: (text_identifier [identifier s.text]) (in (list (code.local_identifier (text.replaced "-" "_" identifier))))) diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index f73ddcd9c..c2742f93a 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -2,15 +2,15 @@ [library [lux {"-" [or and for same? not]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [number ["i" int]]] [type abstract] [macro - ["." template]] - ["." locale {"+" [Locale]}]]]) + ["[0]" template]] + ["[0]" locale {"+" [Locale]}]]]) (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 fa13ff2e1..8fe761893 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/data/format/css/style.lux @@ -6,9 +6,9 @@ ["%" format {"+" [format]}]]] [type abstract]]] - ["." // "_" - ["#." value {"+" [Value]}] - ["#." property {"+" [Property]}]]) + ["[0]" // "_" + ["[1][0]" value {"+" [Value]}] + ["[1][0]" property {"+" [Property]}]]) (abstract: .public Style {#.doc "The style associated with a CSS selector."} diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 037bec265..9569c445b 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -2,26 +2,26 @@ [library [lux {"-" [All Cursor and static false true]} [control - ["." maybe] + ["[0]" maybe] [parser ["s" code]]] [data - ["." color] - ["." product] + ["[0]" color] + ["[0]" product] [number ["n" nat] ["i" int] ["r" rev] ["f" frac]] - ["." text + ["[0]" text ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro - ["." template] - ["." code] + ["[0]" template] + ["[0]" code] [syntax {"+" [syntax:]}]] [world [net {"+" [URL]}]]]] diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux index c58187017..6b662a38d 100644 --- a/stdlib/source/library/lux/data/format/html.lux +++ b/stdlib/source/library/lux/data/format/html.lux @@ -2,27 +2,27 @@ [library [lux {"-" [Meta Source comment and]} [control - ["." function] - ["." maybe ("#\." functor)]] + ["[0]" function] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [host - ["." js]] + ["[0]" js]] [macro - ["." template]] + ["[0]" template]] [world [net {"+" [URL]}]]]] [// [css - ["." selector] - ["." style {"+" [Style]}]] - ["." xml {"+" [XML]}]]) + ["[0]" selector] + ["[0]" style {"+" [Style]}]] + ["[0]" xml {"+" [XML]}]]) (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 5a261ecde..a7f22c7c0 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -1,34 +1,34 @@ (.module: [library [lux "*" - ["." meta {"+" [monad]}] + ["[0]" meta {"+" [monad]}] [abstract [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." bit] - ["." product] - ["." text ("#\." equivalence monoid)] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." mix functor)] - ["." row {"+" [Row row]} ("#\." monad)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" row {"+" [Row row]} ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] - ["f" frac ("#\." decimal)]]]]]) + ["f" frac ("[1]\[0]" decimal)]]]]]) (template [<name> <type>] [(type: .public <name> @@ -68,7 +68,7 @@ (|>> (dictionary.of_list text.hash) #..Object)) (syntax: .public (json [token <code>.any]) - (let [(^open ".") ..monad + (let [(^open "[0]") ..monad wrapper (function (_ x) (` (..json (~ x))))] (case token (^template [<ast_tag> <ctor> <json_tag>] diff --git a/stdlib/source/library/lux/data/format/markdown.lux b/stdlib/source/library/lux/data/format/markdown.lux index c2dd1778e..da6a5d7c6 100644 --- a/stdlib/source/library/lux/data/format/markdown.lux +++ b/stdlib/source/library/lux/data/format/markdown.lux @@ -2,10 +2,10 @@ [library [lux {"-" [and]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [world diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux index cbe8c38ea..bb8228146 100644 --- a/stdlib/source/library/lux/data/format/tar.lux +++ b/stdlib/source/library/lux/data/format/tar.lux @@ -5,31 +5,31 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data - ["." product] - ["." binary {"+" [Binary]}] - ["." text {"+" [Char]} + ["[0]" product] + ["[0]" binary {"+" [Binary]}] + ["[0]" text {"+" [Char]} ["%" format {"+" [format]}] [encoding - ["." utf8]]] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]" utf8]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." list ("#\." mix)] - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [math - ["." number + ["[0]" number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [time - ["." instant {"+" [Instant]}] - ["." duration]] + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]] [world - ["." file]] + ["[0]" file]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/format/xml.lux b/stdlib/source/library/lux/data/format/xml.lux index 1cb7ecce4..5131090ec 100644 --- a/stdlib/source/library/lux/data/format/xml.lux +++ b/stdlib/source/library/lux/data/format/xml.lux @@ -7,19 +7,19 @@ [codec {"+" [Codec]}]] [control [try {"+" [Try]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] - ["." name ("#\." equivalence codec)] - ["." text ("#\." equivalence monoid)] + ["[0]" product] + ["[0]" name ("[1]\[0]" equivalence codec)] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat] - ["." int]]]]]) + ["[0]" int]]]]]) (type: .public Tag Name) diff --git a/stdlib/source/library/lux/data/identity.lux b/stdlib/source/library/lux/data/identity.lux index 68af3d52a..f37f94b99 100644 --- a/stdlib/source/library/lux/data/identity.lux +++ b/stdlib/source/library/lux/data/identity.lux @@ -7,7 +7,7 @@ [monad {"+" [Monad]}] [comonad {"+" [CoMonad]}]] [control - ["." function]]]]) + ["[0]" function]]]]) (type: .public (Identity a) a) diff --git a/stdlib/source/library/lux/data/name.lux b/stdlib/source/library/lux/data/name.lux index 7235c0a5c..64d1f19ff 100644 --- a/stdlib/source/library/lux/data/name.lux +++ b/stdlib/source/library/lux/data/name.lux @@ -7,8 +7,8 @@ [order {"+" [Order]}] [codec {"+" [Codec]}]] [data - ["." text ("#\." equivalence monoid)] - ["." product]]]]) + ["[0]" text ("[1]\[0]" equivalence monoid)] + ["[0]" product]]]]) ... (type: Name ... [Text Text]) diff --git a/stdlib/source/library/lux/data/text.lux b/stdlib/source/library/lux/data/text.lux index e553d69b1..aadcb9dbe 100644 --- a/stdlib/source/library/lux/data/text.lux +++ b/stdlib/source/library/lux/data/text.lux @@ -10,14 +10,14 @@ [monad {"+" [do]}] [codec {"+" [Codec]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math [number ["n" nat] - ["." i64]]]]]) + ["[0]" i64]]]]]) (type: .public Char Nat) @@ -282,7 +282,7 @@ (def: .public together (-> (List Text) Text) - (let [(^open ".") ..monoid] + (let [(^open "[0]") ..monoid] (|>> list.reversed (list\mix composite identity)))) diff --git a/stdlib/source/library/lux/data/text/buffer.lux b/stdlib/source/library/lux/data/text/buffer.lux index a9c3c7a41..828a4772e 100644 --- a/stdlib/source/library/lux/data/text/buffer.lux +++ b/stdlib/source/library/lux/data/text/buffer.lux @@ -2,42 +2,42 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." array] - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" array] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [math [number ["n" nat]]] [type abstract]]] - ["." //]) + ["[0]" //]) (with_expansions [<jvm> (as_is (import: java/lang/CharSequence) (import: java/lang/Appendable - ["#::." + ["[1]::[0]" (append [java/lang/CharSequence] java/lang/Appendable)]) (import: java/lang/String - ["#::." + ["[1]::[0]" (new [int]) (toString [] java/lang/String)]) (import: java/lang/StringBuilder - ["#::." + ["[1]::[0]" (new [int]) (toString [] java/lang/String)]))] (`` (for {@.old (as_is <jvm>) @.jvm (as_is <jvm>) @.js (as_is (import: (JS_Array a) - ["#::." + ["[1]::[0]" (push [a] a) (join [Text] Text)])) @.lua (as_is (import: (table/concat [(array.Array Text) Text] Text)) diff --git a/stdlib/source/library/lux/data/text/encoding.lux b/stdlib/source/library/lux/data/text/encoding.lux index 3e139fde1..952c285f0 100644 --- a/stdlib/source/library/lux/data/text/encoding.lux +++ b/stdlib/source/library/lux/data/text/encoding.lux @@ -2,7 +2,7 @@ [library [lux "*" [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/data/text/encoding/utf8.lux b/stdlib/source/library/lux/data/text/encoding/utf8.lux index f95ce62c3..19867bae4 100644 --- a/stdlib/source/library/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/library/lux/data/text/encoding/utf8.lux @@ -2,17 +2,17 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." binary {"+" [Binary]}]]]] - ["." //]) + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" //]) (with_expansions [<jvm> (as_is (ffi.import: java/lang/String - ["#::." + ["[1]::[0]" (new [[byte] java/lang/String]) (getBytes [java/lang/String] [byte])]))] (for {@.old (as_is <jvm>) @@ -23,31 +23,31 @@ ... On Node (ffi.import: Buffer - ["#::." + ["[1]::[0]" ("static" from "as" from|encoded [ffi.String ffi.String] Buffer) ("static" from "as" from|decoded [Uint8Array] Buffer) (toString [ffi.String] ffi.String)]) ... On the browser (ffi.import: TextEncoder - ["#::." + ["[1]::[0]" (new [ffi.String]) (encode [ffi.String] Uint8Array)]) (ffi.import: TextDecoder - ["#::." + ["[1]::[0]" (new [ffi.String]) (decode [Uint8Array] ffi.String)])) @.ruby (as_is (ffi.import: String "as" RubyString - ["#::." + ["[1]::[0]" (encode [Text] RubyString) (force_encoding [Text] Text) (bytes [] Binary)]) (ffi.import: Array "as" RubyArray - ["#::." + ["[1]::[0]" (pack [Text] RubyString)])) @.php diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux index 2dcbbbece..de20d1ee1 100644 --- a/stdlib/source/library/lux/data/text/escape.lux +++ b/stdlib/source/library/lux/data/text/escape.lux @@ -1,22 +1,22 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [math [number {"+" [hex]} ["n" nat]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] - ["." // {"+" [Char]} + ["[0]" code]]]] + ["[0]" // {"+" [Char]} ["%" format {"+" [format]}]]) (def: sigil "\") diff --git a/stdlib/source/library/lux/data/text/format.lux b/stdlib/source/library/lux/data/text/format.lux index d79aed559..759ccb847 100644 --- a/stdlib/source/library/lux/data/text/format.lux +++ b/stdlib/source/library/lux/data/text/format.lux @@ -4,40 +4,40 @@ [abstract [monad {"+" [do]}] [functor - ["." contravariant]]] + ["[0]" contravariant]]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit] - ["." name] - ["." text] + ["[0]" bit] + ["[0]" name] + ["[0]" text] [format - ["." xml] - ["." json]] + ["[0]" xml] + ["[0]" json]] [collection - ["." list ("#\." monad)]]] - ["." time - ["." instant] - ["." duration] - ["." date] - ["." day] - ["." month]] + ["[0]" list ("[1]\[0]" monad)]]] + ["[0]" time + ["[0]" instant] + ["[0]" duration] + ["[0]" date] + ["[0]" day] + ["[0]" month]] [math - ["." modular] + ["[0]" modular] [number - ["." nat] - ["." int] - ["." rev] - ["." frac] - ["." ratio]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac] + ["[0]" ratio]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [meta - ["." location]] - ["." type]]]) + ["[0]" location]] + ["[0]" type]]]) (type: .public (Format a) (-> a Text)) diff --git a/stdlib/source/library/lux/data/text/regex.lux b/stdlib/source/library/lux/data/text/regex.lux index 5fa4e399d..714a84445 100644 --- a/stdlib/source/library/lux/data/text/regex.lux +++ b/stdlib/source/library/lux/data/text/regex.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract monad] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix monad)]]] + ["[0]" list ("[1]\[0]" mix monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["n" nat ("#\." decimal)]]]]] - ["." // + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" // ["%" format {"+" [format]}]]) (def: regex_char^ diff --git a/stdlib/source/library/lux/data/text/unicode/block.lux b/stdlib/source/library/lux/data/text/unicode/block.lux index f001fe99b..7d0bfca33 100644 --- a/stdlib/source/library/lux/data/text/unicode/block.lux +++ b/stdlib/source/library/lux/data/text/unicode/block.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] [monoid {"+" [Monoid]}] - ["." interval {"+" [Interval]}]] + ["[0]" interval {"+" [Interval]}]] [math [number {"+" [hex]} - ["n" nat ("#\." interval)] - ["." i64]]] + ["n" nat ("[1]\[0]" interval)] + ["[0]" i64]]] [type abstract]]] [/// {"+" [Char]}]) diff --git a/stdlib/source/library/lux/data/text/unicode/set.lux b/stdlib/source/library/lux/data/text/unicode/set.lux index fe2f5d6fe..bab5bf9ae 100644 --- a/stdlib/source/library/lux/data/text/unicode/set.lux +++ b/stdlib/source/library/lux/data/text/unicode/set.lux @@ -5,16 +5,16 @@ [equivalence {"+" [Equivalence]}]] [data [collection - ["." list ("#\." mix functor)] - ["." set ("#\." equivalence)] - ["." tree "_" - ["#" finger {"+" [Tree]}]]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" set ("[1]\[0]" equivalence)] + ["[0]" tree "_" + ["[1]" finger {"+" [Tree]}]]]] [type {"+" [:by_example]} abstract]]] - ["." / "_" - ["/#" // "_" + ["[0]" / "_" + ["/[1]" // "_" [// {"+" [Char]}] - ["#." block {"+" [Block]}]]]) + ["[1][0]" block {"+" [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 9d5698bbc..156497e43 100644 --- a/stdlib/source/library/lux/data/trace.lux +++ b/stdlib/source/library/lux/data/trace.lux @@ -2,7 +2,7 @@ [library [lux "*" [abstract - ["." monoid {"+" [Monoid]}] + ["[0]" monoid {"+" [Monoid]}] [functor {"+" [Functor]}] comonad] function]]) diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index ef3bcdf57..ffda8f9fe 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -2,33 +2,33 @@ [library [lux {"-" [type private]} ["@" target] - ["." type] - ["." ffi {"+" [import:]}] - ["." meta] + ["[0]" type] + ["[0]" ffi {"+" [import:]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [new>]}] - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" type {"+" [Parser]}] - ["<.>" code]]] + ["<[0]>" type {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [Format]}]] [format [xml {"+" [XML]}] - ["." json]] + ["[0]" json]] [collection - ["." array] - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" array] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [macro - ["." template] - ["." syntax {"+" [syntax:]}] - ["." code]] + ["[0]" template] + ["[0]" syntax {"+" [syntax:]}] + ["[0]" code]] [math [number [ratio {"+" [Ratio]}] @@ -44,25 +44,25 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getCanonicalName [] java/lang/String)]) (import: java/lang/Object - ["#::." + ["[1]::[0]" (new []) (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" (longValue [] long)]) (import: java/lang/Long - ["#::." + ["[1]::[0]" (intValue [] int)]) (import: java/lang/Number - ["#::." + ["[1]::[0]" (intValue [] int) (longValue [] long) (doubleValue [] double)]))] @@ -71,10 +71,10 @@ @.js (as_is (import: JSON - ["#::." + ["[1]::[0]" ("static" stringify [.Any] ffi.String)]) (import: Array - ["#::." + ["[1]::[0]" ("static" isArray [.Any] ffi.Boolean)])) @.python @@ -89,14 +89,14 @@ (import: (tostring [.Any] ffi.String)) (import: math - ["#::." + ["[1]::[0]" ("static" type [.Any] "?" ffi.String)])) @.ruby (as_is (import: Class) (import: Object - ["#::." + ["[1]::[0]" (class [] Class) (to_s [] ffi.String)])) diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux index 2985309ae..64df69b6d 100644 --- a/stdlib/source/library/lux/documentation.lux +++ b/stdlib/source/library/lux/documentation.lux @@ -1,30 +1,30 @@ (.module: [library [lux {"-" [Definition Module type]} - ["." meta] - ["." type ("#\." equivalence)] + ["[0]" meta] + ["[0]" type ("[1]\[0]" equivalence)] [abstract [monad {"+" [do]}] - ["." enum]] + ["[0]" enum]] [control - ["." maybe ("#\." functor)] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text {"+" [\n]} ("#\." order) + ["[0]" product] + ["[0]" text {"+" [\n]} ("[1]\[0]" order) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad mix monoid)] - ["." set {"+" [Set]}] - ["." sequence {"+" [Sequence]}]] + ["[0]" list ("[1]\[0]" monad mix monoid)] + ["[0]" set {"+" [Set]}] + ["[0]" sequence {"+" [Sequence]}]] [format ["md" markdown {"+" [Markdown Block]}]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat]]] @@ -32,7 +32,7 @@ [compiler [language [lux - ["." syntax]]]]]]]) + ["[0]" syntax]]]]]]]) (template: (|recursion_dummy|) [(#.Primitive "" #.End)]) diff --git a/stdlib/source/library/lux/extension.lux b/stdlib/source/library/lux/extension.lux index e72731be4..885c32fbc 100644 --- a/stdlib/source/library/lux/extension.lux +++ b/stdlib/source/library/lux/extension.lux @@ -2,22 +2,22 @@ [library [lux "*" [abstract - ["." monad]] + ["[0]" monad]] [control - ["<>" parser ("#\." monad) + ["<>" parser ("[1]\[0]" monad) ["<c>" code {"+" [Parser]}] ["<a>" analysis] ["<s>" synthesis]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro {"+" [with_identifiers]} - ["." code] + ["[0]" code] [syntax {"+" [syntax:]}]] [tool [compiler - ["." phase]]]]]) + ["[0]" phase]]]]]) (type: Declaration (Record diff --git a/stdlib/source/library/lux/ffi.js.lux b/stdlib/source/library/lux/ffi.js.lux index c93a0ab0d..49cd0067a 100644 --- a/stdlib/source/library/lux/ffi.js.lux +++ b/stdlib/source/library/lux/ffi.js.lux @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -248,7 +248,7 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class_name) + (text.replaced "[1]" class_name) (text.replaced "." member_name) code.local_identifier))) class_parameters (list\each code.local_identifier class_parameters) diff --git a/stdlib/source/library/lux/ffi.jvm.lux b/stdlib/source/library/lux/ffi.jvm.lux index e31607e0b..be7835ad0 100644 --- a/stdlib/source/library/lux/ffi.jvm.lux +++ b/stdlib/source/library/lux/ffi.jvm.lux @@ -1,43 +1,43 @@ (.module: [library - ["." lux {"-" [Type type int char :as]} - ["#_." type ("#\." equivalence)] + ["[0]" lux {"-" [Type type int char :as]} + ["[1]_[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [control - ["." function] - ["." io] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [Exception exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array] - ["." list ("#\." monad mix monoid)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array] + ["[0]" list ("[1]\[0]" monad mix monoid)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." meta - ["." annotation]] + ["[0]" code] + ["[0]" template]] + ["[0]" meta + ["[0]" annotation]] [target [jvm [encoding - ["." name {"+" [External]}]] - ["." type {"+" [Type Argument Typed]} - ["." category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["." box] - ["." descriptor] - ["." signature] - ["." reflection] - ["." parser]]]]]]) + ["[0]" name {"+" [External]}]] + ["[0]" type {"+" [Type Argument Typed]} + ["[0]" category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] + ["[0]" box] + ["[0]" descriptor] + ["[0]" signature] + ["[0]" reflection] + ["[0]" parser]]]]]]) (def: internal (-> External Text) @@ -536,7 +536,7 @@ (def: privacy_modifier^ (Parser Privacy) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "public")) (<code>.this! (' "private")) @@ -545,7 +545,7 @@ (def: inheritance_modifier^ (Parser Inheritance) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "final")) (<code>.this! (' "abstract")) @@ -1484,8 +1484,8 @@ (def: (import_name format class member) (-> Text Text Text Text) (|> format - (text.replaced "#" class) - (text.replaced "." member))) + (text.replaced "[1]" class) + (text.replaced "[0]" member))) (def: syntax_inputs (-> (List Code) (List Code)) @@ -1592,7 +1592,7 @@ (#FieldAccessDecl fad) (do meta.monad - [.let [(^open ".") fad + [.let [(^open "[0]") fad getter_name (code.identifier ["" (..import_name import_format method_prefix import_field_name)]) setter_name (code.identifier ["" (..import_name import_format method_prefix (format import_field_name "!"))])] getter_interop (with_identifiers [g!obj] diff --git a/stdlib/source/library/lux/ffi.lua.lux b/stdlib/source/library/lux/ffi.lua.lux index 8a8abbe14..4144c573f 100644 --- a/stdlib/source/library/lux/ffi.lua.lux +++ b/stdlib/source/library/lux/ffi.lua.lux @@ -2,26 +2,26 @@ [library [lux "*" ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -228,8 +228,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class) - (text.replaced "." member_name) + (text.replaced "[1]" class) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier class) real_class (text.replaced "/" "." class) diff --git a/stdlib/source/library/lux/ffi.old.lux b/stdlib/source/library/lux/ffi.old.lux index 04078189d..ea8b13a7c 100644 --- a/stdlib/source/library/lux/ffi.old.lux +++ b/stdlib/source/library/lux/ffi.old.lux @@ -1,31 +1,31 @@ (.module: [library [lux {"-" [type]} - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [Monad do]}] - ["." enum]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum]] [control - ["." function] - ["." io] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." bit ("#\." codec)] - ["." text ("#\." equivalence monoid) + ["[0]" product] + ["[0]" bit ("[1]\[0]" codec)] + ["[0]" text ("[1]\[0]" equivalence monoid) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." monad mix monoid)]]] - ["." macro {"+" [with_identifiers]} + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" monad mix monoid)]]] + ["[0]" macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." meta - ["." annotation]]]]) + ["[0]" code] + ["[0]" template]] + ["[0]" meta + ["[0]" annotation]]]]) (template [<name> <op> <from> <to>] [(def: .public (<name> value) @@ -528,7 +528,7 @@ ... Parsers (def: privacy_modifier^ (Parser Privacy) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "public")) (<code>.this! (' "private")) @@ -537,7 +537,7 @@ (def: inheritance_modifier^ (Parser Inheritance) - (let [(^open ".") <>.monad] + (let [(^open "[0]") <>.monad] ($_ <>.or (<code>.this! (' "final")) (<code>.this! (' "abstract")) @@ -1015,7 +1015,7 @@ (-> Type_Parameter JVM_Code) (format "(" name " " (spaced (list\each generic_type$ bounds)) ")")) -(def: (class_decl$ (^open ".")) +(def: (class_decl$ (^open "[0]")) (-> Class_Declaration JVM_Code) (format "(" (safe class_name) " " (spaced (list\each type_param$ class_params)) ")")) @@ -1425,8 +1425,8 @@ (def: (import_name format class member) (-> Text Text Text Text) (|> format - (text.replaced "#" class) - (text.replaced "." member))) + (text.replaced "[1]" class) + (text.replaced "[0]" member))) (def: syntax_inputs (-> (List Code) (List Code)) @@ -1511,7 +1511,7 @@ (#FieldAccessDecl fad) (do meta.monad - [.let [(^open ".") fad + [.let [(^open "[0]") fad base_gtype (class_type import_field_mode type_params import_field_type) classC (class_decl_type$ class) typeC (if import_field_maybe? diff --git a/stdlib/source/library/lux/ffi.php.lux b/stdlib/source/library/lux/ffi.php.lux index 668ff816d..245c56391 100644 --- a/stdlib/source/library/lux/ffi.php.lux +++ b/stdlib/source/library/lux/ffi.php.lux @@ -1,27 +1,27 @@ (.module: [library [lux {"-" [Alias]} - ["." meta] ["@" target] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} Any) @@ -244,8 +244,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" (maybe.else class alias)) - (text.replaced "." member_name) + (text.replaced "[1]" (maybe.else class alias)) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier (maybe.else class alias)) class_import (` ("php constant" (~ (code.text class))))] diff --git a/stdlib/source/library/lux/ffi.py.lux b/stdlib/source/library/lux/ffi.py.lux index 9a4a20ff3..b6f7eced4 100644 --- a/stdlib/source/library/lux/ffi.py.lux +++ b/stdlib/source/library/lux/ffi.py.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] ["@" target] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] + ["[0]" io] + ["[0]" maybe] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -221,7 +221,7 @@ (syntax: .public (import: [import ..import]) {#.doc (example "Easily import types, methods, functions and constants." (import: os - ["#::." + ["[1]::[0]" ("static" F_OK ..Integer) ("static" R_OK ..Integer) ("static" W_OK ..Integer) @@ -235,7 +235,7 @@ ("static" listdir [..String] "io" "try" (Array ..String))]) (import: os/path - ["#::." + ["[1]::[0]" ("static" isfile [..String] "io" "try" ..Boolean) ("static" isdir [..String] "io" "try" ..Boolean) ("static" sep ..String) @@ -248,8 +248,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" class) - (text.replaced "." member_name) + (text.replaced "[1]" class) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier class) real_class (text.replaced "/" "." class) diff --git a/stdlib/source/library/lux/ffi.rb.lux b/stdlib/source/library/lux/ffi.rb.lux index 4781ec987..54900494b 100644 --- a/stdlib/source/library/lux/ffi.rb.lux +++ b/stdlib/source/library/lux/ffi.rb.lux @@ -2,26 +2,26 @@ [library [lux {"-" [Alias]} ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} @@ -239,8 +239,8 @@ (let [qualify (: (-> Text Code) (function (_ member_name) (|> format - (text.replaced "#" (maybe.else class alias)) - (text.replaced "." member_name) + (text.replaced "[1]" (maybe.else class alias)) + (text.replaced "[0]" member_name) code.local_identifier))) g!type (code.local_identifier (maybe.else class alias)) module_import (: (List Code) diff --git a/stdlib/source/library/lux/ffi.scm.lux b/stdlib/source/library/lux/ffi.scm.lux index 6e861cb86..f4f0a0cda 100644 --- a/stdlib/source/library/lux/ffi.scm.lux +++ b/stdlib/source/library/lux/ffi.scm.lux @@ -2,26 +2,26 @@ [library [lux {"-" [Alias]} ["@" target] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" io] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code] - ["." template]]]]) + ["[0]" code] + ["[0]" template]]]]) (abstract: .public (Object brand) {} Any) diff --git a/stdlib/source/library/lux/locale.lux b/stdlib/source/library/lux/locale.lux index 53b363c45..5b855793b 100644 --- a/stdlib/source/library/lux/locale.lux +++ b/stdlib/source/library/lux/locale.lux @@ -3,18 +3,18 @@ [lux "*" [abstract [equivalence {"+" [Equivalence]}] - ["." hash {"+" [Hash]}]] + ["[0]" hash {"+" [Hash]}]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]]] + ["[0]" encoding {"+" [Encoding]}]]] [type abstract]]] [/ - ["." language {"+" [Language]}] - ["." territory {"+" [Territory]}]]) + ["[0]" language {"+" [Language]}] + ["[0]" territory {"+" [Territory]}]]) (abstract: .public Locale {} diff --git a/stdlib/source/library/lux/locale/language.lux b/stdlib/source/library/lux/locale/language.lux index 38da0fd18..e3a48b904 100644 --- a/stdlib/source/library/lux/locale/language.lux +++ b/stdlib/source/library/lux/locale/language.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text]] + ["[0]" text]] [type abstract] [macro - ["." template]]]]) + ["[0]" template]]]]) ... https://en.wikipedia.org/wiki/List_of_ISO_639-2_codes (abstract: .public Language diff --git a/stdlib/source/library/lux/locale/territory.lux b/stdlib/source/library/lux/locale/territory.lux index 9a30ff70d..834828075 100644 --- a/stdlib/source/library/lux/locale/territory.lux +++ b/stdlib/source/library/lux/locale/territory.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text]] + ["[0]" text]] [type abstract] [macro - ["." template]]]]) + ["[0]" template]]]]) ... https://en.wikipedia.org/wiki/ISO_3166-1 (abstract: .public Territory diff --git a/stdlib/source/library/lux/macro.lux b/stdlib/source/library/lux/macro.lux index bbbe8765b..db6a7427c 100644 --- a/stdlib/source/library/lux/macro.lux +++ b/stdlib/source/library/lux/macro.lux @@ -2,21 +2,21 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text ("#\." monoid)] - ["." name ("#\." codec)] + ["[0]" text ("[1]\[0]" monoid)] + ["[0]" name ("[1]\[0]" codec)] [collection - ["." list ("#\." monoid monad)]]] + ["[0]" list ("[1]\[0]" monoid monad)]]] [macro - ["." code]] + ["[0]" code]] [math [number - ["." nat] - ["." int]]]]] - ["." // "_" - ["#" meta - ["." location]]]) + ["[0]" nat] + ["[0]" int]]]]] + ["[0]" // "_" + ["[1]" meta + ["[0]" location]]]) (def: .public (single_expansion syntax) (-> Code (Meta (List Code))) diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index fb4b6498e..f266c5642 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." bit] - ["." name] - ["." text ("#\." monoid equivalence)] + ["[0]" product] + ["[0]" bit] + ["[0]" name] + ["[0]" text ("[1]\[0]" monoid equivalence)] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]] [meta - ["." location]]]]) + ["[0]" location]]]]) ... (type: (Code' w) ... (#.Bit Bit) diff --git a/stdlib/source/library/lux/macro/local.lux b/stdlib/source/library/lux/macro/local.lux index c4e134336..683926d3f 100644 --- a/stdlib/source/library/lux/macro/local.lux +++ b/stdlib/source/library/lux/macro/local.lux @@ -1,21 +1,21 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] [dictionary - ["." plist {"+" [PList]}]]]]]] - ["." // - ["#." code]]) + ["[0]" plist {"+" [PList]}]]]]]] + ["[0]" // + ["[1][0]" code]]) (exception: .public (unknown_module {module Text}) (exception.report diff --git a/stdlib/source/library/lux/macro/syntax.lux b/stdlib/source/library/lux/macro/syntax.lux index ca06801ea..8d06987e0 100644 --- a/stdlib/source/library/lux/macro/syntax.lux +++ b/stdlib/source/library/lux/macro/syntax.lux @@ -1,27 +1,27 @@ (.module: [library [lux "*" - ["." macro {"+" [with_identifiers]}] - ["." meta] + ["[0]" macro {"+" [with_identifiers]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] + ["[0]" maybe] + ["[0]" try] ["<>" parser ["</>" code {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] [// - ["." code]]) + ["[0]" code]]) (def: (self_documenting binding parser) (All (_ a) (-> Code (Parser a) (Parser a))) diff --git a/stdlib/source/library/lux/macro/syntax/annotations.lux b/stdlib/source/library/lux/macro/syntax/annotations.lux index 89a45ddf6..6366f725f 100644 --- a/stdlib/source/library/lux/macro/syntax/annotations.lux +++ b/stdlib/source/library/lux/macro/syntax/annotations.lux @@ -4,16 +4,16 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." name] + ["[0]" product] + ["[0]" name] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Annotations (List [Name Code])) diff --git a/stdlib/source/library/lux/macro/syntax/check.lux b/stdlib/source/library/lux/macro/syntax/check.lux index 750ac56d2..54558b914 100644 --- a/stdlib/source/library/lux/macro/syntax/check.lux +++ b/stdlib/source/library/lux/macro/syntax/check.lux @@ -1,18 +1,18 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product]] + ["[0]" product]] [macro - ["." code]]]]) + ["[0]" code]]]]) (def: extension "lux check") diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux index b2d81ff4d..db8d135ca 100644 --- a/stdlib/source/library/lux/macro/syntax/declaration.lux +++ b/stdlib/source/library/lux/macro/syntax/declaration.lux @@ -4,15 +4,15 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Declaration (Record diff --git a/stdlib/source/library/lux/macro/syntax/definition.lux b/stdlib/source/library/lux/macro/syntax/definition.lux index 2fcef6e2b..ac65e7357 100644 --- a/stdlib/source/library/lux/macro/syntax/definition.lux +++ b/stdlib/source/library/lux/macro/syntax/definition.lux @@ -5,25 +5,25 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." sum] - ["." product] - ["." bit] - ["." name] - ["." text + ["[0]" sum] + ["[0]" product] + ["[0]" bit] + ["[0]" name] + ["[0]" text ["%" format]] [collection - ["." list]]] - ["." macro - ["." code]] - ["." meta - ["." location]]]] - ["." // - ["#." annotations {"+" [Annotations]}] - ["#." check {"+" [Check]}]]) + ["[0]" list]]] + ["[0]" macro + ["[0]" code]] + ["[0]" meta + ["[0]" location]]]] + ["[0]" // + ["[1][0]" annotations {"+" [Annotations]}] + ["[1][0]" check {"+" [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 2ea86c378..164032dcb 100644 --- a/stdlib/source/library/lux/macro/syntax/export.lux +++ b/stdlib/source/library/lux/macro/syntax/export.lux @@ -2,8 +2,8 @@ [library [lux "*" [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]]]]) + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]]]]) (def: .public default_policy Code diff --git a/stdlib/source/library/lux/macro/syntax/input.lux b/stdlib/source/library/lux/macro/syntax/input.lux index 81cd983d1..b7ff83a59 100644 --- a/stdlib/source/library/lux/macro/syntax/input.lux +++ b/stdlib/source/library/lux/macro/syntax/input.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product]] + ["[0]" product]] [macro - ["." code]]]]) + ["[0]" code]]]]) (type: .public Input (Record diff --git a/stdlib/source/library/lux/macro/syntax/type/variable.lux b/stdlib/source/library/lux/macro/syntax/type/variable.lux index b079e3485..fbbac219f 100644 --- a/stdlib/source/library/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/library/lux/macro/syntax/type/variable.lux @@ -5,11 +5,11 @@ [equivalence {"+" [Equivalence]}]] [control [parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text]] + ["[0]" text]] [macro - ["." code]]]]) + ["[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 2c51b4963..cef131e88 100644 --- a/stdlib/source/library/lux/macro/template.lux +++ b/stdlib/source/library/lux/macro/template.lux @@ -1,30 +1,30 @@ (.module: [library [lux {"-" [let local macro]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." functor) - ["<.>" code {"+" [Parser]}]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" functor) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." bit ("#\." codec)] - ["." text] + ["[0]" bit ("[1]\[0]" codec)] + ["[0]" text] [collection - ["." list ("#\." monad)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["." nat ("#\." decimal)] - ["." int ("#\." decimal)] - ["." rev ("#\." decimal)] - ["." frac ("#\." decimal)]]]]] - ["." // + ["[0]" nat ("[1]\[0]" decimal)] + ["[0]" int ("[1]\[0]" decimal)] + ["[0]" rev ("[1]\[0]" decimal)] + ["[0]" frac ("[1]\[0]" decimal)]]]]] + ["[0]" // [syntax {"+" [syntax:]}] - ["." code] - ["." local]]) + ["[0]" code] + ["[0]" local]]) (syntax: .public (spliced [parts (<code>.tuple (<>.some <code>.any))]) (in parts)) diff --git a/stdlib/source/library/lux/math/infix.lux b/stdlib/source/library/lux/math/infix.lux index 8e10d4ae0..616c62709 100644 --- a/stdlib/source/library/lux/math/infix.lux +++ b/stdlib/source/library/lux/math/infix.lux @@ -4,15 +4,15 @@ [abstract [monad {"+" [do]}]] [control - ["<>" parser ("#\." functor) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" functor) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/math/logic/continuous.lux b/stdlib/source/library/lux/math/logic/continuous.lux index 807cdba9c..26d77139c 100644 --- a/stdlib/source/library/lux/math/logic/continuous.lux +++ b/stdlib/source/library/lux/math/logic/continuous.lux @@ -6,7 +6,7 @@ [monoid {"+" [Monoid]}]] [math [number - ["/" rev ("#\." interval)]]]]]) + ["/" 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 a30c42d8c..079d5fe16 100644 --- a/stdlib/source/library/lux/math/logic/fuzzy.lux +++ b/stdlib/source/library/lux/math/logic/fuzzy.lux @@ -5,16 +5,16 @@ [abstract [predicate {"+" [Predicate]}] [functor - ["." contravariant]]] + ["[0]" contravariant]]] [data [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math [number ["/" rev]]]]] - ["." // "_" - ["#" continuous]]) + ["[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 012af5c4b..bc496557f 100644 --- a/stdlib/source/library/lux/math/modular.lux +++ b/stdlib/source/library/lux/math/modular.lux @@ -8,24 +8,24 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." monoid)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["i" int ("#\." decimal)]]] + ["i" int ("[1]\[0]" decimal)]]] [type abstract]]] - ["." // "_" - ["#" modulus {"+" [Modulus]}]]) + ["[0]" // "_" + ["[1]" modulus {"+" [Modulus]}]]) (abstract: .public (Mod m) {} diff --git a/stdlib/source/library/lux/math/modulus.lux b/stdlib/source/library/lux/math/modulus.lux index 8fda89368..6879bd012 100644 --- a/stdlib/source/library/lux/math/modulus.lux +++ b/stdlib/source/library/lux/math/modulus.lux @@ -1,17 +1,17 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["i" int]]] diff --git a/stdlib/source/library/lux/math/number.lux b/stdlib/source/library/lux/math/number.lux index 6722c0329..da7aa73fd 100644 --- a/stdlib/source/library/lux/math/number.lux +++ b/stdlib/source/library/lux/math/number.lux @@ -4,14 +4,14 @@ [abstract [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text]]]] - ["." / "_" - ["#." nat] - ["#." int] - ["#." rev] - ["#." frac]]) + ["[0]" text]]]] + ["[0]" / "_" + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["[1][0]" frac]]) (def: separator ",") diff --git a/stdlib/source/library/lux/math/number/complex.lux b/stdlib/source/library/lux/math/number/complex.lux index 6aa8bae30..8e649252e 100644 --- a/stdlib/source/library/lux/math/number/complex.lux +++ b/stdlib/source/library/lux/math/number/complex.lux @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." math] + ["[0]" math] [abstract [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] ["M" monad {"+" [Monad do]}]] [control - ["." maybe] + ["[0]" maybe] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] ["f" frac] - ["." int]]]]]) + ["[0]" int]]]]]) (type: .public Complex (Record diff --git a/stdlib/source/library/lux/math/number/frac.lux b/stdlib/source/library/lux/math/number/frac.lux index 0809a0c7a..c919e8ab5 100644 --- a/stdlib/source/library/lux/math/number/frac.lux +++ b/stdlib/source/library/lux/math/number/frac.lux @@ -11,16 +11,16 @@ [order {"+" [Order]}] [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data - ["." text]]]] - ["." // "_" - ["#." i64] - ["#." nat] - ["#." int] - ["#." rev] - ["/#" //]]) + ["[0]" text]]]] + ["[0]" // "_" + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["/[1]" //]]) (def: .public (= reference sample) (-> Frac Frac Bit) diff --git a/stdlib/source/library/lux/math/number/i16.lux b/stdlib/source/library/lux/math/number/i16.lux index 1eaf89c0d..d16ebb6a3 100644 --- a/stdlib/source/library/lux/math/number/i16.lux +++ b/stdlib/source/library/lux/math/number/i16.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [type {"+" [:by_example]}]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [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 bba3a2fb4..9c71cfdff 100644 --- a/stdlib/source/library/lux/math/number/i32.lux +++ b/stdlib/source/library/lux/math/number/i32.lux @@ -5,9 +5,9 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]]]] + ["[0]" maybe]]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [Sub]}]]) (def: sub (maybe.trusted (i64.sub 32))) diff --git a/stdlib/source/library/lux/math/number/i64.lux b/stdlib/source/library/lux/math/number/i64.lux index 673d99ab2..4fbab4334 100644 --- a/stdlib/source/library/lux/math/number/i64.lux +++ b/stdlib/source/library/lux/math/number/i64.lux @@ -6,7 +6,7 @@ [hash {"+" [Hash]}] [monoid {"+" [Monoid]}]] [control - ["." try]]]] + ["[0]" try]]]] [// ["n" nat]]) diff --git a/stdlib/source/library/lux/math/number/i8.lux b/stdlib/source/library/lux/math/number/i8.lux index b5fa6f6aa..6f6c77175 100644 --- a/stdlib/source/library/lux/math/number/i8.lux +++ b/stdlib/source/library/lux/math/number/i8.lux @@ -4,10 +4,10 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [type {"+" [:by_example]}]]] [// - ["." i64 {"+" [Sub]}]]) + ["[0]" i64 {"+" [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 53effd0c1..0e515f8a5 100644 --- a/stdlib/source/library/lux/math/number/int.lux +++ b/stdlib/source/library/lux/math/number/int.lux @@ -9,15 +9,15 @@ [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] [predicate {"+" [Predicate]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data [text {"+" [Char]}]]]] - ["." // "_" - ["#." nat] - ["#." i64]]) + ["[0]" // "_" + ["[1][0]" nat] + ["[1][0]" i64]]) (def: .public (= reference sample) (-> Int Int Bit) diff --git a/stdlib/source/library/lux/math/number/nat.lux b/stdlib/source/library/lux/math/number/nat.lux index 5de9ab23d..3efe7f197 100644 --- a/stdlib/source/library/lux/math/number/nat.lux +++ b/stdlib/source/library/lux/math/number/nat.lux @@ -8,11 +8,11 @@ [monoid {"+" [Monoid]}] [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] - ["." order {"+" [Order]}]] + ["[0]" order {"+" [Order]}]] [control - ["." function] - ["." maybe] - ["." try {"+" [Try]}]]]]) + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]]]]) (template [<extension> <output> <name>] [(def: .public (<name> parameter subject) diff --git a/stdlib/source/library/lux/math/number/ratio.lux b/stdlib/source/library/lux/math/number/ratio.lux index 5d1ab4acf..1e6aff940 100644 --- a/stdlib/source/library/lux/math/number/ratio.lux +++ b/stdlib/source/library/lux/math/number/ratio.lux @@ -8,19 +8,19 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." function] - ["." maybe] - ["." try] + ["[0]" function] + ["[0]" maybe] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid)]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] + ["[0]" code]]]] [// - ["n" nat ("#\." decimal)]]) + ["n" nat ("[1]\[0]" decimal)]]) (type: .public Ratio (Record diff --git a/stdlib/source/library/lux/math/number/rev.lux b/stdlib/source/library/lux/math/number/rev.lux index e5975ffec..07013dc94 100644 --- a/stdlib/source/library/lux/math/number/rev.lux +++ b/stdlib/source/library/lux/math/number/rev.lux @@ -10,15 +10,15 @@ [codec {"+" [Codec]}] [order {"+" [Order]}]] [control - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data [collection - ["." array {"+" [Array]}]]]]] - ["." // "_" - ["#." i64] - ["#." nat] - ["#." int]]) + ["[0]" array {"+" [Array]}]]]]] + ["[0]" // "_" + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int]]) (def: .public /1 Rev diff --git a/stdlib/source/library/lux/math/random.lux b/stdlib/source/library/lux/math/random.lux index d370085ff..348482e63 100644 --- a/stdlib/source/library/lux/math/random.lux +++ b/stdlib/source/library/lux/math/random.lux @@ -5,21 +5,21 @@ [hash {"+" [Hash]}] [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [data - ["." text {"+" [Char]} ("#\." monoid) - ["." unicode "_" - ["#" set]]] + ["[0]" text {"+" [Char]} ("[1]\[0]" monoid) + ["[0]" unicode "_" + ["[1]" set]]] [collection - ["." list ("#\." mix)] - ["." array {"+" [Array]}] - ["." dictionary {"+" [Dictionary]}] - ["." queue {"+" [Queue]}] - ["." set {"+" [Set]}] - ["." stack {"+" [Stack]}] - ["." row {"+" [Row]}] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" queue {"+" [Queue]}] + ["[0]" set {"+" [Set]}] + ["[0]" stack {"+" [Stack]}] + ["[0]" row {"+" [Row]}] [tree - ["." finger {"+" [Tree]}]]]] + ["[0]" finger {"+" [Tree]}]]]] [math [number {"+" [hex]} ["n" nat] @@ -27,13 +27,13 @@ ["f" frac] ["r" ratio] ["c" complex] - ["." i64]]] - ["." time {"+" [Time]} - ["." instant {"+" [Instant]}] - ["." date {"+" [Date]}] - ["." duration {"+" [Duration]}] - ["." month {"+" [Month]}] - ["." day {"+" [Day]}]] + ["[0]" i64]]] + ["[0]" time {"+" [Time]} + ["[0]" instant {"+" [Instant]}] + ["[0]" date {"+" [Date]}] + ["[0]" duration {"+" [Duration]}] + ["[0]" month {"+" [Month]}] + ["[0]" day {"+" [Day]}]] [type [refinement {"+" [Refiner Refined]}]]]]) @@ -309,7 +309,7 @@ (def: .public month (Random Month) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (..either (..either (..either (\in #month.January) (..either (\in #month.February) (\in #month.March))) @@ -325,7 +325,7 @@ (def: .public day (Random Day) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (..either (..either (\in #day.Sunday) (..either (\in #day.Monday) (\in #day.Tuesday))) diff --git a/stdlib/source/library/lux/meta.lux b/stdlib/source/library/lux/meta.lux index 658d17af4..bd36de002 100644 --- a/stdlib/source/library/lux/meta.lux +++ b/stdlib/source/library/lux/meta.lux @@ -4,26 +4,26 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." text ("#\." monoid order)] - ["." name ("#\." codec equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid order)] + ["[0]" name ("[1]\[0]" codec equivalence)] [collection - ["." list ("#\." monoid monad)] + ["[0]" list ("[1]\[0]" monoid monad)] [dictionary - ["." plist]]]] + ["[0]" plist]]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat] ["i" int]]]]] [/ - ["." location]]) + ["[0]" location]]) ... (type: (Meta a) ... (-> Lux (Try [Lux a]))) @@ -135,7 +135,7 @@ (def: .public current_module (Meta Module) - (let [(^open "\.") ..monad] + (let [(^open "\[0]") ..monad] (|> ..current_module_name (\each ..module) \conjoint))) diff --git a/stdlib/source/library/lux/meta/annotation.lux b/stdlib/source/library/lux/meta/annotation.lux index 1b5c7f4f0..49ea4fe44 100644 --- a/stdlib/source/library/lux/meta/annotation.lux +++ b/stdlib/source/library/lux/meta/annotation.lux @@ -2,11 +2,11 @@ [library [lux {"-" [nat int rev]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." name ("#\." equivalence)]]]]) + ["[0]" name ("[1]\[0]" equivalence)]]]]) (type: .public Annotation Code) diff --git a/stdlib/source/library/lux/program.lux b/stdlib/source/library/lux/program.lux index ccd1633a6..00e75d32c 100644 --- a/stdlib/source/library/lux/program.lux +++ b/stdlib/source/library/lux/program.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}]] [control - ["." io] + ["[0]" io] [concurrency - ["." thread]] + ["[0]" thread]] ["<>" parser - ["<.>" code] - ["<.>" cli]]] + ["<[0]>" code] + ["<[0]>" cli]]] [data - ["." text] + ["[0]" text] [collection - ["." list ("#\." monad)]]] + ["[0]" list ("[1]\[0]" monad)]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]]]]) + ["[0]" code]]]]) (type: Arguments (Variant diff --git a/stdlib/source/library/lux/static.lux b/stdlib/source/library/lux/static.lux index 3f9d9caed..83bc9358e 100644 --- a/stdlib/source/library/lux/static.lux +++ b/stdlib/source/library/lux/static.lux @@ -1,18 +1,18 @@ (.module: [library [lux {"-" [nat int rev]} - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]}] - ["." random {"+" [Random]}]]]]) + ["[0]" random {"+" [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 d57cb51c9..db711eabf 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -4,12 +4,12 @@ [control [pipe {"+" [case> cond> new>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad monoid)]]] + ["[0]" list ("[1]\[0]" monad monoid)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index 2882fe5db..d6eff28b5 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -4,12 +4,12 @@ [control [pipe {"+" [case>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int] diff --git a/stdlib/source/library/lux/target/jvm.lux b/stdlib/source/library/lux/target/jvm.lux index 8da4679fc..e32769bbc 100644 --- a/stdlib/source/library/lux/target/jvm.lux +++ b/stdlib/source/library/lux/target/jvm.lux @@ -7,7 +7,7 @@ [target [jvm [type {"+" [Type]} - ["." category {"+" [Primitive Class Value Method]}]]]]]]) + ["[0]" category {"+" [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 053c59e3f..78ce1854d 100644 --- a/stdlib/source/library/lux/target/jvm/attribute.lux +++ b/stdlib/source/library/lux/target/jvm/attribute.lux @@ -3,27 +3,27 @@ [lux {"-" [Info Code]} [abstract [monad {"+" [do]}] - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." sum] - ["." product] + ["[0]" sum] + ["[0]" product] [format - [".F" binary {"+" [Writer]}]]] + ["[0]F" binary {"+" [Writer]}]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#." index {"+" [Index]}] + ["[0]" // "_" + ["[1][0]" index {"+" [Index]}] [encoding - ["#." unsigned {"+" [U2 U4]}]] - ["#." constant {"+" [UTF8 Class Value]} - ["#/." pool {"+" [Pool Resource]}]]] - ["." / "_" - ["#." constant {"+" [Constant]}] - ["#." code]]) + ["[1][0]" unsigned {"+" [U2 U4]}]] + ["[1][0]" constant {"+" [UTF8 Class Value]} + ["[1]/[0]" pool {"+" [Pool Resource]}]]] + ["[0]" / "_" + ["[1][0]" constant {"+" [Constant]}] + ["[1][0]" code]]) (type: .public (Info about) (Record diff --git a/stdlib/source/library/lux/target/jvm/attribute/code.lux b/stdlib/source/library/lux/target/jvm/attribute/code.lux index eec5e8233..e887537cc 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code.lux @@ -4,23 +4,23 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." binary {"+" [Binary]}] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]} ("#\." functor mix)]]] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]]]] - ["." /// "_" + ["[0]" /// "_" [bytecode [environment - ["#." limit {"+" [Limit]}]]] + ["[1][0]" limit {"+" [Limit]}]]] [encoding - ["#." unsigned {"+" [U2]}]]] - ["." / "_" - ["#." exception {"+" [Exception]}]]) + ["[1][0]" unsigned {"+" [U2]}]]] + ["[0]" / "_" + ["[1][0]" exception {"+" [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 97cda5be3..fe7f8abd9 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/code/exception.lux @@ -4,20 +4,20 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [math [number ["n" nat]]]]] - ["." // "_" - ["//#" /// "_" + ["[0]" // "_" + ["//[1]" /// "_" [constant {"+" [Class]}] - ["#." index {"+" [Index]}] + ["[1][0]" index {"+" [Index]}] [bytecode - ["#." address {"+" [Address]}]] + ["[1][0]" address {"+" [Address]}]] [encoding - ["#." unsigned {"+" [U2]}]]]]) + ["[1][0]" unsigned {"+" [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 1f03b9162..fbb01cb30 100644 --- a/stdlib/source/library/lux/target/jvm/attribute/constant.lux +++ b/stdlib/source/library/lux/target/jvm/attribute/constant.lux @@ -6,11 +6,11 @@ [data [format [binary {"+" [Writer]}]]]]] - ["." /// "_" + ["[0]" /// "_" [constant {"+" [Value]}] - ["#." index {"+" [Index]}] + ["[1][0]" index {"+" [Index]}] [encoding - ["#." unsigned {"+" [U2 U4]}]]]) + ["[1][0]" unsigned {"+" [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 e906aaa0d..2c78e57d0 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -1,55 +1,55 @@ (.module: [library [lux {"-" [Type Label int try]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monoid {"+" [Monoid]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." writer {"+" [Writer]}] - ["." state {"+" [+State]}] - ["." function] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" writer {"+" [Writer]}] + ["[0]" state {"+" [+State]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] ["i" int] - ["." i32 {"+" [I32]}]]]]] - ["." / "_" - ["#." address {"+" [Address]}] - ["#." jump {"+" [Jump Big_Jump]}] - ["_" instruction {"+" [Primitive_Array_Type Instruction Estimator]} ("#\." monoid)] - ["#." environment {"+" [Environment]} + ["[0]" i32 {"+" [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]} [limit - ["/." registry {"+" [Register Registry]}] - ["/." stack {"+" [Stack]}]]] - ["/#" // "_" - ["#." index {"+" [Index]}] + ["/[0]" registry {"+" [Register Registry]}] + ["/[0]" stack {"+" [Stack]}]]] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] [encoding - ["#." name] - ["#." unsigned {"+" [U1 U2]}] - ["#." signed {"+" [S1 S2 S4]}]] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] + ["[1][0]" name] + ["[1][0]" unsigned {"+" [U1 U2]}] + ["[1][0]" signed {"+" [S1 S2 S4]}]] + ["[1][0]" constant {"+" [UTF8]} + ["[1]/[0]" pool {"+" [Pool Resource]}]] [attribute [code - ["#." exception {"+" [Exception]}]]] - ["." type {"+" [Type]} + ["[1][0]" exception {"+" [Exception]}]]] + ["[0]" type {"+" [Type]} [category {"+" [Class Object Value' Value Return' Return Method]}] - ["." reflection] - ["." parser]]]]) + ["[0]" reflection] + ["[0]" parser]]]]) (type: .public Label Nat) @@ -462,11 +462,11 @@ (..bytecode $0 $1 @_ _.ldc_w/string [index])))) (import: java/lang/Float - ["#::." + ["[1]::[0]" ("static" floatToRawIntBits "manual" [float] int)]) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits "manual" [double] long)]) (template [<name> <type> <constructor> <constant> <wide> <to_lux> <specializations>] diff --git a/stdlib/source/library/lux/target/jvm/bytecode/address.lux b/stdlib/source/library/lux/target/jvm/bytecode/address.lux index 302fbcc8e..063c3eff6 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/address.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/address.lux @@ -5,7 +5,7 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [format [binary {"+" [Writer]}]] @@ -16,12 +16,12 @@ ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [jump {"+" [Big_Jump]}] - ["/#" // "_" + ["/[1]" // "_" [encoding - ["#." unsigned {"+" [U2]}] - ["#." signed {"+" [S4]}]]]]) + ["[1][0]" unsigned {"+" [U2]}] + ["[1][0]" signed {"+" [S4]}]]]]) (abstract: .public Address {} diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux index ade32b3d4..99bb9946a 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux @@ -5,12 +5,12 @@ [monad {"+" [do]}] [monoid {"+" [Monoid]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]]]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]]]] [/ - ["/." limit {"+" [Limit]} - ["/." stack {"+" [Stack]}] - ["/." registry {"+" [Registry]}]] + ["/[0]" limit {"+" [Limit]} + ["/[0]" stack {"+" [Stack]}] + ["/[0]" registry {"+" [Registry]}]] [/// [encoding [unsigned {"+" [U2]}]] 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 faac0819b..131d968ef 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment/limit.lux @@ -5,17 +5,17 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]]] [math [number ["n" nat]]]]] - ["." / "_" - ["#." stack {"+" [Stack]}] - ["#." registry {"+" [Registry]}] + ["[0]" / "_" + ["[1][0]" stack {"+" [Stack]}] + ["[1][0]" registry {"+" [Registry]}] [//// [type {"+" [Type]} [category {"+" [Method]}]]]]) 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 e2fa1461f..9a111eb22 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,25 +2,25 @@ [library [lux {"-" [Type for static]} [abstract - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]} ("#\." functor)]] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]] [data [format [binary {"+" [Writer]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [type abstract]]] - ["." ///// "_" + ["[0]" ///// "_" [encoding - ["#." unsigned {"+" [U1 U2]}]] - ["#." type {"+" [Type]} + ["[1][0]" unsigned {"+" [U1 U2]}]] + ["[1][0]" type {"+" [Type]} [category {"+" [Method]}] - ["#/." parser]]]) + ["[1]/[0]" parser]]]) (type: .public Register U1) 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 396c972c5..48cfba7a8 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,10 +2,10 @@ [library [lux "*" [abstract - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [control - ["." maybe] - ["." try {"+" [Try]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}]] [data [text ["%" format {"+" [Format]}]] @@ -13,9 +13,9 @@ [binary {"+" [Writer]}]]] [type abstract]]] - ["." ///// "_" + ["[0]" ///// "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [U2]}]]]) (abstract: .public Stack {} diff --git a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux index dce6ef723..449eb0d19 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/instruction.lux @@ -5,34 +5,34 @@ [monad {"+" [do]}] [monoid {"+" [Monoid]}]] [control - ["." function] - ["." try]] + ["[0]" function] + ["[0]" try]] [data - ["." product] - ["." binary] - ["." format "_" - ["#" binary {"+" [Mutation Specification]}]] + ["[0]" product] + ["[0]" binary] + ["[0]" format "_" + ["[1]" binary {"+" [Mutation Specification]}]] [collection - ["." list]]] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math [number {"+" [hex]} ["n" nat]]] [type abstract]]] - ["." // "_" - ["#." address {"+" [Address]}] - ["#." jump {"+" [Jump Big_Jump]}] + ["[0]" // "_" + ["[1][0]" address {"+" [Address]}] + ["[1][0]" jump {"+" [Jump Big_Jump]}] [environment [limit [registry {"+" [Register]}]]] - ["/#" // "_" - ["#." index {"+" [Index]}] - ["#." constant {"+" [Class Reference]}] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] + ["[1][0]" constant {"+" [Class Reference]}] [encoding - ["#." unsigned {"+" [U1 U2 U4]}] - ["#." signed {"+" [S1 S2 S4]}]] + ["[1][0]" unsigned {"+" [U1 U2 U4]}] + ["[1][0]" signed {"+" [S1 S2 S4]}]] [type [category {"+" [Value Method]}]]]]) diff --git a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux index 615b7f9ac..e300e51ae 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/jump.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/jump.lux @@ -4,11 +4,11 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." format "_" - ["#" binary {"+" [Writer]}]]]]] - ["." /// "_" + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]]]] + ["[0]" /// "_" [encoding - ["#." signed {"+" [S2 S4]}]]]) + ["[1][0]" signed {"+" [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 c8e23ad0e..4d4333238 100644 --- a/stdlib/source/library/lux/target/jvm/class.lux +++ b/stdlib/source/library/lux/target/jvm/class.lux @@ -3,29 +3,29 @@ [lux {"-" [public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." state] - ["." try {"+" [Try]}]] + ["[0]" state] + ["[0]" try {"+" [Try]}]] [data - ["." product] + ["[0]" product] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["#." modifier {"+" [Modifier modifiers:]}] - ["#." version {"+" [Version Minor Major]}] - ["#." magic {"+" [Magic]}] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]}] - ["#." field {"+" [Field]}] - ["#." method {"+" [Method]}] + ["[0]" row {"+" [Row]}]]]]] + ["[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]}] [encoding - ["#." unsigned] - ["#." name {"+" [Internal]}]] - ["#." constant {"+" [Constant]} - ["#/." pool {"+" [Pool Resource]}]]]) + ["[1][0]" unsigned] + ["[1][0]" name {"+" [Internal]}]] + ["[1][0]" constant {"+" [Constant]} + ["[1]/[0]" pool {"+" [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 82e4c49e1..742c1101e 100644 --- a/stdlib/source/library/lux/target/jvm/constant.lux +++ b/stdlib/source/library/lux/target/jvm/constant.lux @@ -1,38 +1,38 @@ (.module: [library [lux "*" - ["." ffi {"+" [import:]}] ["@" target] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}] - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [data - ["." sum] - ["." product] - ["." text] + ["[0]" sum] + ["[0]" product] + ["[0]" text] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]] + ["[0]" row {"+" [Row]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32 {"+" [I32]}] - ["." i64] - ["." int] - ["." frac]]] + ["[0]" i32 {"+" [I32]}] + ["[0]" i64] + ["[0]" int] + ["[0]" frac]]] [type abstract]]] - ["." / "_" - ["#." tag] - ["/#" // "_" - ["#." index {"+" [Index]}] + ["[0]" / "_" + ["[1][0]" tag] + ["/[1]" // "_" + ["[1][0]" index {"+" [Index]}] [type - ["#." category] - ["#." descriptor {"+" [Descriptor]}]] + ["[1][0]" category] + ["[1][0]" descriptor {"+" [Descriptor]}]] [encoding - ["#." unsigned]]]]) + ["[1][0]" unsigned]]]]) (type: .public UTF8 Text) @@ -66,7 +66,7 @@ ) (import: java/lang/Float - ["#::." + ["[1]::[0]" ("static" floatToRawIntBits "manual" [float] int)]) (implementation: .public float_equivalence @@ -82,7 +82,7 @@ ("jvm object cast" subject))}))) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits [double] long)]) (abstract: .public (Value kind) diff --git a/stdlib/source/library/lux/target/jvm/constant/pool.lux b/stdlib/source/library/lux/target/jvm/constant/pool.lux index e79cd40d6..2ae78260d 100644 --- a/stdlib/source/library/lux/target/jvm/constant/pool.lux +++ b/stdlib/source/library/lux/target/jvm/constant/pool.lux @@ -1,39 +1,39 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [Monad do]}]] [control - ["." state {"+" [+State]}] - ["." try {"+" [Try]}]] + ["[0]" state {"+" [+State]}] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." text] - ["." format "_" - ["#" binary {"+" [Writer]} ("specification\." monoid)]] + ["[0]" product] + ["[0]" text] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("specification\[0]" monoid)]] [collection - ["." row {"+" [Row]} ("#\." mix)]]] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32] + ["[0]" i32] ["n" nat] - ["." int] - ["." frac]]] + ["[0]" int] + ["[0]" frac]]] [type abstract]]] - ["." // {"+" [UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference]} + ["[0]" // {"+" [UTF8 String Class Integer Float Long Double Constant Name_And_Type Reference]} [// [encoding - ["#." name {"+" [Internal External]}] - ["#." unsigned]] - ["#." index {"+" [Index]}] + ["[1][0]" name {"+" [Internal External]}] + ["[1][0]" unsigned]] + ["[1][0]" index {"+" [Index]}] [type [category {"+" [Value Method]}] - ["#." descriptor {"+" [Descriptor]}]]]]) + ["[1][0]" descriptor {"+" [Descriptor]}]]]]) (type: .public Pool [Index (Row [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 75afcd52c..ad56d1042 100644 --- a/stdlib/source/library/lux/target/jvm/constant/tag.lux +++ b/stdlib/source/library/lux/target/jvm/constant/tag.lux @@ -4,15 +4,15 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." try]] + ["[0]" try]] [data [format [binary {"+" [Writer]}]]] [type abstract]]] - ["." /// "_" + ["[0]" /// "_" [encoding - ["#." unsigned {"+" [U1]} ("u1//." equivalence)]]]) + ["[1][0]" unsigned {"+" [U1]} ("u1//[0]" equivalence)]]]) (abstract: .public Tag {} diff --git a/stdlib/source/library/lux/target/jvm/encoding/name.lux b/stdlib/source/library/lux/target/jvm/encoding/name.lux index b515e1d6b..7553285f2 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/name.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/name.lux @@ -2,7 +2,7 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/encoding/signed.lux b/stdlib/source/library/lux/target/jvm/encoding/signed.lux index abd02e3d8..e2aa094dc 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/signed.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/signed.lux @@ -5,18 +5,18 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] ["i" int]]] [type diff --git a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux index 6d0f259cb..863aadea3 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/unsigned.lux @@ -5,19 +5,19 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] - ["." format "_" - ["#" binary {"+" [Writer]}]]] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/field.lux b/stdlib/source/library/lux/target/jvm/field.lux index b3f41c3f1..9dcc7abe9 100644 --- a/stdlib/source/library/lux/target/jvm/field.lux +++ b/stdlib/source/library/lux/target/jvm/field.lux @@ -3,20 +3,20 @@ [lux {"-" [Type static public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [format - [".F" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]F" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["." modifier {"+" [Modifier modifiers:]}] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]}] - ["#." type {"+" [Type]} + ["[0]" row {"+" [Row]}]]]]] + ["[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]}]]]) diff --git a/stdlib/source/library/lux/target/jvm/index.lux b/stdlib/source/library/lux/target/jvm/index.lux index 178586d44..6a45de99d 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 - ["." equivalence {"+" [Equivalence]}]] + ["[0]" equivalence {"+" [Equivalence]}]] [data [format [binary {"+" [Writer]}]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [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 6d01eb532..039ae4c0f 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] - ["." ffi {"+" [import: object do_to]}] + ["[0]" ffi {"+" [import: object do_to]}] [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [concurrency - ["." atom {"+" [Atom]}]]] + ["[0]" atom {"+" [Atom]}]]] [data - ["." binary {"+" [Binary]}] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}]]]]]) + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]]]]) (type: .public Library (Atom (Dictionary Text Binary))) @@ -36,29 +36,29 @@ ["Error" error])) (import: java/lang/Object - ["#::." + ["[1]::[0]" (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/String) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (invoke [java/lang/Object [java/lang/Object]] "try" java/lang/Object)]) (import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getDeclaredMethod [java/lang/String [(java/lang/Class [? < java/lang/Object])]] java/lang/reflect/Method)]) (import: java/lang/Integer - ["#::." + ["[1]::[0]" ("static" TYPE (java/lang/Class java/lang/Integer))]) (import: java/lang/reflect/AccessibleObject - ["#::." + ["[1]::[0]" (setAccessible [boolean] void)]) (import: java/lang/ClassLoader - ["#::." + ["[1]::[0]" (loadClass [java/lang/String] "io" "try" (java/lang/Class java/lang/Object))]) diff --git a/stdlib/source/library/lux/target/jvm/magic.lux b/stdlib/source/library/lux/target/jvm/magic.lux index a29a6a73b..eb49b52f3 100644 --- a/stdlib/source/library/lux/target/jvm/magic.lux +++ b/stdlib/source/library/lux/target/jvm/magic.lux @@ -2,12 +2,12 @@ [library [lux "*" [control - ["." try]] + ["[0]" try]] [math [number {"+" [hex]}]]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U4]}]]]) + ["[1][0]" unsigned {"+" [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 d53c7d847..11e8e1c06 100644 --- a/stdlib/source/library/lux/target/jvm/method.lux +++ b/stdlib/source/library/lux/target/jvm/method.lux @@ -3,28 +3,28 @@ [lux {"-" [Type static public private]} [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." product] - ["." format "_" - ["#" binary {"+" [Writer]} ("#\." monoid)]] + ["[0]" product] + ["[0]" format "_" + ["[1]" binary {"+" [Writer]} ("[1]\[0]" monoid)]] [collection - ["." row {"+" [Row]}]]]]] - ["." // "_" - ["#." modifier {"+" [Modifier modifiers:]}] - ["#." index {"+" [Index]}] - ["#." attribute {"+" [Attribute]} - ["#/." code]] - ["#." constant {"+" [UTF8]} - ["#/." pool {"+" [Pool Resource]}]] - ["#." bytecode {"+" [Bytecode]} - ["#/." environment {"+" [Environment]}] - ["#/." instruction]] - ["#." type {"+" [Type]} - ["#/." category] - ["#." descriptor {"+" [Descriptor]}]]]) + ["[0]" row {"+" [Row]}]]]]] + ["[0]" // "_" + ["[1][0]" modifier {"+" [Modifier modifiers:]}] + ["[1][0]" index {"+" [Index]}] + ["[1][0]" attribute {"+" [Attribute]} + ["[1]/[0]" code]] + ["[1][0]" constant {"+" [UTF8]} + ["[1]/[0]" pool {"+" [Pool Resource]}]] + ["[1][0]" bytecode {"+" [Bytecode]} + ["[1]/[0]" environment {"+" [Environment]}] + ["[1]/[0]" instruction]] + ["[1][0]" type {"+" [Type]} + ["[1]/[0]" category] + ["[1][0]" descriptor {"+" [Descriptor]}]]]) (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 86a63b6fe..bb066ab29 100644 --- a/stdlib/source/library/lux/target/jvm/modifier.lux +++ b/stdlib/source/library/lux/target/jvm/modifier.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." equivalence {"+" [Equivalence]}] - ["." monoid {"+" [Monoid]}]] + ["[0]" equivalence {"+" [Equivalence]}] + ["[0]" monoid {"+" [Monoid]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data [format - [".F" binary {"+" [Writer]}]]] + ["[0]F" binary {"+" [Writer]}]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." number {"+" [hex]} - ["." i64]]] + ["[0]" number {"+" [hex]} + ["[0]" i64]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." unsigned]]]) + ["[1][0]" unsigned]]]) (abstract: .public (Modifier of) {} diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 28ef3ca54..5f24cce7f 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -1,67 +1,67 @@ (.module: [library [lux {"-" [type]} - ["." ffi {"+" [import:]}] - ["." type] + ["[0]" ffi {"+" [import:]}] + ["[0]" type] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser ["<t>" text]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)] - ["." array] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" array] + ["[0]" dictionary]]] [math [number ["n" nat]]]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]] + ["[1][0]" name {"+" [External]}]] ["/" type [category {"+" [Void Value Return Method Primitive Object Class Array Parameter]}] - ["#." lux {"+" [Mapping]}] - ["#." descriptor] - ["#." reflection] - ["#." parser]]]) + ["[1][0]" lux {"+" [Mapping]}] + ["[1][0]" descriptor] + ["[1][0]" reflection] + ["[1][0]" parser]]]) (import: java/lang/String) (import: java/lang/Object - ["#::." + ["[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))]) (import: java/lang/reflect/Type - ["#::." + ["[1]::[0]" (getTypeName [] java/lang/String)]) (import: java/lang/reflect/GenericArrayType - ["#::." + ["[1]::[0]" (getGenericComponentType [] java/lang/reflect/Type)]) (import: java/lang/reflect/ParameterizedType - ["#::." + ["[1]::[0]" (getRawType [] java/lang/reflect/Type) (getActualTypeArguments [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/TypeVariable d) - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getBounds [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/WildcardType d) - ["#::." + ["[1]::[0]" (getLowerBounds [] [java/lang/reflect/Type]) (getUpperBounds [] [java/lang/reflect/Type])]) (import: java/lang/reflect/Modifier - ["#::." + ["[1]::[0]" ("static" isStatic [int] boolean) ("static" isFinal [int] boolean) ("static" isInterface [int] boolean) @@ -72,14 +72,14 @@ (import: java/lang/Deprecated) (import: java/lang/reflect/Field - ["#::." + ["[1]::[0]" (getDeclaringClass [] (java/lang/Class java/lang/Object)) (getModifiers [] int) (getGenericType [] java/lang/reflect/Type) (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getModifiers [] int) (getDeclaringClass [] (java/lang/Class java/lang/Object)) @@ -89,7 +89,7 @@ (getGenericExceptionTypes [] [java/lang/reflect/Type])]) (import: (java/lang/reflect/Constructor c) - ["#::." + ["[1]::[0]" (getModifiers [] int) (getDeclaringClass [] (java/lang/Class c)) (getTypeParameters [] [(java/lang/reflect/TypeVariable (java/lang/reflect/Constructor c))]) @@ -99,7 +99,7 @@ (import: java/lang/ClassLoader) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String boolean java/lang/ClassLoader] "try" (java/lang/Class java/lang/Object)) (getName [] java/lang/String) (getModifiers [] int) diff --git a/stdlib/source/library/lux/target/jvm/type.lux b/stdlib/source/library/lux/target/jvm/type.lux index eb3bece00..8cac8e4df 100644 --- a/stdlib/source/library/lux/target/jvm/type.lux +++ b/stdlib/source/library/lux/target/jvm/type.lux @@ -5,25 +5,25 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text + ["[0]" text ["%" format {"+" [Format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]]] - ["." / "_" + ["[1][0]" name {"+" [External]}]]] + ["[0]" / "_" [category {"+" [Void Value' Value Return' Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." signature {"+" [Signature]}] - ["#." descriptor {"+" [Descriptor]}] - ["#." reflection {"+" [Reflection]}]]) + ["[1][0]" signature {"+" [Signature]}] + ["[1][0]" descriptor {"+" [Descriptor]}] + ["[1][0]" reflection {"+" [Reflection]}]]) (abstract: .public (Type category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/alias.lux b/stdlib/source/library/lux/target/jvm/type/alias.lux index cff9f623c..c624f5751 100644 --- a/stdlib/source/library/lux/target/jvm/type/alias.lux +++ b/stdlib/source/library/lux/target/jvm/type/alias.lux @@ -2,27 +2,27 @@ [library [lux {"-" [Type int char type primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] - ["." // {"+" [Type]} + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" // {"+" [Type]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - ["#." descriptor] - ["#." signature {"+" [Signature]}] - ["#." reflection] - ["#." parser] - ["/#" // "_" + ["[1][0]" descriptor] + ["[1][0]" signature {"+" [Signature]}] + ["[1][0]" reflection] + ["[1][0]" parser] + ["/[1]" // "_" [encoding - ["#." name]]]]) + ["[1][0]" name]]]]) (type: .public Aliasing (Dictionary Text Text)) diff --git a/stdlib/source/library/lux/target/jvm/type/category.lux b/stdlib/source/library/lux/target/jvm/type/category.lux index d4ddd056f..b6096e241 100644 --- a/stdlib/source/library/lux/target/jvm/type/category.lux +++ b/stdlib/source/library/lux/target/jvm/type/category.lux @@ -2,7 +2,7 @@ [library [lux "*" [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/target/jvm/type/descriptor.lux b/stdlib/source/library/lux/target/jvm/type/descriptor.lux index 9d0cc7813..85d659e2c 100644 --- a/stdlib/source/library/lux/target/jvm/type/descriptor.lux +++ b/stdlib/source/library/lux/target/jvm/type/descriptor.lux @@ -4,22 +4,22 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["/#" // "_" + ["/[1]" // "_" [encoding - ["#." name {"+" [Internal External]}]]]]) + ["[1][0]" name {"+" [Internal External]}]]]]) (abstract: .public (Descriptor category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index f1609e495..38569af4b 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -2,32 +2,32 @@ [library [lux {"-" [int char type primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]] [type abstract - ["." check {"+" [Check]} ("#\." monad)]]]] - ["." // + ["[0]" check {"+" [Check]} ("[1]\[0]" monad)]]]] + ["[0]" // [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - ["#." descriptor] - ["#." signature] - ["#." reflection] - ["#." parser] - ["#." box] - ["/#" // "_" + ["[1][0]" descriptor] + ["[1][0]" signature] + ["[1][0]" reflection] + ["[1][0]" parser] + ["[1][0]" box] + ["/[1]" // "_" [encoding - ["#." name]]]]) + ["[1][0]" name]]]]) (template [<name>] [(abstract: .public (<name> class) {} Any)] diff --git a/stdlib/source/library/lux/target/jvm/type/parser.lux b/stdlib/source/library/lux/target/jvm/type/parser.lux index 3d68ddb85..f9d79bb16 100644 --- a/stdlib/source/library/lux/target/jvm/type/parser.lux +++ b/stdlib/source/library/lux/target/jvm/type/parser.lux @@ -4,23 +4,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." function] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}]]] + ["[0]" try] + ["[0]" function] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list]]]]] - ["." // {"+" [Type]} + ["[0]" list]]]]] + ["[0]" // {"+" [Type]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." signature] - ["#." descriptor] - ["." // "_" + ["[1][0]" signature] + ["[1][0]" descriptor] + ["[0]" // "_" [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [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 576fb0abc..510505c85 100644 --- a/stdlib/source/library/lux/target/jvm/type/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/type/reflection.lux @@ -4,16 +4,16 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." descriptor] + ["[1][0]" descriptor] [// [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [External]}]]]]) (abstract: .public (Reflection category) {} diff --git a/stdlib/source/library/lux/target/jvm/type/signature.lux b/stdlib/source/library/lux/target/jvm/type/signature.lux index 667457d61..124e3e550 100644 --- a/stdlib/source/library/lux/target/jvm/type/signature.lux +++ b/stdlib/source/library/lux/target/jvm/type/signature.lux @@ -5,18 +5,18 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [type abstract]]] - ["." // "_" + ["[0]" // "_" [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter Declaration]}] - ["#." descriptor] - ["/#" // "_" + ["[1][0]" descriptor] + ["/[1]" // "_" [encoding - ["#." name {"+" [External]}]]]]) + ["[1][0]" name {"+" [External]}]]]]) (abstract: .public (Signature category) {} diff --git a/stdlib/source/library/lux/target/jvm/version.lux b/stdlib/source/library/lux/target/jvm/version.lux index 79e839977..acc54e154 100644 --- a/stdlib/source/library/lux/target/jvm/version.lux +++ b/stdlib/source/library/lux/target/jvm/version.lux @@ -2,10 +2,10 @@ [library [lux "*" [control - ["." try]]]] - ["." // "_" + ["[0]" try]]]] + ["[0]" // "_" [encoding - ["#." unsigned {"+" [U2]}]]]) + ["[1][0]" unsigned {"+" [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 d0c43b23d..4097a3433 100644 --- a/stdlib/source/library/lux/target/lua.lux +++ b/stdlib/source/library/lux/target/lua.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux index 5bc937489..ff6afe19f 100644 --- a/stdlib/source/library/lux/target/php.lux +++ b/stdlib/source/library/lux/target/php.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux index db46ffe6b..038641b6e 100644 --- a/stdlib/source/library/lux/target/python.lux +++ b/stdlib/source/library/lux/target/python.lux @@ -2,24 +2,24 @@ [library [lux {"-" [Location Code Label not or and list if cond int comment exec try]} ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [new> case> cond>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] @@ -33,7 +33,7 @@ (for {@.old (as_is (ffi.import: java/lang/CharSequence) (ffi.import: java/lang/String - ["#::." + ["[1]::[0]" (replace [java/lang/CharSequence java/lang/CharSequence] java/lang/String)]))} (as_is)) diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index e6b4bb611..3e7e5e63e 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -3,19 +3,19 @@ [lux {"-" [Code or and list if function cond not int]} [control [pipe {"+" [case> cond> new>]}] - ["." function] - ["." maybe ("#\." functor)] + ["[0]" function] + ["[0]" maybe ("[1]\[0]" functor)] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["f" frac]]] diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux index 57aa8e41a..fdb76ac76 100644 --- a/stdlib/source/library/lux/target/ruby.lux +++ b/stdlib/source/library/lux/target/ruby.lux @@ -5,20 +5,20 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case> cond> new>]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]] + ["[0]" template] + ["[0]" code]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux index fcf575658..89bea0ca8 100644 --- a/stdlib/source/library/lux/target/scheme.lux +++ b/stdlib/source/library/lux/target/scheme.lux @@ -8,12 +8,12 @@ [control [pipe {"+" [new> cond> case>]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux index 61af7a127..a0d2c802d 100644 --- a/stdlib/source/library/lux/test.lux +++ b/stdlib/source/library/lux/test.lux @@ -1,44 +1,44 @@ (.module: [library [lux {"-" [and for]} - ["." meta] - ["." debug] + ["[0]" meta] + ["[0]" debug] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["." io] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" io] [concurrency - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." name] - ["." text + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set {"+" [Set]}] - ["." dictionary "_" - ["#" ordered {"+" [Dictionary]}]]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set {"+" [Set]}] + ["[0]" dictionary "_" + ["[1]" ordered {"+" [Dictionary]}]]]] [time - ["." instant] - ["." duration {"+" [Duration]}]] + ["[0]" instant] + ["[0]" duration {"+" [Duration]}]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number {"+" [hex]} ["n" nat] ["f" frac]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [world - ["." program]]]]) + ["[0]" program]]]]) (type: .public Tally (Record diff --git a/stdlib/source/library/lux/time.lux b/stdlib/source/library/lux/time.lux index 9bf79a46f..6e0c41380 100644 --- a/stdlib/source/library/lux/time.lux +++ b/stdlib/source/library/lux/time.lux @@ -9,19 +9,19 @@ [monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number - ["n" nat ("#\." decimal)]]] + ["n" nat ("[1]\[0]" decimal)]]] [type abstract]]] [/ - ["." duration {"+" [Duration]}]]) + ["[0]" duration {"+" [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 be4742376..450ab5b0b 100644 --- a/stdlib/source/library/lux/time/date.lux +++ b/stdlib/source/library/lux/time/date.lux @@ -8,25 +8,25 @@ [codec {"+" [Codec]}] [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." list ("#\." mix)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["n" nat ("#\." decimal)] + ["n" nat ("[1]\[0]" decimal)] ["i" int]]] [type abstract]]] - ["." // "_" - ["#." year {"+" [Year]}] - ["#." month {"+" [Month]}]]) + ["[0]" // "_" + ["[1][0]" year {"+" [Year]}] + ["[1][0]" month {"+" [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 ebc24879c..0a5c006d4 100644 --- a/stdlib/source/library/lux/time/day.lux +++ b/stdlib/source/library/lux/time/day.lux @@ -8,12 +8,12 @@ [enum {"+" [Enum]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text]] + ["[0]" text]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/time/duration.lux b/stdlib/source/library/lux/time/duration.lux index 3e8063563..769d38e62 100644 --- a/stdlib/source/library/lux/time/duration.lux +++ b/stdlib/source/library/lux/time/duration.lux @@ -9,19 +9,19 @@ [monoid {"+" [Monoid]}] [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number ["i" int] - ["." nat ("#\." decimal)]]] + ["[0]" nat ("[1]\[0]" decimal)]]] [type abstract]]] - ["." // "_" - ["#." year]]) + ["[0]" // "_" + ["[1][0]" year]]) (abstract: .public Duration {} diff --git a/stdlib/source/library/lux/time/instant.lux b/stdlib/source/library/lux/time/instant.lux index 96856d9b8..7c0ecdc7f 100644 --- a/stdlib/source/library/lux/time/instant.lux +++ b/stdlib/source/library/lux/time/instant.lux @@ -10,27 +10,27 @@ [monad {"+" [Monad do]}]] [control [io {"+" [IO io]}] - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)] + ["[0]" text ("[1]\[0]" monoid)] [collection - ["." row]]] + ["[0]" row]]] [math [number ["i" int] ["f" frac]]] [type abstract]]] - ["." // {"+" [Time]} - ["." duration {"+" [Duration]}] - ["." year {"+" [Year]}] - ["." month {"+" [Month]}] - ["." day {"+" [Day]}] - ["." date {"+" [Date]}]]) + ["[0]" // {"+" [Time]} + ["[0]" duration {"+" [Duration]}] + ["[0]" year {"+" [Year]}] + ["[0]" month {"+" [Month]}] + ["[0]" day {"+" [Day]}] + ["[0]" date {"+" [Date]}]]) (abstract: .public Instant {} diff --git a/stdlib/source/library/lux/time/month.lux b/stdlib/source/library/lux/time/month.lux index 772b58c0b..4ae8ce7f8 100644 --- a/stdlib/source/library/lux/time/month.lux +++ b/stdlib/source/library/lux/time/month.lux @@ -8,12 +8,12 @@ [enum {"+" [Enum]}] [codec {"+" [Codec]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text]] + ["[0]" text]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]]]]) diff --git a/stdlib/source/library/lux/time/year.lux b/stdlib/source/library/lux/time/year.lux index 630e514c3..76fdd859d 100644 --- a/stdlib/source/library/lux/time/year.lux +++ b/stdlib/source/library/lux/time/year.lux @@ -7,16 +7,16 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." text ("#\." monoid)]] + ["[0]" text ("[1]\[0]" monoid)]] [math [number - ["n" nat ("#\." decimal)] - ["i" int ("#\." decimal)]]] + ["n" nat ("[1]\[0]" decimal)] + ["i" int ("[1]\[0]" decimal)]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/tool/compiler.lux b/stdlib/source/library/lux/tool/compiler.lux index 5f9f7e4dd..a91d6846b 100644 --- a/stdlib/source/library/lux/tool/compiler.lux +++ b/stdlib/source/library/lux/tool/compiler.lux @@ -2,18 +2,18 @@ [library [lux {"-" [Module Code]} [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [binary {"+" [Binary]}] - ["." text] + ["[0]" text] [collection - ["." row {"+" [Row]}]]] + ["[0]" row {"+" [Row]}]]] [world - ["." file {"+" [Path]}]]]] + ["[0]" file {"+" [Path]}]]]] [/ [meta - ["." archive {"+" [Output Archive]} + ["[0]" archive {"+" [Output Archive]} [key {"+" [Key]}] [descriptor {"+" [Descriptor Module]}] [document {"+" [Document]}]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/default/init.lux b/stdlib/source/library/lux/tool/compiler/default/init.lux index 2635b73ee..35759ca87 100644 --- a/stdlib/source/library/lux/tool/compiler/default/init.lux +++ b/stdlib/source/library/lux/tool/compiler/default/init.lux @@ -3,52 +3,52 @@ [lux {"-" [Module]} ["@" target {"+" [Target]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary] - ["." set] - ["." row ("#\." functor)]]] - ["." meta] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary] + ["[0]" set] + ["[0]" row ("[1]\[0]" functor)]]] + ["[0]" meta] [world - ["." file]]]] - ["." // "_" - ["/#" // {"+" [Instancer]} - ["#." phase] + ["[0]" file]]]] + ["[0]" // "_" + ["/[1]" // {"+" [Instancer]} + ["[1][0]" phase] [language [lux [program {"+" [Program]}] - ["#." version] - ["#." syntax {"+" [Aliases]}] - ["#." synthesis] - ["#." directive {"+" [Requirements]}] - ["#." generation] - ["#." analysis + ["[1][0]" version] + ["[1][0]" syntax {"+" [Aliases]}] + ["[1][0]" synthesis] + ["[1][0]" directive {"+" [Requirements]}] + ["[1][0]" generation] + ["[1][0]" analysis [macro {"+" [Expander]}] - ["#/." evaluation]] + ["[1]/[0]" evaluation]] [phase - [".P" synthesis] - [".P" directive] - [".P" analysis - ["." module]] - ["." extension {"+" [Extender]} - [".E" analysis] - [".E" synthesis] + ["[0]P" synthesis] + ["[0]P" directive] + ["[0]P" analysis + ["[0]" module]] + ["[0]" extension {"+" [Extender]} + ["[0]E" analysis] + ["[0]E" synthesis] [directive - [".D" lux]]]]]] + ["[0]D" lux]]]]]] [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact] - ["." document]]]] + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact] + ["[0]" document]]]] ]) (def: .public (state target module expander host_analysis host generate generation_bundle) diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index 8d169ff97..c2442dd78 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -3,64 +3,64 @@ [lux {"-" [Module]} [type {"+" [:sharing]}] ["@" target] - ["." debug] + ["[0]" debug] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." function] - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async Resolver]} ("#\." monad)] - ["." stm {"+" [Var STM]}]]] + ["[0]" async {"+" [Async Resolver]} ("[1]\[0]" monad)] + ["[0]" stm {"+" [Var STM]}]]] [data - ["." binary {"+" [Binary]}] - ["." bit] - ["." product] - ["." text ("#\." equivalence) + ["[0]" binary {"+" [Binary]}] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]} ("#\." mix)] - ["." set {"+" [Set]}] - ["." list ("#\." monoid functor mix)]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]} ("[1]\[0]" mix)] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" monoid functor mix)]] [format ["_" binary {"+" [Writer]}]]] [world - ["." file {"+" [Path]}]]]] - ["." // "_" - ["#." init] - ["/#" // - ["#." phase {"+" [Phase]}] + ["[0]" file {"+" [Path]}]]]] + ["[0]" // "_" + ["[1][0]" init] + ["/[1]" // + ["[1][0]" phase {"+" [Phase]}] [language [lux [program {"+" [Program]}] ["$" /] - ["#." version] - ["." syntax] - ["#." analysis + ["[1][0]" version] + ["[0]" syntax] + ["[1][0]" analysis [macro {"+" [Expander]}]] - ["#." synthesis] - ["#." generation {"+" [Buffer]}] - ["#." directive] + ["[1][0]" synthesis] + ["[1][0]" generation {"+" [Buffer]}] + ["[1][0]" directive] [phase - ["." extension {"+" [Extender]}] + ["[0]" extension {"+" [Extender]}] [analysis - ["." module]]]]] + ["[0]" module]]]]] [meta - ["." archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}] - ["." descriptor {"+" [Descriptor Module]}] - ["." document {"+" [Document]}]] + ["[0]" archive {"+" [Output Archive]} + ["[0]" artifact {"+" [Registry]}] + ["[0]" descriptor {"+" [Descriptor Module]}] + ["[0]" document {"+" [Document]}]] [io {"+" [Context]} - ["." context] + ["[0]" context] ["ioW" archive]]]]] [program [compositor [cli {"+" [Compilation Library]}] [import {"+" [Import]}] - ["." static {"+" [Static]}]]]) + ["[0]" static {"+" [Static]}]]]) (with_expansions [<type_vars> (as_is anchor expression directive) <Operation> (as_is ///generation.Operation <type_vars>)] diff --git a/stdlib/source/library/lux/tool/compiler/language/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux.lux index 8d0ac3171..16493d1dc 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux.lux @@ -7,16 +7,16 @@ [data [format ["_" binary {"+" [Writer]}]]]]] - ["." / "_" - ["#." version] + ["[0]" / "_" + ["[1][0]" version] [phase [analysis - ["." module]]] + ["[0]" module]]] [/// [meta [archive - ["." signature] - ["." key {"+" [Key]}]]]]]) + ["[0]" signature] + ["[0]" key {"+" [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 5522749e0..35c150116 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis.lux @@ -6,17 +6,17 @@ [hash {"+" [Hash]}] [monad {"+" [do]}]] [control - ["." function] - ["." maybe] - ["." try] - ["." exception {"+" [Exception]}]] + ["[0]" function] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [Exception]}]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat] @@ -24,16 +24,16 @@ ["r" rev] ["f" frac]]] [meta - ["." location]]]] + ["[0]" location]]]] [// [phase - ["." extension {"+" [Extension]}]] + ["[0]" extension {"+" [Extension]}]] [/// [arity {"+" [Arity]}] [version {"+" [Version]}] - ["." phase] - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" phase] + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]]]]) (type: .public Primitive (.Variant @@ -136,7 +136,7 @@ _ false))) -(implementation: .public (composite_equivalence (^open "/\.")) +(implementation: .public (composite_equivalence (^open "/\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Composite a)))) (def: (= reference sample) 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 94305f30a..5a7ca089f 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,27 +1,27 @@ (.module: [library [lux {"-" [Module]} - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [math [number ["n" nat]]]]] - ["." // {"+" [Operation]} + ["[0]" // {"+" [Operation]} [macro {"+" [Expander]}] [// [phase - [".P" extension] - [".P" synthesis] - [".P" analysis - ["." type]] + ["[0]P" extension] + ["[0]P" synthesis] + ["[0]P" analysis + ["[0]" type]] [// - ["." synthesis] - ["." generation {"+" [Context]}] + ["[0]" synthesis] + ["[0]" generation {"+" [Context]}] [/// - ["." phase] + ["[0]" phase] [meta [archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]]]]) 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 f6b4d0c3b..c0bc4a79e 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 @@ -4,14 +4,14 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] - ["." meta]]] + ["[0]" meta]]] [///// - ["." phase]]) + ["[0]" phase]]) (exception: .public (expansion_failed {macro Name} {inputs (List Code)} {error Text}) (exception.report 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 e2c1899de..dd8d86836 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/directive.lux @@ -4,18 +4,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [collection - ["." list ("#\." monoid)]]]]] + ["[0]" list ("[1]\[0]" monoid)]]]]] [// - ["." analysis] - ["." synthesis] - ["." generation] + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] [phase - ["." extension]] + ["[0]" extension]] [/// - ["." phase] + ["[0]" phase] [meta [archive [descriptor {"+" [Module]}]]]]]) 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 f5eb64da7..efad246fd 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux @@ -4,31 +4,31 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function]] [data [binary {"+" [Binary]}] - ["." product] - ["." name] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" name] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." row {"+" [Row]}] - ["." list ("#\." functor)]]] + ["[0]" row {"+" [Row]}] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]]]] [// [synthesis {"+" [Synthesis]}] [phase - ["." extension]] + ["[0]" extension]] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact]]]]]) + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]]]]]) (type: .public Context [archive.ID artifact.ID]) 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 b52a4de35..c7f8130fe 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 @@ -4,27 +4,27 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]]] - ["." meta - ["." location]]]] - ["." / "_" - ["#." type] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." function] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[0]" meta + ["[0]" location]]]] + ["[0]" / "_" + ["[1][0]" type] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" ["/" analysis {"+" [Analysis Operation Phase]} - ["#." macro {"+" [Expander]}]] + ["[1][0]" macro {"+" [Expander]}]] [/// ["//" phase] - ["." reference] + ["[0]" reference] [meta [archive {"+" [Archive]}]]]]]]) 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 c624c2549..fda27838d 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 @@ -1,38 +1,38 @@ (.module: [library [lux {"-" [case]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monoid functor)]]] + ["[0]" list ("[1]\[0]" mix monoid functor)]]] [math [number ["n" nat]]] [macro - ["." code]] - ["." type - ["." check]]]] - ["." / "_" - ["#." coverage {"+" [Coverage]}] - ["/#" // "_" - ["#." scope] - ["#." type] - ["#." structure] - ["/#" // "_" - ["#." extension] + ["[0]" code]] + ["[0]" type + ["[0]" check]]]] + ["[0]" / "_" + ["[1][0]" coverage {"+" [Coverage]}] + ["/[1]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["[1][0]" structure] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Pattern Analysis Operation Phase]}] [/// - ["#" phase]]]]]]) + ["[1]" phase]]]]]]) (exception: .public (cannot_match_with_pattern {type Type} {pattern Code}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux index eff243340..8427dd68b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/case/coverage.lux @@ -3,26 +3,26 @@ [lux {"-" [Variant]} [abstract equivalence - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit ("#\." equivalence)] - ["." text + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]]]] - ["." //// "_" + ["[0]" //// "_" [// ["/" analysis {"+" [Pattern Variant Operation]}] [/// - ["#" phase ("#\." monad)]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]) (exception: .public (invalid_tuple_pattern) "Tuple size must be >= 2") @@ -210,7 +210,7 @@ _ #0))) -(open: "coverage/." ..equivalence) +(open: "coverage/[0]" ..equivalence) (exception: .public (variants_do_not_match {addition_cases Nat} {so_far_cases Nat}) (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 42eb48102..7574d89aa 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 @@ -4,26 +4,26 @@ [abstract monad] [control - ["." maybe] + ["[0]" maybe] ["ex" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid monad)]]] - ["." type - ["." check]] - ["." meta]]] - ["." // "_" - ["#." scope] - ["#." type] - ["#." inference] - ["/#" // "_" - ["#." extension] + ["[0]" list ("[1]\[0]" monoid monad)]]] + ["[0]" type + ["[0]" check]] + ["[0]" meta]]] + ["[0]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["[1][0]" inference] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Analysis Operation Phase]}] [/// - ["#" phase] + ["[1]" phase] [reference {"+" []} [variable {"+" []}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux index fd49fe528..96d5b870e 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/inference.lux @@ -4,27 +4,27 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]] - ["." type - ["." check]] - ["." meta]]] - ["." // "_" - ["#." type] - ["/#" // "_" - ["#." extension] + ["[0]" type + ["[0]" check]] + ["[0]" meta]]] + ["[0]" // "_" + ["[1][0]" type] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Tag Analysis Operation Phase]}] [/// - ["#" phase ("#\." monad)] + ["[1]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux index 1657f2b84..62bf284c3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/module.lux @@ -2,25 +2,25 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix functor)] + ["[0]" list ("[1]\[0]" mix functor)] [dictionary - ["." plist]]]] - ["." meta]]] - ["." /// "_" - ["#." extension] + ["[0]" plist]]]] + ["[0]" meta]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation]}] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (type: .public Tag Text) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux index d3351fdf8..17b41ba71 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/primitive.lux @@ -3,13 +3,13 @@ [lux {"-" [nat int rev]} [abstract monad]]] - ["." // "_" - ["#." type] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" type] + ["/[1]" // "_" [// ["/" analysis {"+" [Analysis Operation]}] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (template [<name> <type> <tag>] [(def: .public (<name> value) 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 490b7d24a..b38712c22 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 @@ -4,21 +4,21 @@ [abstract monad] [control - ["." exception {"+" [exception:]}]] - ["." meta] + ["[0]" exception {"+" [exception:]}]] + ["[0]" meta] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]]]] - ["." // "_" - ["#." scope] - ["#." type] - ["/#" // "_" - ["#." extension] + ["[0]" // "_" + ["[1][0]" scope] + ["[1][0]" type] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Analysis Operation]}] [/// - ["#." reference] - ["#" phase]]]]]) + ["[1][0]" reference] + ["[1]" phase]]]]]) (exception: .public (foreign_module_has_not_been_imported {current Text} {foreign Text}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux index 4f99341c0..aa452e685 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/scope.lux @@ -4,24 +4,24 @@ [abstract monad] [control - ["." maybe ("#\." monad)] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" monad)] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence)] - ["." product] + ["[0]" text ("[1]\[0]" equivalence)] + ["[0]" product] [collection - ["." list ("#\." functor mix monoid)] + ["[0]" list ("[1]\[0]" functor mix monoid)] [dictionary - ["." plist]]]]]] - ["." /// "_" - ["#." extension] + ["[0]" plist]]]]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation Phase]}] [/// [reference - ["." variable {"+" [Register Variable]}]] - ["#" phase]]]]) + ["[0]" variable {"+" [Register Variable]}]] + ["[1]" phase]]]]) (type: Local (Bindings Text [Type Register])) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux index 7d544b4e6..3c18c178b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/structure.lux @@ -1,39 +1,39 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] - ["." state]] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] + ["[0]" state]] [data - ["." name] - ["." product] + ["[0]" name] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat]]] - ["." type - ["." check]]]] - ["." // "_" - ["#." type] - ["#." primitive] - ["#." inference] - ["/#" // "_" - ["#." extension] + ["[0]" type + ["[0]" check]]]] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" primitive] + ["[1][0]" inference] + ["/[1]" // "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Tag Analysis Operation Phase]}] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux index 33c58b397..7a5bde817 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/type.lux @@ -4,17 +4,17 @@ [abstract [monad {"+" [do]}]] [control - ["." function] - ["." try]] + ["[0]" function] + ["[0]" try]] [type - ["." check {"+" [Check]}]] - ["." meta]]] - ["." /// "_" - ["#." extension] + ["[0]" check {"+" [Check]}]] + ["[0]" meta]]] + ["[0]" /// "_" + ["[1][0]" extension] [// ["/" analysis {"+" [Operation]}] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (def: .public (with_type expected) (All (_ a) (-> Type (Operation a) (Operation a))) 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 652330748..7a42fbb7e 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 @@ -1,26 +1,26 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monoid)]]]]] - ["." // "_" - ["#." extension] - ["#." analysis - ["#/." type]] - ["/#" // "_" + ["[0]" list ("[1]\[0]" mix monoid)]]]]] + ["[0]" // "_" + ["[1][0]" extension] + ["[1][0]" analysis + ["[1]/[0]" type]] + ["/[1]" // "_" ["/" directive {"+" [Phase]}] - ["#." analysis - ["." evaluation] - ["#/." macro {"+" [Expander]}]] + ["[1][0]" analysis + ["[0]" evaluation] + ["[1]/[0]" macro {"+" [Expander]}]] [/// ["//" phase] [reference {"+" []} 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 4812e38e3..637c7e0a6 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 @@ -4,18 +4,18 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text ("#\." order) + ["[0]" product] + ["[0]" text ("[1]\[0]" order) ["%" format {"+" [Format format]}]] [collection - ["." list] - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" list] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [///// ["//" phase] [meta 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 1cba7387f..7cc98e804 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 @@ -3,12 +3,12 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [//// [analysis {"+" [Bundle]} [evaluation {"+" [Eval]}]]] - ["." / "_" - ["#." lux]]) + ["[0]" / "_" + ["[1][0]" lux]]) (def: .public (bundle eval host_specific) (-> Eval Bundle Bundle) 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 7f013b821..199bac7ce 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 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" common_lisp]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[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 d0e1c2fa4..f5f47f98d 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" js]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler 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 fc78d4fdb..8591286fb 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,59 +1,59 @@ (.module: [library [lux {"-" [Type Module primitive type char int]} - ["." ffi {"+" [import:]}] - ["." meta] + ["[0]" ffi {"+" [import:]}] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]} ("#\." monad)] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" monad)] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" code {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." mix monad monoid)] - ["." array] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix monad monoid)] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]] [target - ["." jvm "_" - [".!" reflection] + ["[0]" jvm "_" + ["[0]!" reflection] [encoding [name {"+" [External]}]] - ["#" type {"+" [Type Argument Typed]} ("#\." equivalence) - ["." category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] - ["." box] - ["." reflection] - ["." descriptor] - ["." signature] - ["#_." parser] - ["#_." alias {"+" [Aliasing]}] - [".T" lux {"+" [Mapping]}]]]] - ["." type - ["." check {"+" [Check]} ("#\." monad)]]]] - ["." // "_" - ["#." lux {"+" [custom]}] - ["/#" // - ["#." bundle] - ["/#" // "_" + ["[1]" type {"+" [Type Argument Typed]} ("[1]\[0]" equivalence) + ["[0]" category {"+" [Void Value' Value Return' Return Primitive Object Class Array Var Parameter Method]}] + ["[0]" box] + ["[0]" reflection] + ["[0]" descriptor] + ["[0]" signature] + ["[1]_[0]" parser] + ["[1]_[0]" alias {"+" [Aliasing]}] + ["[0]T" lux {"+" [Mapping]}]]]] + ["[0]" type + ["[0]" check {"+" [Check]} ("[1]\[0]" monad)]]]] + ["[0]" // "_" + ["[1][0]" lux {"+" [custom]}] + ["/[1]" // + ["[1][0]" bundle] + ["/[1]" // "_" [analysis - [".A" type] - [".A" inference] - ["." scope]] - ["/#" // "_" - ["#." analysis {"+" [Analysis Operation Phase Handler Bundle]}] - ["#." synthesis] + ["[0]A" type] + ["[0]A" inference] + ["[0]" scope]] + ["/[1]" // "_" + ["[1][0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[1][0]" synthesis] [/// - ["." phase ("#\." monad)] + ["[0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]]]]) @@ -61,18 +61,18 @@ (import: java/lang/ClassLoader) (import: java/lang/Object - ["#::." + ["[1]::[0]" (equals [java/lang/Object] boolean)]) (import: java/lang/reflect/Type) (import: (java/lang/reflect/TypeVariable d) - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getBounds [] [java/lang/reflect/Type])]) (import: java/lang/reflect/Modifier - ["#::." + ["[1]::[0]" ("static" isStatic [int] boolean) ("static" isFinal [int] boolean) ("static" isInterface [int] boolean) @@ -81,7 +81,7 @@ (import: java/lang/annotation/Annotation) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (getModifiers [] int) (getDeclaringClass [] (java/lang/Class java/lang/Object)) @@ -92,7 +92,7 @@ (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: (java/lang/reflect/Constructor c) - ["#::." + ["[1]::[0]" (getModifiers [] int) (getDeclaringClass [] (java/lang/Class c)) (getTypeParameters [] [(java/lang/reflect/TypeVariable (java/lang/reflect/Constructor c))]) @@ -101,7 +101,7 @@ (getDeclaredAnnotations [] [java/lang/annotation/Annotation])]) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object)) (getName [] java/lang/String) (getModifiers [] int) 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 83aad6970..dd7d43516 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" lua]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: Nil (for {@.lua ffi.Nil} 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 f83870333..bf517b526 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,35 +2,35 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number ["n" nat]]] [type - ["." check]] - ["." meta]]] - ["." /// - ["#." bundle] - ["/#" // "_" + ["[0]" check]] + ["[0]" meta]]] + ["[0]" /// + ["[1][0]" bundle] + ["/[1]" // "_" [analysis - [".A" type]] + ["[0]A" type]] [// - ["#." analysis {"+" [Analysis Operation Phase Handler Bundle]} + ["[1][0]" analysis {"+" [Analysis Operation Phase Handler Bundle]} [evaluation {"+" [Eval]}]] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]]) 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 631e22949..227bc4539 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" php]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler 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 6b43a1179..2f07f677b 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" python]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler 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 b9a92f5fe..f0e6cb835 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 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" r]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[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 bcb639c95..d267ca612 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" ruby]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler 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 0e149963c..688803a33 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 @@ -1,32 +1,32 @@ (.module: [library [lux "*" - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["<>" parser ["<c>" code {"+" [Parser]}]]] [data [collection - ["." array {"+" [Array]}] - ["." dictionary] - ["." list]]] - ["." type - ["." check]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary] + ["[0]" list]]] + ["[0]" type + ["[0]" check]] ["@" target ["_" scheme]]]] [// ["/" lux {"+" [custom]}] [// - ["." bundle] + ["[0]" bundle] [// - ["." analysis "_" - ["#/." type]] + ["[0]" analysis "_" + ["[1]/[0]" type]] [// - ["." analysis {"+" [Analysis Operation Phase Handler Bundle]}] + ["[0]" analysis {"+" [Analysis Operation Phase Handler Bundle]}] [/// - ["." phase]]]]]]) + ["[0]" phase]]]]]]) (def: array::new Handler 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 07efebff3..b8c30a7bb 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 @@ -4,11 +4,11 @@ [abstract [monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [// {"+" [Handler Bundle]}]) (def: .public empty 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 8f98a4a0c..6dc2b393d 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,65 +1,65 @@ (.module: [library [lux {"-" [Type Definition]} - ["." host] + ["[0]" host] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["<>" parser ("#\." monad) + ["<>" parser ("[1]\[0]" monad) ["<c>" code {"+" [Parser]}] ["<t>" text]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary] - ["." row]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary] + ["[0]" row]]] [macro - ["." template]] + ["[0]" template]] [math [number - ["." i32]]] + ["[0]" i32]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." attribute] - ["." field] - ["." version] - ["." class] - ["." constant - ["." pool {"+" [Resource]}]] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" attribute] + ["[0]" field] + ["[0]" version] + ["[0]" class] + ["[0]" constant + ["[0]" pool {"+" [Resource]}]] [encoding - ["." name]] - ["." type {"+" [Type Constraint Argument Typed]} + ["[0]" name]] + ["[0]" type {"+" [Type Constraint Argument Typed]} [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] - [".T" lux {"+" [Mapping]}] - ["." signature] - ["." descriptor {"+" [Descriptor]}] - ["." parser]]]] + ["[0]T" lux {"+" [Mapping]}] + ["[0]" signature] + ["[0]" descriptor {"+" [Descriptor]}] + ["[0]" parser]]]] [tool [compiler - ["." analysis] - ["." synthesis] - ["." generation] - ["." directive {"+" [Handler Bundle]}] - ["." phase + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] + ["[0]" directive {"+" [Handler Bundle]}] + ["[0]" phase [analysis - [".A" type]] - ["." generation + ["[0]A" type]] + ["[0]" generation [jvm [runtime {"+" [Anchor Definition]}]]] - ["." extension - ["." bundle] + ["[0]" extension + ["[0]" bundle] [analysis - ["." jvm]] + ["[0]" jvm]] [directive ["/" lux]]]]]] [type - ["." check {"+" [Check]}]]]]) + ["[0]" check {"+" [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 c1c0ee476..c9a050c6d 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 @@ -1,47 +1,47 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [io {"+" [IO]}] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [macro - ["." code]] + ["[0]" code]] [math [number ["n" nat]]] - ["." type {"+" [:sharing]} - ["." check]]]] - ["." /// {"+" [Extender]} - ["#." bundle] - ["#." analysis] - ["/#" // "_" + ["[0]" type {"+" [:sharing]} + ["[0]" check]]]] + ["[0]" /// {"+" [Extender]} + ["[1][0]" bundle] + ["[1][0]" analysis] + ["/[1]" // "_" [analysis - ["." module] - [".A" type]] - ["/#" // "_" - ["#." analysis + ["[0]" module] + ["[0]A" type]] + ["/[1]" // "_" + ["[1][0]" analysis [macro {"+" [Expander]}] - ["#/." evaluation]] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["#." directive {"+" [Import Requirements Phase Operation Handler Bundle]}] - ["#." program {"+" [Program]}] + ["[1]/[0]" evaluation]] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation {"+" [Context]}] + ["[1][0]" directive {"+" [Import Requirements Phase Operation Handler Bundle]}] + ["[1][0]" program {"+" [Program]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive {"+" [Archive]}]]]]]]) + ["[0]" archive {"+" [Archive]}]]]]]]) (def: .public (custom [syntax handler]) (All (_ anchor expression directive s) 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 0992cd220..269dcfc5d 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [common_lisp 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 e10996079..facb40e7e 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,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" common_lisp {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" common_lisp "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 5a3e8bc9a..6d5f5fdd5 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 @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" common_lisp {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" common_lisp "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[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 4f4bb191f..967a2df34 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [js 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 6e910d32c..1072bffe4 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,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [math [number ["f" frac]]] ["@" target ["_" js {"+" [Literal Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" js "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function]]] [// [analysis {"+" []}] - ["." synthesis {"+" [%synthesis]}] + ["[0]" synthesis {"+" [%synthesis]}] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 a78bfe796..49d99437e 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,33 +2,33 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [target ["_" js {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" js "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: array::new (Unary Expression) 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 cbd03e12b..77c0d6572 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [jvm 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 56daa1075..2ff3fd02a 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,43 +2,43 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [number - ["." i32] + ["[0]" i32] ["f" frac]] [collection - ["." list ("#\." monad)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] [encoding - ["." signed {"+" [S4]}]] - ["." type {"+" [Type]} + ["[0]" signed {"+" [S4]}]] + ["[0]" type {"+" [Type]} [category {"+" [Primitive Class]}]]]]]] - ["." ///// "_" + ["[0]" ///// "_" [generation [extension {"+" [Nullary Unary Binary Trinary Variadic nullary unary binary trinary variadic]}] ["///" jvm "_" - ["#." value] - ["#." runtime {"+" [Operation Phase Bundle Handler]}] - ["#." function "_" - ["#" abstract]]]] + ["[1][0]" value] + ["[1][0]" runtime {"+" [Operation Phase Bundle Handler]}] + ["[1][0]" function "_" + ["[1]" abstract]]]] [extension - ["#extension" /] - ["#." bundle]] + ["[1]extension" /] + ["[1][0]" bundle]] [// - ["/#." synthesis {"+" [Synthesis %synthesis]}] + ["/[1][0]" synthesis {"+" [Synthesis %synthesis]}] [/// - ["#" phase] + ["[1]" phase] [meta [archive {"+" [Archive]}]]]]]) 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 847609d5d..ac5f0fce9 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,72 +2,72 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] ["<>" parser ["<t>" text] ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [number - ["." i32]] + ["[0]" i32]] [collection - ["." list ("#\." monad)] - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." version] - ["." modifier ("#\." monoid)] - ["." method {"+" [Method]}] - ["." class {"+" [Class]}] + ["[0]" version] + ["[0]" modifier ("[1]\[0]" monoid)] + ["[0]" method {"+" [Method]}] + ["[0]" class {"+" [Class]}] [constant [pool {"+" [Resource]}]] [encoding - ["." name]] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad) + ["[0]" name]] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad) ["__" instruction {"+" [Primitive_Array_Type]}]] - ["." type {"+" [Type Typed Argument]} - ["." category {"+" [Void Value' Value Return' Return Primitive Object Array Var Parameter]}] - ["." box] - ["." reflection] - ["." signature] - ["." parser]]]]]] - ["." // "_" + ["[0]" type {"+" [Type Typed Argument]} + ["[0]" category {"+" [Void Value' Value Return' Return Primitive Object Array Var Parameter]}] + ["[0]" box] + ["[0]" reflection] + ["[0]" signature] + ["[0]" parser]]]]]] + ["[0]" // "_" [common {"+" [custom]}] - ["///#" //// "_" + ["///[1]" //// "_" [generation [extension {"+" [Nullary Unary Binary Trinary Variadic nullary unary binary trinary variadic]}] ["///" jvm - ["#." runtime {"+" [Operation Bundle Phase Handler]}] - ["#." reference] + ["[1][0]" runtime {"+" [Operation Bundle Phase Handler]}] + ["[1][0]" reference] [function [field [variable - ["." foreign]]]]]] + ["[0]" foreign]]]]]] [extension - ["#." bundle] + ["[1][0]" bundle] [analysis ["/" jvm]]] - ["/#" // "_" + ["/[1]" // "_" [analysis {"+" [Environment]}] - ["#." synthesis {"+" [Synthesis Path %synthesis]}] - ["#." generation] + ["[1][0]" synthesis {"+" [Synthesis Path %synthesis]}] + ["[1][0]" generation] [/// - ["#" phase] + ["[1]" phase] [reference - ["#." variable {"+" [Variable]}]] + ["[1][0]" variable {"+" [Variable]}]] [meta - ["." archive {"+" [Archive]}]]]]]]) + ["[0]" archive {"+" [Archive]}]]]]]]) (template [<name> <0> <1>] [(def: <name> 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 55320a5dd..37a52ca08 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [lua 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 f40334ae1..e71de0758 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,44 +2,44 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" lua {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" lua "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 336736dac..4cbfa5401 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,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" lua {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" lua "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: array::new (Unary Expression) 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 1815d08fa..1e07b97ce 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [php 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 9c58243d3..d5f740ed4 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,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" php {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" php "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 aaff32f29..c13c86c19 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,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" php {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" php "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary Expression) 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 17c4e2402..54ab164b6 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [python 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 b6345fac4..03cb557dc 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,46 +2,46 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser - ["<.>" synthesis {"+" [Parser]}]]] + ["<[0]>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] [target ["_" python {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation - ["." reference] + ["[0]" reference] [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" python "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop]]] [// [analysis {"+" []}] - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (statement expression archive synthesis) Phase! 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 e802fcfe8..422a21b47 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,33 +2,33 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [target ["_" python {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" python "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary (Expression Any)) 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 256bca1b1..56a20b22c 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [r 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 8515f321b..68725c83a 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,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" r {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" r "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 38613dbe3..38b20cb41 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 @@ -2,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" r {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" r "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[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 e638baf9e..5c4160d69 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [ruby 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 b570e2bf9..a253cb8de 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,44 +2,44 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] [target ["_" ruby {"+" [Expression Statement]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] ["//" ruby "_" - ["#." runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop]]] + ["[1][0]" runtime {"+" [Operation Phase Phase! Handler Bundle Generator]}] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase ("#\." monad)]]]]]) + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 1a0c27c4d..f44831709 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,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" ruby {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" ruby "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new [size]) (Unary Expression) 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 83b5f4a56..52cafa261 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 @@ -3,10 +3,10 @@ [lux "*" [data [collection - ["." dictionary]]]]] - ["." / "_" - ["#." common] - ["#." host] + ["[0]" dictionary]]]]] + ["[0]" / "_" + ["[1][0]" common] + ["[1][0]" host] [//// [generation [scheme 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 62edb14aa..bc2ad5cba 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,41 +2,41 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["f" frac]]] ["@" target ["_" scheme {"+" [Expression]}]]]] - ["." //// "_" + ["[0]" //// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" scheme "_" - ["#." runtime {"+" [Operation Phase Handler Bundle Generator]}] - ["#." case]]] + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle Generator]}] + ["[1][0]" case]]] [// - ["." synthesis {"+" [%synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [%synthesis]}] + ["[0]" generation] [/// - ["#" phase]]]]]) + ["[1]" phase]]]]]) (def: .public (custom [parser handler]) (All (_ s) 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 10992b491..b389f72dd 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,36 +2,36 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser ["<s>" synthesis {"+" [Parser]}]]] [data [collection - ["." dictionary] - ["." list]] + ["[0]" dictionary] + ["[0]" list]] [text ["%" format {"+" [format]}]]] [target ["_" scheme {"+" [Var Expression]}]]]] - ["." // "_" - ["#." common {"+" [custom]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" common {"+" [custom]}] + ["//[1]" /// "_" ["/" bundle] - ["/#" // "_" - ["." extension] + ["/[1]" // "_" + ["[0]" extension] [generation [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] - ["." reference] + ["[0]" reference] ["//" scheme "_" - ["#." runtime {"+" [Operation Phase Handler Bundle - with_vars]}]]] - ["/#" // "_" - ["." generation] - ["//#" /// "_" - ["#." phase]]]]]]) + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle + with_vars]}]]] + ["/[1]" // "_" + ["[0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase]]]]]]) (def: (array::new size) (Unary Expression) 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 69be9bd6e..e68f8b780 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 @@ -2,7 +2,7 @@ [library [lux "*"]] [// - ["." bundle] + ["[0]" bundle] [/// [synthesis {"+" [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 00f493422..1b1f29f46 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 @@ -3,23 +3,23 @@ [lux "*" [abstract [monad {"+" [do]}]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 34208d7f3..90f67a68a 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,36 +2,36 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix monoid)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" common_lisp {"+" [Expression Var/1]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) 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 6e255664b..ebdd43f89 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 @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[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 ec5baaf7f..6144a74c6 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,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [number ["f" frac]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#." primitive] + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1][0]" primitive] [// [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] [// [extension - ["." bundle]]]]]) + ["[0]" bundle]]]]]) (def: lux_procs 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 27d017a8a..5f38c7bad 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,30 +2,30 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target ["_" common_lisp {"+" [Expression Var/1]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/loop.lux index 670fb1b12..bae37c835 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,31 +2,31 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 0ee7c1e55..0f7c76ed8 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 @@ -1,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." list ("#\." functor monoid)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor monoid)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" common_lisp {"+" [Expression Computation Literal]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [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 d370aca6a..eb78e6402 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 @@ -2,17 +2,17 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" common_lisp {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [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 afb6af8a5..962323b3d 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,24 +2,24 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list ("#\." functor)]]] - ["." meta] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" meta] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]}]]]] - ["." /// "_" - ["#." extension] + ["[0]" /// "_" + ["[1][0]" extension] [// [synthesis {"+" [Synthesis]}] - ["." generation] + ["[0]" generation] [/// - ["#" phase]]]]) + ["[1]" phase]]]]) (syntax: (Vector [size <code>.nat elemT <code>.any]) 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 c37946c77..e6aa9cdce 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 @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" js]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [js - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 2ed5094bc..5f634c533 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,33 +2,33 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text] + ["[0]" text] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [target ["_" js {"+" [Expression Computation Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["//[1]" /// "_" [reference [variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux index 44001087c..f9e8d9c10 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,28 +2,28 @@ [library [lux {"-" [Variant Tuple function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" js {"+" [Expression Computation Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) 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 461e565b0..52600eaeb 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,26 +2,26 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] [target ["_" js {"+" [Computation Var Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["///#" //// "_" + ["[1][0]" case] + ["///[1]" //// "_" [synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference [variable {"+" [Register]}]]]]]) 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 ba2d683f0..e8145500a 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 @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" js {"+" [Computation]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit _.boolean) 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 08160d998..58bf53a29 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 @@ -1,28 +1,28 @@ (.module: [library [lux {"-" [i64]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] [target ["_" js {"+" [Expression Var Computation Statement]}]] [tool @@ -30,18 +30,18 @@ [language [lux ["$" version]]]]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 84af08804..c4284d345 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,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" js {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm.lux index 07045ccdd..c2a125d4a 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 @@ -3,21 +3,21 @@ [lux "*" [abstract [monad {"+" [do]}]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["//#" /// "_" - ["#." extension] + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["//[1]" /// "_" + ["[1][0]" extension] [// - ["." synthesis] + ["[0]" synthesis] [/// - ["." reference] - ["#" phase ("#\." monad)]]]]]) + ["[0]" reference] + ["[1]" phase ("[1]\[0]" monad)]]]]]) (def: .public (generate archive synthesis) Phase diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/case.lux index 61f9ce83b..075e8d68a 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,30 +2,30 @@ [library [lux {"-" [Type if let case int]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data [number - ["." i32] + ["[0]" i32] ["n" nat]] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." type {"+" [Type]} + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] + ["[0]" type {"+" [Type]} [category {"+" [Method]}]]]]]] - ["." // "_" - ["#." type] - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." value] - ["#." structure] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" value] + ["[1][0]" structure] [//// - ["." synthesis {"+" [Path Synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [Path Synthesis]}] + ["[0]" generation] [/// - ["." phase ("operation\." monad)] + ["[0]" phase ("operation\[0]" monad)] [reference [variable {"+" [Register]}]]]]]) 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 d4a2c34f4..d1785ac0a 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 @@ -4,14 +4,14 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try {"+" [Try]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] [text ["%" format {"+" [format]}]]] [world - ["." file {"+" [File]}]]]]) + ["[0]" file {"+" [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 d8adc4f60..0aa307c72 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,59 +2,59 @@ [library [lux {"-" [Type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number - ["." i32] + ["[0]" i32] ["n" nat]] [collection - ["." list ("#\." monoid functor)] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" list ("[1]\[0]" monoid functor)] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." version] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." class {"+" [Class]}] - ["." type {"+" [Type]} + ["[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']}] - ["." reflection]] - ["." constant + ["[0]" reflection]] + ["[0]" constant [pool {"+" [Resource]}]] [encoding - ["." name {"+" [External Internal]}] - ["." unsigned]]]] + ["[0]" name {"+" [External Internal]}] + ["[0]" unsigned]]]] [tool [compiler [meta - ["." archive {"+" [Archive]}]]]]]] - ["." / "_" - ["#." abstract] + ["[0]" archive {"+" [Archive]}]]]]]] + ["[0]" / "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] + ["[1][0]" foreign] + ["[1][0]" partial]]] [method - ["#." init] - ["#." new] - ["#." implementation] - ["#." reset] - ["#." apply]] - ["/#" // "_" - ["#." runtime {"+" [Operation Phase Generator]}] + ["[1][0]" init] + ["[1][0]" new] + ["[1][0]" implementation] + ["[1][0]" reset] + ["[1][0]" apply]] + ["/[1]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis Abstraction Apply]}] - ["." generation] + ["[0]" generation] [/// - ["." arity {"+" [Arity]}] - ["." phase] + ["[0]" arity {"+" [Arity]}] + ["[0]" phase] [reference [variable {"+" [Register]}]]]]]]) 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 653af8aaf..50f29310f 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 @@ -6,12 +6,12 @@ ["%" format]]] [target [jvm - ["." type {"+" [Type]} + ["[0]" type {"+" [Type]} [category {"+" [Method]}]]]]]] [// [field [constant - ["." arity]]]]) + ["[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 abbf547d4..510e77552 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 @@ -3,11 +3,11 @@ [lux {"-" [Type type]} [data [collection - ["." row]]] + ["[0]" row]]] [target [jvm - ["." field {"+" [Field]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] [type {"+" [Type]} [category {"+" [Value]}]] [constant 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 365e68c2c..ede38774c 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 @@ -3,11 +3,11 @@ [lux {"-" [type]} [target [jvm - ["." type] - ["." field {"+" [Field]}] + ["[0]" type] + ["[0]" field {"+" [Field]}] [constant [pool {"+" [Resource]}]]]]]] - ["." // + ["[0]" // [///////// [arity {"+" [Arity]}]]]) 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 7a8493260..d62a1f5d3 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/field/variable.lux @@ -3,20 +3,20 @@ [lux {"-" [Type type]} [data [collection - ["." list ("#\." functor)] - ["." row]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] [target [jvm - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] ["_" bytecode {"+" [Bytecode]}] [type {"+" [Type]} [category {"+" [Value Class]}]] [constant [pool {"+" [Resource]}]]]]]] - ["." //// "_" - ["#." type] - ["#." reference] + ["[0]" //// "_" + ["[1][0]" type] + ["[1][0]" reference] [////// [reference [variable {"+" [Register]}]]]]) 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 f2c1e2189..c21896ac9 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 @@ -2,16 +2,16 @@ [library [lux {"-" [type]} [control - ["." try]] + ["[0]" try]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding [name {"+" [External]}] - ["." signed]]]]]] - ["." //// "_" - ["#." abstract]]) + ["[0]" signed]]]]]] + ["[0]" //// "_" + ["[1][0]" abstract]]) (def: .public field "partials") (def: .public type type.int) 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 53a486d88..f1f03af6c 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 @@ -3,19 +3,19 @@ [lux {"-" [Type]} [data [collection - ["." list] - ["." row]]] + ["[0]" list] + ["[0]" row]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." field {"+" [Field]}] + ["[0]" field {"+" [Field]}] [constant [pool {"+" [Resource]}]] [type {"+" [Type]} [category {"+" [Value Class]}]]]]]] - ["." // - ["///#" //// "_" - ["#." reference] + ["[0]" // + ["///[1]" //// "_" + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] 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 1755ea7df..e2bee647f 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 @@ -2,31 +2,31 @@ [library [lux {"-" [Type]} [abstract - ["." monad]] + ["[0]" monad]] [data [number ["n" nat]] [collection - ["." list ("#\." functor)] - ["." row]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] [target [jvm - ["." field {"+" [Field]}] - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] + ["[0]" field {"+" [Field]}] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] [type {"+" [Type]} [category {"+" [Class]}]] [constant [pool {"+" [Resource]}]]]]]] - ["." / "_" - ["#." count] - ["/#" // - ["/#" // "_" + ["[0]" / "_" + ["[1][0]" count] + ["/[1]" // + ["/[1]" // "_" [constant - ["#." arity]] - ["//#" /// "_" - ["#." reference] + ["[1][0]" arity]] + ["//[1]" /// "_" + ["[1][0]" reference] [////// - ["." arity {"+" [Arity]}] + ["[0]" arity {"+" [Arity]}] [reference [variable {"+" [Register]}]]]]]]]) 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 6463a0983..1269972ec 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 - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." method {"+" [Method]}]]]]]) + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" method {"+" [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 bb78e1b8a..a16c047e7 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,43 +2,43 @@ [library [lux {"-" [Type type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [number ["n" nat] ["i" int] - ["." i32]] + ["[0]" i32]] [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)] - ["." method {"+" [Method]}] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)] + ["[0]" method {"+" [Method]}] [constant [pool {"+" [Resource]}]] [encoding - ["." signed]] - ["." type {"+" [Type]} - ["." category {"+" [Class]}]]]]]] - ["." // - ["#." reset] - ["#." implementation] - ["#." init] - ["/#" // "_" - ["#." abstract] + ["[0]" signed]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class]}]]]]]] + ["[0]" // + ["[1][0]" reset] + ["[1][0]" implementation] + ["[1][0]" init] + ["/[1]" // "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." partial - ["#/." count]] - ["#." foreign]]] - ["/#" // "_" - ["#." runtime] - ["#." value] - ["#." reference] + ["[1][0]" partial + ["[1]/[0]" count]] + ["[1][0]" foreign]]] + ["/[1]" // "_" + ["[1][0]" runtime] + ["[1][0]" value] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] 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 12c181265..ae02754ae 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 @@ -3,18 +3,18 @@ [lux {"-" [Type type]} [data [collection - ["." list]]] + ["[0]" list]]] [target [jvm - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Label Bytecode]}] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category]]]]]] - ["." // - ["//#" /// "_" - ["#." type] + ["[0]" type {"+" [Type]} + ["[0]" category]]]]]] + ["[0]" // + ["//[1]" /// "_" + ["[1][0]" type] [////// [arity {"+" [Arity]}]]]]) 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 05cb6db7d..e39e582db 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 @@ -2,42 +2,42 @@ [library [lux {"-" [Type type]} [abstract - ["." monad]] + ["[0]" monad]] [control - ["." try]] + ["[0]" try]] [data [number ["n" nat]] [collection - ["." list ("#\." monoid functor)]]] + ["[0]" list ("[1]\[0]" monoid functor)]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] [encoding - ["." unsigned]] + ["[0]" unsigned]] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category {"+" [Class Value]}]]]]]] - ["." // - ["#." implementation] - ["/#" // "_" - ["#." abstract] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class Value]}]]]]]] + ["[0]" // + ["[1][0]" implementation] + ["/[1]" // "_" + ["[1][0]" abstract] [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] - ["/#" // "_" - ["#." type] - ["#." reference] + ["[1][0]" foreign] + ["[1][0]" partial]]] + ["/[1]" // "_" + ["[1][0]" type] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}] + ["[0]" arity {"+" [Arity]}] [reference [variable {"+" [Register]}]]]]]]]) 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 85e19d830..0e8365945 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,45 +2,45 @@ [library [lux {"-" [Type type]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number ["n" nat]] [collection - ["." list]]] + ["[0]" list]]] [target [jvm - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Bytecode]}] - ["." constant + ["[0]" constant [pool {"+" [Resource]}]] [type {"+" [Type]} - ["." category {"+" [Class Value Return]}]]]] + ["[0]" category {"+" [Class Value Return]}]]]] [tool [compiler [meta - ["." archive {"+" [Archive]}]]]]]] - ["." // - ["#." init] - ["#." implementation] - ["/#" // "_" + ["[0]" archive {"+" [Archive]}]]]]]] + ["[0]" // + ["[1][0]" init] + ["[1][0]" implementation] + ["/[1]" // "_" [field [constant - ["#." arity]] + ["[1][0]" arity]] [variable - ["#." foreign] - ["#." partial]]] - ["/#" // "_" + ["[1][0]" foreign] + ["[1][0]" partial]]] + ["/[1]" // "_" [runtime {"+" [Operation Phase]}] - ["#." value] - ["#." reference] + ["[1][0]" value] + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}] - ["." phase]]]]]]) + ["[0]" arity {"+" [Arity]}] + ["[0]" phase]]]]]]) (def: .public (instance' foreign_setup class environment arity) (-> (List (Bytecode Any)) (Type Class) (Environment Synthesis) Arity (Bytecode Any)) 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 502a48fd9..f406c2879 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function/method/reset.lux @@ -3,28 +3,28 @@ [lux {"-" [Type type]} [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target [jvm - ["." method {"+" [Method]}] + ["[0]" method {"+" [Method]}] ["_" bytecode {"+" [Bytecode]}] [constant [pool {"+" [Resource]}]] - ["." type {"+" [Type]} - ["." category {"+" [Class]}]]]]]] - ["." // - ["#." new] - ["/#" // "_" + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Class]}]]]]]] + ["[0]" // + ["[1][0]" new] + ["/[1]" // "_" [field [variable - ["#." foreign]]] - ["/#" // "_" - ["#." reference] + ["[1][0]" foreign]]] + ["/[1]" // "_" + ["[1][0]" reference] [//// [analysis {"+" [Environment]}] [synthesis {"+" [Synthesis]}] [/// - ["." arity {"+" [Arity]}]]]]]]) + ["[0]" arity {"+" [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 0a65489d9..df781631c 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,45 +1,45 @@ (.module: [library [lux {"-" [Definition]} - ["." ffi {"+" [import: do_to object]}] + ["[0]" ffi {"+" [import: do_to object]}] [abstract [monad {"+" [do]}]] [control pipe - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." atom {"+" [Atom atom]}]]] + ["[0]" atom {"+" [Atom atom]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}]] [collection - ["." array] - ["." dictionary {"+" [Dictionary]}] - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" array] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm - ["." loader {"+" [Library]}] + ["[0]" loader {"+" [Library]}] ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["." version] - ["." class {"+" [Class]}] - ["." encoding "_" - ["#/." name]] - ["." type - ["." descriptor]]]] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] + ["[0]" version] + ["[0]" class {"+" [Class]}] + ["[0]" encoding "_" + ["[1]/[0]" name]] + ["[0]" type + ["[0]" descriptor]]]] [tool [compiler - ["." name]]]]] - ["." // "_" - ["#." runtime {"+" [Definition]}]] + ["[0]" name]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Definition]}]] ) (import: java/lang/reflect/Field 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 d42c88f53..c98f530a2 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,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] + ["[0]" product] [number ["n" nat]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target [jvm - ["_" bytecode {"+" [Label Bytecode]} ("#\." monad)]]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." value] + ["_" bytecode {"+" [Label Bytecode]} ("[1]\[0]" monad)]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" value] [//// - ["." synthesis {"+" [Path Synthesis]}] - ["." generation] + ["[0]" synthesis {"+" [Path Synthesis]}] + ["[0]" generation] [/// - ["." phase] + ["[0]" phase] [reference [variable {"+" [Register]}]]]]]) 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 a2019c13c..3edc41c03 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,17 +1,17 @@ (.module: [library [lux {"-" [i64]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [monad {"+" [do]}]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." signed]]]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" signed]]]]]] + ["[0]" // "_" + ["[1][0]" runtime]]) (def: $Boolean (type.class "java.lang.Boolean" (list))) (def: $Long (type.class "java.lang.Long" (list))) 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 536b23ca1..8ba5655a1 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 @@ -4,26 +4,26 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data [collection - ["." row]] - ["." format "_" - ["#" binary]]] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." method {"+" [Method]}] - ["." version] - ["." class {"+" [Class]}] + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" method {"+" [Method]}] + ["[0]" version] + ["[0]" class {"+" [Class]}] [encoding - ["." name]] - ["." type - ["." reflection]]]]]] - ["." // - ["#." runtime {"+" [Definition]}] - ["#." function/abstract]]) + ["[0]" name]] + ["[0]" type + ["[0]" reflection]]]]]] + ["[0]" // + ["[1][0]" runtime {"+" [Definition]}] + ["[1][0]" function/abstract]]) (def: .public class "LuxProgram") 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 85fec6709..931f8fd72 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 @@ -9,20 +9,20 @@ [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." unsigned]]]]]] - ["." // "_" - ["#." runtime {"+" [Operation]}] - ["#." value] - ["#." type] - ["//#" /// "_" + ["[0]" unsigned]]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation]}] + ["[1][0]" value] + ["[1][0]" type] + ["//[1]" /// "_" [// - ["." generation] + ["[0]" generation] [/// - ["#" phase ("operation\." monad)] + ["[1]" phase ("operation\[0]" monad)] [reference - ["." variable {"+" [Register Variable]}]] + ["[0]" variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]}]]]]]]) 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 392e36692..ad6166d3f 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,56 +2,56 @@ [library [lux {"-" [Type Definition Label case false true try]} [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control - ["." try]] + ["[0]" try]] [data [binary {"+" [Binary]}] [collection - ["." list ("#\." functor)] - ["." row]] - ["." format "_" - ["#" binary]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]] + ["[0]" format "_" + ["[1]" binary]] [text ["%" format {"+" [format]}]]] [math [number ["n" nat] - ["." i32] - ["." i64]]] + ["[0]" i32] + ["[0]" i64]]] [target - ["." jvm "_" + ["[0]" jvm "_" ["_" bytecode {"+" [Label Bytecode]}] - ["." modifier {"+" [Modifier]} ("#\." monoid)] - ["." field {"+" [Field]}] - ["." method {"+" [Method]}] - ["#/." version] - ["." class {"+" [Class]}] - ["." constant + ["[0]" modifier {"+" [Modifier]} ("[1]\[0]" monoid)] + ["[0]" field {"+" [Field]}] + ["[0]" method {"+" [Method]}] + ["[1]/[0]" version] + ["[0]" class {"+" [Class]}] + ["[0]" constant [pool {"+" [Resource]}]] [encoding - ["." name]] - ["." type {"+" [Type]} - ["." category {"+" [Return' Value']}] - ["." reflection]]]]]] - ["." // "_" - ["#." type] - ["#." value] - ["#." function "_" - ["#" abstract] + ["[0]" name]] + ["[0]" type {"+" [Type]} + ["[0]" category {"+" [Return' Value']}] + ["[0]" reflection]]]]]] + ["[0]" // "_" + ["[1][0]" type] + ["[1][0]" value] + ["[1][0]" function "_" + ["[1]" abstract] [field [constant - ["#/." arity]] + ["[1]/[0]" arity]] [variable - ["#/." count]]]] - ["//#" /// "_" + ["[1]/[0]" count]]]] + ["//[1]" /// "_" [// - ["." version] - ["." synthesis] - ["." generation] + ["[0]" version] + ["[0]" synthesis] + ["[0]" generation] [/// - ["#" phase] + ["[1]" phase] [arity {"+" [Arity]}] [reference [variable {"+" [Register]}]] 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 c243107b7..c3bb19132 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,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [number - ["." i32]] + ["[0]" i32]] [collection - ["." list]]] + ["[0]" list]]] [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type] + ["[0]" type] [encoding - ["." signed]]]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" signed]]]]]] + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] + ["[1][0]" synthesis {"+" [Synthesis]}] [/// - ["." phase]]]]) + ["[0]" phase]]]]) (def: $Object (type.class "java.lang.Object" (list))) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux index 7ad6dffdd..786c52d26 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/type.lux @@ -3,7 +3,7 @@ [lux "*" [target [jvm - ["." type]]]]]) + ["[0]" type]]]]]) (def: .public frac (type.class "java.lang.Double" (list))) (def: .public text (type.class "java.lang.String" (list))) 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 badc179a7..cec3d3b97 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/value.lux @@ -4,9 +4,9 @@ [target [jvm ["_" bytecode {"+" [Bytecode]}] - ["." type {"+" [Type]} ("#\." equivalence) + ["[0]" type {"+" [Type]} ("[1]\[0]" equivalence) [category {"+" [Primitive]}] - ["." box]]]]]]) + ["[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 363f94d93..7cc28fb4d 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 @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" lua]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [lua - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 63ea61d7b..d21406763 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,31 +2,31 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [target ["_" lua {"+" [Expression Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/function.lux index 4f40af927..dbae0c91b 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,30 +2,30 @@ [library [lux {"-" [Tuple Variant function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" lua {"+" [Var Expression Label Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) 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 83cd08060..57b7261ff 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,29 +2,29 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" lua {"+" [Var Expression Label Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 af7eba43a..d2b823b85 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 @@ -1,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" lua {"+" [Expression Location Var Computation Literal Label Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 41cf85418..10be9ba18 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,17 +2,17 @@ [library [lux {"-" [Tuple Variant]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" lua {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php.lux index c6b0decce..fae8d8d61 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 @@ -4,26 +4,26 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" php]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 b3db682aa..295d24457 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,35 +2,35 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["i" int]]] [target ["_" php {"+" [Expression Var Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) 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 6e255664b..ebdd43f89 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 @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[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 07a9c41ab..2a821d617 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,27 +2,27 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [number ["f" frac]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [target ["_" php {"+" [Expression]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#." primitive] + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1][0]" primitive] [// [extension {"+" [Nullary Unary Binary Trinary nullary unary binary trinary]}] [// [extension - ["." bundle]]]]]) + ["[0]" bundle]]]]]) (def: lux_procs 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 c5febd5c4..f630ec274 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,30 +2,30 @@ [library [lux {"-" [Global function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" php {"+" [Var Global Expression Argument Label Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Phase! Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Phase! Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/loop.lux index 307bb9718..055e107e0 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,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" php {"+" [Var Expression Label Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Phase! Generator Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 1b5d3138d..d70ccee56 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 @@ -5,11 +5,11 @@ [pipe {"+" [cond> new>]}]] [math [number - ["." frac]]] + ["[0]" frac]]] [target ["_" php {"+" [Literal Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[0]" // "_" + ["[1][0]" runtime]]) (def: .public bit (-> Bit Literal) 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 e91f6a919..0fe181b78 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 @@ -1,42 +1,42 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" php {"+" [Expression Label Constant Var Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [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 5fa169955..69f687713 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 @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" php {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [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 6140dbc57..86433d927 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 @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" python]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [python - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 b9b2b1eba..c4f914d01 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,35 +2,35 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat] ["i" int]]] [target ["_" python {"+" [Expression SVar Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator Phase! Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) 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 7e7197047..fa9fc1656 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,34 +2,34 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" python {"+" [SVar Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Environment Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase] + ["[1][0]" phase] [reference [variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]} - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 8f3496364..b84826a26 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,34 +2,34 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" python {"+" [Expression SVar Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["." synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]" synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference - ["#." variable {"+" [Register]}]]]]]]]) + ["[1][0]" variable {"+" [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 c9c505798..7ba155bbd 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 @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" python {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[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/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux index e71d26058..bfdf279fa 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 @@ -1,44 +1,44 @@ (.module: [library [lux {"-" [++]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} ["f" frac] - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" python {"+" [Expression SVar Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" ["$" version] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [Registry]}]]]]]]) (template [<name> <base>] [(type: .public <name> 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 4ecbea30f..3d0903731 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,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" python {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r.lux index 36950ea53..4a6d95239 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 @@ -5,23 +5,23 @@ [monad {"+" [do]}]] [target ["_" r]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 298daa8f7..83859e8be 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,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int]]] [target ["_" r {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/function.lux index c14be2795..87487db01 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,35 +2,35 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" r {"+" [Expression SVar]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]] [meta [archive - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 ce3face36..02d6712ec 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,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" r]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 5d4361b81..2aa8b7645 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 @@ -3,8 +3,8 @@ [lux {"-" [i64]} [target ["_" r {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime]]) + ["[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 94f19f5a0..3b820934f 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 @@ -19,10 +19,10 @@ ["ls" synthesis] (host [r {"+" [Expression]}]))) [///] - (/// [".T" runtime] - [".T" case] - [".T" function] - [".T" loop])) + (/// ["[0]T" runtime] + ["[0]T" case] + ["[0]T" function] + ["[0]T" loop])) ... [Types] (type: .public Translator 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 416560b36..ea6f59abd 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 @@ -12,7 +12,7 @@ ["ls" synthesis] (host [ruby {"+" [Ruby Expression Statement]}]))) [///] - (/// [".T" runtime]) + (/// ["[0]T" runtime]) (// ["@" common])) ... (template [<name> <lua>] 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 361552285..e7d794d5e 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 @@ -1,45 +1,45 @@ (.module: [library [lux {"-" [Location ++ i64]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} ["n" nat] - ["i" int ("#\." interval)] - ["." i64]]] + ["i" int ("[1]\[0]" interval)] + ["[0]" i64]]] ["@" target ["_" r {"+" [SVar Expression]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [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 bbe263ee8..4d6562a4f 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 @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" r {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [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 5ccc49977..b256823f5 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 @@ -5,13 +5,13 @@ [data [text ["%" format {"+" [format]}]]]]] - ["." //// "_" - ["." version] - ["#." generation {"+" [Context]}] - ["//#" /// "_" - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]] - ["." phase ("#\." monad)] + ["[0]" //// "_" + ["[0]" version] + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]] + ["[0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]) 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 e0df52b0d..9202b75d3 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 @@ -4,29 +4,29 @@ [abstract [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}]] + ["[0]" exception {"+" [exception:]}]] [target ["_" ruby]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase Phase!]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." function] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension [generation [ruby - ["#/." common]]]] - ["/#" // "_" + ["[1]/[0]" common]]]] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 1954b88e9..8d19caff8 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,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat] ["i" int]]] [target ["_" ruby {"+" [Expression LVar Statement]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator Phase! Generator!]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux index 022b449f0..108f98020 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,34 +2,34 @@ [library [lux {"-" [Variant Tuple function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [target ["_" ruby {"+" [LVar GVar Expression Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." reference] - ["#." case] - ["#." loop] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Environment Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase] + ["[1][0]" phase] [reference [variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]} - ["." artifact]]]]]]]) + ["[0]" artifact]]]]]]]) (def: .public (apply expression archive [functionS argsS+]) (Generator (Application Synthesis)) 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 b28c4683e..1aa61c2bc 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,34 +2,34 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]] [target ["_" ruby {"+" [Expression LVar Statement]}]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator Phase! Generator!]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["." synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]" synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [reference - ["#." variable {"+" [Register]}]]]]]]]) + ["[1][0]" variable {"+" [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/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux index b683c967f..c5f424373 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 @@ -1,43 +1,43 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" ruby {"+" [Expression LVar Computation Literal Statement]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" ["$" version] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [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 e66199340..a93fba45e 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,17 +2,17 @@ [library [lux {"-" [Variant Tuple]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [target ["_" ruby {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [Synthesis]}] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)]]]]) (def: .public (tuple generate archive elemsS+) (Generator (Tuple Synthesis)) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme.lux index c1ec7c339..079ef448c 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 @@ -5,23 +5,23 @@ [monad {"+" [do]}]] [target ["_" scheme]]]] - ["." / "_" + ["[0]" / "_" [runtime {"+" [Phase]}] - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." loop] - ["#." function] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." extension] - ["/#" // "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" loop] + ["[1][0]" function] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" [analysis {"+" []}] - ["#." synthesis] - ["//#" /// "_" - ["#." phase ("#\." monad)] + ["[1][0]" synthesis] + ["//[1]" /// "_" + ["[1][0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]]) 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 887614298..16a00e907 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,37 +2,37 @@ [library [lux {"-" [case let if]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int]]] [target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." primitive] - ["/#" // "_" - ["#." reference] - ["/#" // "_" - ["#." synthesis "_" - ["#/." case]] - ["/#" // "_" - ["#." synthesis {"+" [Member Synthesis Path]}] - ["#." generation] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" primitive] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" + ["[1][0]" synthesis "_" + ["[1]/[0]" case]] + ["/[1]" // "_" + ["[1][0]" synthesis {"+" [Member Synthesis Path]}] + ["[1][0]" generation] + ["//[1]" /// "_" [reference - ["#." variable {"+" [Register]}]] - ["#." phase ("#\." monad)] + ["[1][0]" variable {"+" [Register]}]] + ["[1][0]" phase ("[1]\[0]" monad)] [meta [archive {"+" [Archive]}]]]]]]]) 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 6e255664b..ebdd43f89 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 @@ -3,11 +3,11 @@ [lux "*" [data [collection - ["." dictionary]]]]] + ["[0]" dictionary]]]]] [// [runtime {"+" [Bundle]}]] [/ - ["." common]]) + ["[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 380b59265..27ca252f9 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 - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control ["ex" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [number {"+" [hex]} ["f" frac]] [collection - ["." list ("#\." functor)] + ["[0]" list ("[1]\[0]" functor)] ["dict" dictionary {"+" [Dictionary]}]]] - ["." macro {"+" [with_identifiers]} - ["." code] + ["[0]" macro {"+" [with_identifiers]} + ["[0]" code] [syntax {"+" [syntax:]}]] [target ["_" scheme {"+" [Expression Computation]}]]]] - ["." /// "_" - ["#." runtime {"+" [Operation Phase Handler Bundle]}] - ["#//" /// - ["#." extension - ["." bundle]] - ["#/" // "_" - ["#." synthesis {"+" [Synthesis]}]]]]) + ["[0]" /// "_" + ["[1][0]" runtime {"+" [Operation Phase Handler Bundle]}] + ["[1]//" /// + ["[1][0]" extension + ["[0]" bundle]] + ["[1]/" // "_" + ["[1][0]" synthesis {"+" [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 1985f5101..d18881c4d 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,30 +2,30 @@ [library [lux {"-" [function]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." reference] - ["#." case] - ["/#" // "_" - ["#." reference] - ["//#" /// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" reference] + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant Tuple Abstraction Application Analysis]}] [synthesis {"+" [Synthesis]}] - ["#." generation {"+" [Context]}] - ["//#" /// "_" + ["[1][0]" generation {"+" [Context]}] + ["//[1]" /// "_" [arity {"+" [Arity]}] - ["#." phase ("#\." monad)] + ["[1][0]" phase ("[1]\[0]" monad)] [reference [variable {"+" [Register Variable]}]]]]]]) diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/loop.lux index 301679a58..c5e6b5e0e 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,32 +2,32 @@ [library [lux {"-" [Scope]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]] [target ["_" scheme]]]] - ["." // "_" + ["[0]" // "_" [runtime {"+" [Operation Phase Generator]}] - ["#." case] - ["/#" // "_" - ["#." reference] - ["/#" // "_" + ["[1][0]" case] + ["/[1]" // "_" + ["[1][0]" reference] + ["/[1]" // "_" [synthesis - ["." case]] - ["/#" // "_" - ["."synthesis {"+" [Scope Synthesis]}] - ["#." generation] - ["//#" /// "_" - ["#." phase] + ["[0]" case]] + ["/[1]" // "_" + ["[0]"synthesis {"+" [Scope Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// "_" + ["[1][0]" phase] [meta [archive {"+" [Archive]}]] [reference 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 9da1f2a8f..996f552b1 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 @@ -1,43 +1,43 @@ (.module: [library [lux {"-" [Location]} - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] + ["[0]" function] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text ("#\." hash) + ["[0]" product] + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list ("#\." functor)] - ["." row]]] - ["." macro + ["[0]" list ("[1]\[0]" functor)] + ["[0]" row]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]} - ["." i64]]] + ["[0]" i64]]] ["@" target ["_" scheme {"+" [Expression Computation Var]}]]]] - ["." /// "_" - ["#." reference] - ["//#" /// "_" + ["[0]" /// "_" + ["[1][0]" reference] + ["//[1]" /// "_" [analysis {"+" [Variant]}] - ["#." synthesis {"+" [Synthesis]}] - ["#." generation] - ["//#" /// - ["#." phase] + ["[1][0]" synthesis {"+" [Synthesis]}] + ["[1][0]" generation] + ["//[1]" /// + ["[1][0]" phase] [reference [variable {"+" [Register]}]] [meta [archive {"+" [Output Archive]} - ["." artifact {"+" [Registry]}]]]]]]) + ["[0]" artifact {"+" [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 a0cf0e8d6..ad071de02 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 @@ -2,20 +2,20 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [target ["_" scheme {"+" [Expression]}]]]] - ["." // "_" - ["#." runtime {"+" [Operation Phase Generator]}] - ["#." primitive] - ["///#" //// "_" + ["[0]" // "_" + ["[1][0]" runtime {"+" [Operation Phase Generator]}] + ["[1][0]" primitive] + ["///[1]" //// "_" [analysis {"+" [Variant Tuple]}] - ["#." synthesis {"+" [Synthesis]}] - ["//#" /// "_" - ["#." phase ("#\." monad)]]]]) + ["[1][0]" synthesis {"+" [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 65ba177f3..5b5403a37 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,25 +2,25 @@ [library [lux {"-" [primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]]]] - ["." / "_" - ["#." function] - ["#." case] - ["#." variable] - ["/#" // "_" - ["#." extension] - ["/#" // "_" - ["#." analysis {"+" [Analysis]}] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]]]] + ["[0]" / "_" + ["[1][0]" function] + ["[1][0]" case] + ["[1][0]" variable] + ["/[1]" // "_" + ["[1][0]" extension] + ["/[1]" // "_" + ["[1][0]" analysis {"+" [Analysis]}] ["/" synthesis {"+" [Synthesis Phase]}] [/// - ["." phase ("#\." monad)] + ["[0]" phase ("[1]\[0]" monad)] [reference {"+" []} [variable {"+" []}]]]]]]) 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 b92c07953..d42f0da7e 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 @@ -3,29 +3,29 @@ [lux "*" [abstract [equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [when> new> case>]}]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." functor mix monoid)] - ["." set {"+" [Set]}]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat] - ["." i64] - ["." frac ("#\." equivalence)]]]]] - ["." /// "_" + ["[0]" i64] + ["[0]" frac ("[1]\[0]" equivalence)]]]]] + ["[0]" /// "_" [// - ["#." analysis {"+" [Pattern Match Analysis]}] + ["[1][0]" analysis {"+" [Pattern Match Analysis]}] ["/" synthesis {"+" [Path Synthesis Operation Phase]}] [/// - ["#" phase ("#\." monad)] - ["#." reference - ["#/." variable {"+" [Register Variable]}]] + ["[1]" phase ("[1]\[0]" monad)] + ["[1][0]" reference + ["[1]/[0]" variable {"+" [Register Variable]}]] [meta [archive {"+" [Archive]}]]]]]) 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 ca9a467de..316a1bed0 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,30 +2,30 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control [pipe {"+" [case>]}] - ["." maybe ("#\." functor)] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#." loop {"+" [Transform]}] - ["//#" /// "_" - ["#." analysis {"+" [Environment Analysis]}] + ["[0]" // "_" + ["[1][0]" loop {"+" [Transform]}] + ["//[1]" /// "_" + ["[1][0]" analysis {"+" [Environment Analysis]}] ["/" synthesis {"+" [Path Abstraction Synthesis Operation Phase]}] [/// [arity {"+" [Arity]}] - ["#." reference - ["#/." variable {"+" [Register Variable]}]] - ["." phase ("#\." monad)]]]]) + ["[1][0]" reference + ["[1]/[0]" variable {"+" [Register Variable]}]] + ["[0]" phase ("[1]\[0]" monad)]]]]) (exception: .public (cannot_find_foreign_variable_in_environment {foreign Register} {environment (Environment Synthesis)}) (exception.report 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 614a0e998..3b9d37fdd 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,22 +2,22 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data [collection - ["." list]]] + ["[0]" list]]] [math [number ["n" nat]]]]] [//// - ["." analysis {"+" [Environment]}] + ["[0]" analysis {"+" [Environment]}] ["/" synthesis {"+" [Path Abstraction Synthesis]}] [/// [arity {"+" [Arity]}] - ["." reference - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" reference + ["[0]" variable {"+" [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 225cf2ad5..afa30d83c 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,29 +2,29 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor mix)] - ["." set]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" set]]] [math [number ["n" nat]]]]] [//// ["/" synthesis {"+" [Path Synthesis]}] - ["." analysis] + ["[0]" analysis] [/// [arity {"+" [Arity]}] - ["." reference - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" reference + ["[0]" variable {"+" [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 297721289..ecafe7615 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux @@ -2,24 +2,24 @@ [library [lux {"-" [Module]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]]]] + ["[0]" list ("[1]\[0]" functor)]]]]] [// [generation {"+" [Context]}] [/// [meta - ["." archive {"+" [Archive]} - ["." descriptor {"+" [Module]}] - ["." artifact]]]]]) + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]]]]]) (type: .public (Program expression directive) (-> Context expression directive)) 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 08bff3cbf..a04571b5b 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/syntax.lux @@ -31,24 +31,24 @@ [abstract monad] [control - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] [parser [text {"+" [Offset]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat] - ["." int] - ["." rev] - ["." frac]]]]]) + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]]) (template: (inline: <declaration> <type> <body>) [(for {@.python (def: <declaration> <type> <body>)} 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 3d1067415..2209cdcce 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/synthesis.lux @@ -7,32 +7,32 @@ [hash {"+" [Hash]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." exception {"+" [exception:]}]] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}]] [data - ["." sum] - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" sum] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [Format format]}]] [collection - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [math [number - ["." i64] + ["[0]" i64] ["n" nat] ["i" int] ["f" frac]]]]] [// - ["." analysis {"+" [Environment Composite Analysis]}] + ["[0]" analysis {"+" [Environment Composite Analysis]}] [phase - ["." extension {"+" [Extension]}]] + ["[0]" extension {"+" [Extension]}]] [/// [arity {"+" [Arity]}] - ["." phase] - ["." reference {"+" [Reference]} - ["." variable {"+" [Register Variable]}]]]]) + ["[0]" phase] + ["[0]" reference {"+" [Reference]} + ["[0]" variable {"+" [Register Variable]}]]]]) (type: .public Resolver (Dictionary Variable Variable)) @@ -588,7 +588,7 @@ (n.* 29 (\ super hash body)) ))) -(implementation: (branch_equivalence (^open "\.")) +(implementation: (branch_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Branch a)))) (def: (= reference sample) @@ -649,7 +649,7 @@ (\ (..path'_hash super) hash path)) ))) -(implementation: (loop_equivalence (^open "\.")) +(implementation: (loop_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Loop a)))) (def: (= reference sample) @@ -685,7 +685,7 @@ (\ (list.hash super) hash resets)) ))) -(implementation: (function_equivalence (^open "\.")) +(implementation: (function_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Function a)))) (def: (= reference sample) @@ -724,7 +724,7 @@ (\ (list.hash super) hash arguments)) ))) -(implementation: (control_equivalence (^open "\.")) +(implementation: (control_equivalence (^open "\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Control a)))) (def: (= reference sample) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 55f1bd5c0..96a8683de 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -2,39 +2,39 @@ [library [lux {"-" [Module]} [abstract - ["." equivalence {"+" [Equivalence]}] - ["." monad {"+" [do]}]] + ["[0]" equivalence {"+" [Equivalence]}] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" function] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data [binary {"+" [Binary]}] - ["." bit] - ["." product] - ["." name] - ["." text + ["[0]" bit] + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." binary {"+" [Writer]}]] + ["[0]" binary {"+" [Writer]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." row {"+" [Row]}]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" row {"+" [Row]}]]] [math [number - ["n" nat ("#\." equivalence)]]] + ["n" nat ("[1]\[0]" equivalence)]]] [type abstract]]] [/ - ["." artifact] - ["." signature {"+" [Signature]}] - ["." key {"+" [Key]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}] + ["[0]" artifact] + ["[0]" signature {"+" [Signature]}] + ["[0]" key {"+" [Key]}] + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}] [/// [version {"+" [Version]}]]]) 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 37a3109c0..e0bb8536f 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux @@ -5,19 +5,19 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list] - ["." row {"+" [Row]} ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}]] + ["[0]" list] + ["[0]" row {"+" [Row]} ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux index 28fedf1b7..e45c69fa2 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/descriptor.lux @@ -5,15 +5,15 @@ ["<>" parser ["<b>" binary {"+" [Parser]}]]] [data - ["." text] + ["[0]" text] [collection [set {"+" [Set]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [world [file {"+" [Path]}]]]] [// - ["." artifact {"+" [Registry]}]]) + ["[0]" artifact {"+" [Registry]}]]) (type: .public Module Text) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux index ce7ebd327..6e56f7f8b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux @@ -4,20 +4,20 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser [binary {"+" [Parser]}]]] [data [collection - ["." dictionary {"+" [Dictionary]}]] + ["[0]" dictionary {"+" [Dictionary]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [type {"+" [:sharing]} abstract]]] [// - ["." signature {"+" [Signature]}] - ["." key {"+" [Key]}] + ["[0]" signature {"+" [Signature]}] + ["[0]" key {"+" [Key]}] [descriptor {"+" [Module]}]]) (exception: .public (invalid_signature {expected Signature} {actual Signature}) 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 acfedec58..2ad3b7b96 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/signature.lux @@ -7,15 +7,15 @@ ["<>" parser ["<b>" binary {"+" [Parser]}]]] [data - ["." product] - ["." name] - ["." text + ["[0]" product] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." binary {"+" [Writer]}]]] + ["[0]" binary {"+" [Writer]}]]] [math [number - ["." nat]]]]] + ["[0]" nat]]]]] [//// [version {"+" [Version]}]]) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux index fa4e2af3d..e839651e4 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux @@ -2,25 +2,25 @@ [library [lux {"-" [Module]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." state] - ["." function - ["." memo {"+" [Memo]}]]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" state] + ["[0]" function + ["[0]" memo {"+" [Memo]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set {"+" [Set]}]]]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set {"+" [Set]}]]]]] [/// - ["." archive {"+" [Output Archive]} + ["[0]" archive {"+" [Output Archive]} [key {"+" [Key]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}]]]) + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}]]]) (type: Ancestry (Set Module)) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io.lux b/stdlib/source/library/lux/tool/compiler/meta/io.lux index 25a77d0af..0d7ab9698 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io.lux @@ -2,7 +2,7 @@ [library [lux {"-" [Code]} [data - ["." text]] + ["[0]" text]] [world [file {"+" [Path System]}]]]]) 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 41710dfb8..cdd999306 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -4,52 +4,52 @@ [target {"+" [Target]}] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" binary {"+" [Parser]}]]] + ["<[0]>" binary {"+" [Parser]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]}] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]}] + ["[0]" set]]] [math [number ["n" nat]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor [import {"+" [Import]}] - ["." static {"+" [Static]}]]] - ["." // {"+" [Context]} - ["#." context] - ["/#" // - ["." archive {"+" [Output Archive]} - ["." artifact {"+" [Artifact]}] - ["." descriptor {"+" [Module Descriptor]}] - ["." document {"+" [Document]}]] + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Context]} + ["[1][0]" context] + ["/[1]" // + ["[0]" archive {"+" [Output Archive]} + ["[0]" artifact {"+" [Artifact]}] + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" document {"+" [Document]}]] [cache - ["." dependency]] - ["/#" // {"+" [Input]} + ["[0]" dependency]] + ["/[1]" // {"+" [Input]} [language ["$" lux - ["." version] - ["." analysis] - ["." synthesis] - ["." generation] - ["." directive] - ["#/." program]]]]]]) + ["[0]" version] + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" generation] + ["[0]" directive] + ["[1]/[0]" program]]]]]]) (exception: .public (cannot_prepare {archive file.Path} {module_id archive.ID} 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 5331608b7..177f552e3 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux @@ -4,32 +4,32 @@ ["@" target] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data [binary {"+" [Binary]}] - ["." text ("#\." hash) + ["[0]" text ("[1]\[0]" hash) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor [import {"+" [Import]}]]] - ["." // {"+" [Context Code]} - ["/#" // "_" + ["[0]" // {"+" [Context Code]} + ["/[1]" // "_" [archive [descriptor {"+" [Module]}]] - ["/#" // {"+" [Input]}]]]) + ["/[1]" // {"+" [Input]}]]]) (exception: .public (cannot_find_module {importer Module} {module Module}) (exception.report diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux index 5a4a7ea1f..e9224a8d0 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux @@ -7,16 +7,16 @@ [binary {"+" [Binary]}] [collection [dictionary {"+" [Dictionary]}] - ["." row] - ["." list ("#\." functor)]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)]]] [world - ["." file]]]] + ["[0]" file]]]] [// [cache - ["." dependency]] - ["." archive {"+" [Archive]} - ["." descriptor] - ["." artifact]] + ["[0]" dependency]] + ["[0]" archive {"+" [Archive]} + ["[0]" descriptor] + ["[0]" artifact]] [// [language [lux 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 1bd4e94a9..f8bb67b70 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 @@ (.module: [library [lux {"-" [Module Definition]} - ["." ffi {"+" [import: do_to]}] + ["[0]" ffi {"+" [import: do_to]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}]] [data - ["." binary {"+" [Binary]}] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." row] - ["." list ("#\." functor)] - ["." dictionary] - ["." set {"+" [Set]}]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat] @@ -23,21 +23,21 @@ [target [jvm [encoding - ["." name]]]] + ["[0]" name]]]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor {"+" [Module]}] - ["." artifact]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor {"+" [Module]}] + ["[0]" artifact]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux @@ -45,73 +45,73 @@ [phase [generation [jvm - ["." runtime {"+" [Definition]}]]]]]]]]]) + ["[0]" runtime {"+" [Definition]}]]]]]]]]]) (import: java/lang/Object) (import: java/lang/String) (import: java/util/jar/Attributes - ["#::." + ["[1]::[0]" (put [java/lang/Object java/lang/Object] "?" java/lang/Object)]) (import: java/util/jar/Attributes$Name - ["#::." + ["[1]::[0]" ("static" MAIN_CLASS java/util/jar/Attributes$Name) ("static" MANIFEST_VERSION java/util/jar/Attributes$Name)]) (import: java/util/jar/Manifest - ["#::." + ["[1]::[0]" (new []) (getMainAttributes [] java/util/jar/Attributes)]) (import: java/io/Flushable - ["#::." + ["[1]::[0]" (flush [] void)]) (import: java/io/Closeable - ["#::." + ["[1]::[0]" (close [] void)]) (import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte] int int] void)]) (import: java/io/ByteArrayOutputStream - ["#::." + ["[1]::[0]" (new [int]) (toByteArray [] [byte])]) (import: java/util/zip/ZipEntry - ["#::." + ["[1]::[0]" (getName [] java/lang/String) (isDirectory [] boolean) (getSize [] long)]) (import: java/util/zip/ZipOutputStream - ["#::." + ["[1]::[0]" (write [[byte] int int] void) (closeEntry [] void)]) (import: java/util/jar/JarEntry - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (import: java/util/jar/JarOutputStream - ["#::." + ["[1]::[0]" (new [java/io/OutputStream java/util/jar/Manifest]) (putNextEntry [java/util/zip/ZipEntry] "try" void)]) (import: java/io/ByteArrayInputStream - ["#::." + ["[1]::[0]" (new [[byte]])]) (import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [[byte] int int] int)]) (import: java/util/jar/JarInputStream - ["#::." + ["[1]::[0]" (new [java/io/InputStream]) (getNextJarEntry [] "try" "?" java/util/jar/JarEntry)]) 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 21e2bc7b4..b471a30f5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -3,42 +3,42 @@ [lux {"-" [Module]} [type {"+" [:sharing]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] - ["." encoding]] + ["[0]" encoding]] [collection - ["." row] - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set]] [format - ["." tar] - ["." binary]]] + ["[0]" tar] + ["[0]" binary]]] [target ["_" scheme]] [time - ["." instant {"+" [Instant]}]] + ["[0]" instant {"+" [Instant]}]] [world - ["." file]]]] + ["[0]" file]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor {"+" [Module Descriptor]}] - ["." artifact] - ["." document {"+" [Document]}]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor {"+" [Module Descriptor]}] + ["[0]" artifact] + ["[0]" document {"+" [Document]}]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux 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 43ba5c04a..aa79bf5b5 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux @@ -3,31 +3,31 @@ [lux "*" [type {"+" [:sharing]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [binary {"+" [Binary]}] - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." row] - ["." list ("#\." functor)]]]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)]]]]] [program [compositor - ["." static {"+" [Static]}]]] - ["." // {"+" [Packager]} + ["[0]" static {"+" [Static]}]]] + ["[0]" // {"+" [Packager]} [// - ["." archive {"+" [Output]} - ["." descriptor] - ["." artifact]] + ["[0]" archive {"+" [Output]} + ["[0]" descriptor] + ["[0]" artifact]] [cache - ["." dependency]] - ["." io "_" - ["#" archive]] + ["[0]" dependency]] + ["[0]" io "_" + ["[1]" archive]] [// [language ["$" lux diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux index 80dfdb208..3f6caddbf 100644 --- a/stdlib/source/library/lux/tool/compiler/phase.lux +++ b/stdlib/source/library/lux/tool/compiler/phase.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [abstract [monad {"+" [Monad do]}]] [control - ["." state] - ["." try {"+" [Try]} ("#\." functor)] + ["[0]" state] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] ["ex" exception {"+" [Exception exception:]}] - ["." io] + ["[0]" io] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]]] [time - ["." instant] - ["." duration]] + ["[0]" instant] + ["[0]" duration]] [macro [syntax {"+" [syntax:]}]]]] [// diff --git a/stdlib/source/library/lux/tool/compiler/reference.lux b/stdlib/source/library/lux/tool/compiler/reference.lux index b3e804abb..4e48f1db9 100644 --- a/stdlib/source/library/lux/tool/compiler/reference.lux +++ b/stdlib/source/library/lux/tool/compiler/reference.lux @@ -7,14 +7,14 @@ [control [pipe {"+" [case>]}]] [data - ["." name] + ["[0]" name] [text ["%" format {"+" [Format]}]]] [math [number ["n" nat]]]]] - ["." / "_" - ["#." variable {"+" [Variable]}]]) + ["[0]" / "_" + ["[1][0]" variable {"+" [Variable]}]]) (type: .public Constant Name) diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index b101a278a..6385fe34c 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -3,31 +3,31 @@ [lux "*" [control [monad {"+" [Monad do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["ex" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [type {"+" [:sharing]} - ["." check]] + ["[0]" check]] [compiler - ["." phase - ["." analysis - ["." module] - ["." type]] - ["." generation] - ["." directive {"+" [State+ Operation]} - ["." total]] - ["." extension]] - ["." default - ["." syntax] - ["." platform {"+" [Platform]}] - ["." init]] - ["." cli {"+" [Configuration]}]] + ["[0]" phase + ["[0]" analysis + ["[0]" module] + ["[0]" type]] + ["[0]" generation] + ["[0]" directive {"+" [State+ Operation]} + ["[0]" total]] + ["[0]" extension]] + ["[0]" default + ["[0]" syntax] + ["[0]" platform {"+" [Platform]}] + ["[0]" init]] + ["[0]" cli {"+" [Configuration]}]] [world - ["." file {"+" [File]}] - ["." console {"+" [Console]}]]]] - ["." /type]) + ["[0]" file {"+" [File]}] + ["[0]" console {"+" [Console]}]]]] + ["[0]" /type]) (exception: .public (error {message Text}) message) diff --git a/stdlib/source/library/lux/tool/mediator.lux b/stdlib/source/library/lux/tool/mediator.lux index a73bb0bfd..9f214862e 100644 --- a/stdlib/source/library/lux/tool/mediator.lux +++ b/stdlib/source/library/lux/tool/mediator.lux @@ -2,12 +2,12 @@ [library [lux {"-" [Source Module]} [world - ["." binary {"+" [Binary]}] - ["." file {"+" [Path]}]]]] + ["[0]" binary {"+" [Binary]}] + ["[0]" file {"+" [Path]}]]]] [// [compiler {"+" [Compiler]} [meta - ["." archive {"+" [Archive]} + ["[0]" archive {"+" [Archive]} [descriptor {"+" [Module]}]]]]]) (type: .public Source diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux index c60be0b73..effdf2251 100644 --- a/stdlib/source/library/lux/type.lux +++ b/stdlib/source/library/lux/type.lux @@ -6,26 +6,26 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [Monad do]}]] [control - ["." function] - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." monoid equivalence)] - ["." name ("#\." equivalence codec)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid equivalence)] + ["[0]" name ("[1]\[0]" equivalence codec)] [collection - ["." array] - ["." list ("#\." functor monoid mix)]]] - ["." macro + ["[0]" array] + ["[0]" list ("[1]\[0]" functor monoid mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["n" nat ("#\." decimal)]]] - ["." meta - ["." location]]]]) + ["n" nat ("[1]\[0]" decimal)]]] + ["[0]" meta + ["[0]" location]]]]) (template [<name> <tag>] [(def: .public (<name> type) diff --git a/stdlib/source/library/lux/type/abstract.lux b/stdlib/source/library/lux/type/abstract.lux index 8ea539e97..15483af23 100644 --- a/stdlib/source/library/lux/type/abstract.lux +++ b/stdlib/source/library/lux/type/abstract.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [Monad do]}]] [control - ["." exception {"+" [exception:]}] - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["[0]" exception {"+" [exception:]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." name ("#\." codec)] - ["." text ("#\." equivalence monoid)] + ["[0]" name ("[1]\[0]" codec)] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." functor monoid)]]] + ["[0]" list ("[1]\[0]" functor monoid)]]] [macro - ["." code] + ["[0]" code] [syntax {"+" [syntax:]} - ["|.|" annotations]]]]] - ["." //]) + ["|[0]|" annotations]]]]] + ["[0]" //]) (type: Stack List) diff --git a/stdlib/source/library/lux/type/check.lux b/stdlib/source/library/lux/type/check.lux index df52d36eb..310918cee 100644 --- a/stdlib/source/library/lux/type/check.lux +++ b/stdlib/source/library/lux/type/check.lux @@ -5,21 +5,21 @@ [abstract [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [Exception exception:]}]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception exception:]}]] [data - ["." product] - ["." text ("#\." monoid equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" monoid equivalence)] [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math [number - ["n" nat ("#\." decimal)]]]]] - ["." // ("#\." equivalence)]) + ["n" nat ("[1]\[0]" decimal)]]]]] + ["[0]" // ("[1]\[0]" equivalence)]) (template: (!n\= reference subject) [("lux i64 =" reference subject)]) @@ -124,7 +124,7 @@ ))) ) -(open: "check\." ..monad) +(open: "check\[0]" ..monad) (def: (var::new id plist) (-> Var Type_Vars Type_Vars) diff --git a/stdlib/source/library/lux/type/dynamic.lux b/stdlib/source/library/lux/type/dynamic.lux index 6311e8a2f..2f21ae4af 100644 --- a/stdlib/source/library/lux/type/dynamic.lux +++ b/stdlib/source/library/lux/type/dynamic.lux @@ -1,18 +1,18 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [text ["%" format]]] [macro {"+" [with_identifiers]} - ["." syntax {"+" [syntax:]}]] - ["." type + ["[0]" syntax {"+" [syntax:]}]] + ["[0]" type abstract]]]) (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 8546ffe51..d8c5c90c7 100644 --- a/stdlib/source/library/lux/type/implicit.lux +++ b/stdlib/source/library/lux/type/implicit.lux @@ -2,30 +2,30 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}] - ["." equivalence]] + ["[0]" monad {"+" [do]}] + ["[0]" equivalence]] [control - ["." maybe] - ["." try] + ["[0]" maybe] + ["[0]" try] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad mix)] - ["." dictionary {"+" [Dictionary]}]]] - ["." macro - ["." code] + ["[0]" list ("[1]\[0]" monad mix)] + ["[0]" dictionary {"+" [Dictionary]}]]] + ["[0]" macro + ["[0]" code] [syntax {"+" [syntax:]}]] [math - ["." number + ["[0]" number ["n" nat]]] - ["." meta - ["." annotation]] - ["." type - ["." check {"+" [Check]}]]]]) + ["[0]" meta + ["[0]" annotation]] + ["[0]" type + ["[0]" check {"+" [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 7c98bf699..5bc9254c8 100644 --- a/stdlib/source/library/lux/type/poly.lux +++ b/stdlib/source/library/lux/type/poly.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] - ["." type] + ["[0]" meta] + ["[0]" type] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe] - ["<>" parser ("#\." monad) - ["<.>" type {"+" [Env]}] - ["<.>" code {"+" [Parser]}]]] + ["[0]" maybe] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" type {"+" [Env]}] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary]]] [macro {"+" [with_identifiers]} - ["." code] + ["[0]" code] [syntax {"+" [syntax:]}]] [math [number diff --git a/stdlib/source/library/lux/type/quotient.lux b/stdlib/source/library/lux/type/quotient.lux index 5033db2a0..5e052acf2 100644 --- a/stdlib/source/library/lux/type/quotient.lux +++ b/stdlib/source/library/lux/type/quotient.lux @@ -5,10 +5,10 @@ [equivalence {"+" [Equivalence]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro {"+" [with_identifiers]} [syntax {"+" [syntax:]}]] - ["." type + ["[0]" type abstract]]]) (abstract: .public (Class t c %) diff --git a/stdlib/source/library/lux/type/refinement.lux b/stdlib/source/library/lux/type/refinement.lux index 172ddee2c..379ac2b6a 100644 --- a/stdlib/source/library/lux/type/refinement.lux +++ b/stdlib/source/library/lux/type/refinement.lux @@ -5,10 +5,10 @@ [predicate {"+" [Predicate]}]] [control [parser - ["<.>" code]]] - ["." macro + ["<[0]>" code]]] + ["[0]" macro [syntax {"+" [syntax:]}]] - ["." type + ["[0]" type abstract]]]) (abstract: .public (Refined t %) diff --git a/stdlib/source/library/lux/type/resource.lux b/stdlib/source/library/lux/type/resource.lux index ba56544aa..52813f686 100644 --- a/stdlib/source/library/lux/type/resource.lux +++ b/stdlib/source/library/lux/type/resource.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [Monad do]} + ["[0]" monad {"+" [Monad do]} [indexed {"+" [IxMonad]}]]] [control - ["." maybe] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data [text ["%" format {"+" [format]}]] [collection - ["." set] - ["." row {"+" [Row]}] - ["." list ("#\." functor mix)]]] - ["." macro + ["[0]" set] + ["[0]" row {"+" [Row]}] + ["[0]" list ("[1]\[0]" functor mix)]]] + ["[0]" macro [syntax {"+" [syntax:]}]] [math [number diff --git a/stdlib/source/library/lux/type/unit.lux b/stdlib/source/library/lux/type/unit.lux index 8ace4333f..f5e8060a4 100644 --- a/stdlib/source/library/lux/type/unit.lux +++ b/stdlib/source/library/lux/type/unit.lux @@ -1,29 +1,29 @@ (.module: [library [lux "*" - ["." meta] + ["[0]" meta] [abstract [monad {"+" [Monad do]}] [equivalence {"+" [Equivalence]}] [order {"+" [Order]}] [enum {"+" [Enum]}]] [control - ["<>" parser ("#\." monad) - ["<.>" code {"+" [Parser]}]]] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [macro - ["." code] - ["." template] + ["[0]" code] + ["[0]" template] [syntax {"+" [syntax:]} - ["|.|" export] - ["|.|" annotations]]] + ["|[0]|" export] + ["|[0]|" annotations]]] [math [number ["n" nat] ["i" int] - ["." ratio {"+" [Ratio]}]]] + ["[0]" ratio {"+" [Ratio]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/console.lux b/stdlib/source/library/lux/world/console.lux index 2c8a07f38..304c8c3c9 100644 --- a/stdlib/source/library/lux/world/console.lux +++ b/stdlib/source/library/lux/world/console.lux @@ -6,14 +6,14 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] [concurrency - ["." async {"+" [Async]}] - ["." atom]]] + ["[0]" async {"+" [Async]}] + ["[0]" atom]]] [data - ["." text {"+" [Char]} + ["[0]" text {"+" [Char]} ["%" format {"+" [format]}]]]]]) (type: .public (Console !) @@ -42,19 +42,19 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: java/io/Console - ["#::." + ["[1]::[0]" (readLine [] "io" "try" java/lang/String)]) (import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [] "io" "try" int)]) (import: java/io/PrintStream - ["#::." + ["[1]::[0]" (print [java/lang/String] "io" "try" void)]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" console [] "io" "?" java/io/Console) ("static" in java/io/InputStream) ("static" out java/io/PrintStream)]) diff --git a/stdlib/source/library/lux/world/db/jdbc.lux b/stdlib/source/library/lux/world/db/jdbc.lux index e9df26b7f..c67d9a8bb 100644 --- a/stdlib/source/library/lux/world/db/jdbc.lux +++ b/stdlib/source/library/lux/world/db/jdbc.lux @@ -5,25 +5,25 @@ [functor {"+" [Functor]}] [apply {"+" [Apply]}] [monad {"+" [Monad do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["ex" exception] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] [security ["!" capability {"+" [capability:]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]]] - ["." io {"+" [IO]}] + ["[0]" io {"+" [IO]}] [world [net {"+" [URL]}]] [host {"+" [import:]}]]] [// - ["." sql]] - ["." / "_" - ["#." input {"+" [Input]}] - ["#." output {"+" [Output]}]]) + ["[0]" sql]] + ["[0]" / "_" + ["[1][0]" input {"+" [Input]}] + ["[1][0]" output {"+" [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 790e60c83..1819241b3 100644 --- a/stdlib/source/library/lux/world/db/jdbc/input.lux +++ b/stdlib/source/library/lux/world/db/jdbc/input.lux @@ -5,10 +5,10 @@ [control [functor {"+" [Contravariant]}] [monad {"+" [Monad do]}] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [time - ["." instant {"+" [Instant]}]] - ["." io {"+" [IO]}] + ["[0]" instant {"+" [Instant]}]] + ["[0]" io {"+" [IO]}] [world [binary {"+" [Binary]}]]]]) diff --git a/stdlib/source/library/lux/world/db/jdbc/output.lux b/stdlib/source/library/lux/world/db/jdbc/output.lux index c36a4f2c0..25b4b0668 100644 --- a/stdlib/source/library/lux/world/db/jdbc/output.lux +++ b/stdlib/source/library/lux/world/db/jdbc/output.lux @@ -7,10 +7,10 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}] ["ex" exception] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [time - ["." instant {"+" [Instant]}]] - ["." io {"+" [IO]}] + ["[0]" instant {"+" [Instant]}]] + ["[0]" io {"+" [IO]}] [world [binary {"+" [Binary]}]]]]) diff --git a/stdlib/source/library/lux/world/db/sql.lux b/stdlib/source/library/lux/world/db/sql.lux index 1db248bbb..205e5e03e 100644 --- a/stdlib/source/library/lux/world/db/sql.lux +++ b/stdlib/source/library/lux/world/db/sql.lux @@ -6,12 +6,12 @@ [data [number ["i" int]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." template]] + ["[0]" template]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/file.lux b/stdlib/source/library/lux/world/file.lux index 047e1eaca..3eb8ea3e6 100644 --- a/stdlib/source/library/lux/world/file.lux +++ b/stdlib/source/library/lux/world/file.lux @@ -2,38 +2,38 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control [pipe {"+" [case>]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]} ("#\." functor)] - ["." function] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]} ("[1]\[0]" functor)] + ["[0]" function] [concurrency - ["." async {"+" [Async]}] - ["." stm {"+" [Var STM]}]]] + ["[0]" async {"+" [Async]}] + ["[0]" stm {"+" [Var STM]}]]] [data - ["." bit ("#\." equivalence)] - ["." product] - ["." binary {"+" [Binary]}] - ["." text ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." functor)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["i" int] ["f" frac]]] [time - ["." instant {"+" [Instant]}] - ["." duration]]]]) + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]]]]) (type: .public Path Text) @@ -164,7 +164,7 @@ (ffi.import: java/lang/String) (`` (ffi.import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String]) (~~ (template [<name>] [(<name> [] "io" "try" boolean)] @@ -183,24 +183,24 @@ ("static" separator java/lang/String)])) (ffi.import: java/lang/AutoCloseable - ["#::." + ["[1]::[0]" (close [] "io" "try" void)]) (ffi.import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte]] "io" "try" void) (flush [] "io" "try" void)]) (ffi.import: java/io/FileOutputStream - ["#::." + ["[1]::[0]" (new [java/io/File boolean] "io" "try")]) (ffi.import: java/io/InputStream - ["#::." + ["[1]::[0]" (read [[byte]] "io" "try" int)]) (ffi.import: java/io/FileInputStream - ["#::." + ["[1]::[0]" (new [java/io/File] "io" "try")]) (`` (implementation: .public default @@ -301,27 +301,27 @@ @.js (as_is (ffi.import: Buffer - ["#::." + ["[1]::[0]" ("static" from [Binary] ..Buffer)]) (ffi.import: FileDescriptor) (ffi.import: Stats - ["#::." + ["[1]::[0]" (size ffi.Number) (mtimeMs ffi.Number) (isFile [] ffi.Boolean) (isDirectory [] ffi.Boolean)]) (ffi.import: FsConstants - ["#::." + ["[1]::[0]" (F_OK ffi.Number) (R_OK ffi.Number) (W_OK ffi.Number) (X_OK ffi.Number)]) (ffi.import: Error - ["#::." + ["[1]::[0]" (toString [] ffi.String)]) (template: (with_async <write> <type> <body>) @@ -333,7 +333,7 @@ <read>)))]) (ffi.import: Fs - ["#::." + ["[1]::[0]" (constants FsConstants) (readFile [ffi.String ffi.Function] Any) (appendFile [ffi.String Buffer ffi.Function] Any) @@ -366,7 +366,7 @@ (#try.Failure (Error::toString [] (:as Error error)))))) (ffi.import: JsPath - ["#::." + ["[1]::[0]" (sep ffi.String)]) (template [<name> <path>] @@ -540,7 +540,7 @@ (primitive "python_tuple[2]" [left right])) (ffi.import: PyFile - ["#::." + ["[1]::[0]" (read [] "io" "try" Binary) (write [Binary] "io" "try" "?" Any) (close [] "io" "try" "?" Any)]) @@ -549,7 +549,7 @@ (ffi.import: (tuple [[ffi.Integer ffi.Integer]] (Tuple/2 ffi.Integer ffi.Integer))) (ffi.import: os - ["#::." + ["[1]::[0]" ("static" F_OK ffi.Integer) ("static" R_OK ffi.Integer) ("static" W_OK ffi.Integer) @@ -564,7 +564,7 @@ ("static" listdir [ffi.String] "io" "try" (Array ffi.String))]) (ffi.import: os/path - ["#::." + ["[1]::[0]" ("static" isfile [ffi.String] "io" "try" ffi.Boolean) ("static" isdir [ffi.String] "io" "try" ffi.Boolean) ("static" sep ffi.String) @@ -658,18 +658,18 @@ @.ruby (as_is (ffi.import: Time "as" RubyTime - ["#::." + ["[1]::[0]" ("static" at [Frac] RubyTime) (to_f [] Frac)]) (ffi.import: Stat "as" RubyStat - ["#::." + ["[1]::[0]" (executable? [] Bit) (size Int) (mtime [] RubyTime)]) (ffi.import: File "as" RubyFile - ["#::." + ["[1]::[0]" ("static" SEPARATOR ffi.String) ("static" open [Path ffi.String] "io" "try" RubyFile) ("static" stat [Path] "io" "try" RubyStat) @@ -684,14 +684,14 @@ (close [] "io" "try" "?" Any)]) (ffi.import: Dir "as" RubyDir - ["#::." + ["[1]::[0]" ("static" open [Path] "io" "try" RubyDir) (children [] "io" "try" (Array Path)) (close [] "io" "try" "?" Any)]) (ffi.import: "fileutils" FileUtils "as" RubyFileUtils - ["#::." + ["[1]::[0]" ("static" move [Path Path] "io" "try" "?" Any) ("static" rmdir [Path] "io" "try" "?" Any) ("static" mkdir [Path] "io" "try" "?" Any)]) diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux index 6950e0df9..ca06e9f74 100644 --- a/stdlib/source/library/lux/world/file/watch.lux +++ b/stdlib/source/library/lux/world/file/watch.lux @@ -2,35 +2,35 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]}] - ["." stm {"+" [STM Var]}]]] + ["[0]" async {"+" [Async]}] + ["[0]" stm {"+" [STM Var]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor monoid mix)] - ["." set] - ["." array]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor monoid mix)] + ["[0]" set] + ["[0]" array]]] [math [number ["n" nat]]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]] + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]] [type [abstract {"+" [abstract: :representation :abstraction]}]]]] - ["." //]) + ["[0]" //]) (abstract: .public Concern {} @@ -269,7 +269,7 @@ (import: java/lang/String) (import: (java/util/List a) - ["#::." + ["[1]::[0]" (size [] int) (get [int] a)]) @@ -287,18 +287,18 @@ (import: (java/nio/file/WatchEvent$Kind a)) (import: (java/nio/file/WatchEvent a) - ["#::." + ["[1]::[0]" (kind [] (java/nio/file/WatchEvent$Kind a))]) (import: java/nio/file/Watchable) (import: java/nio/file/Path - ["#::." + ["[1]::[0]" (register [java/nio/file/WatchService [(java/nio/file/WatchEvent$Kind [? < java/lang/Object])]] "io" "try" java/nio/file/WatchKey) (toString [] java/lang/String)]) (import: java/nio/file/StandardWatchEventKinds - ["#::." + ["[1]::[0]" ("static" ENTRY_CREATE (java/nio/file/WatchEvent$Kind java/nio/file/Path)) ("static" ENTRY_MODIFY (java/nio/file/WatchEvent$Kind java/nio/file/Path)) ("static" ENTRY_DELETE (java/nio/file/WatchEvent$Kind java/nio/file/Path))]) @@ -325,7 +325,7 @@ ))) (import: java/nio/file/WatchKey - ["#::." + ["[1]::[0]" (reset [] "io" boolean) (cancel [] "io" void) (watchable [] java/nio/file/Watchable) @@ -339,19 +339,19 @@ (list\mix ..also ..none))))) (import: java/nio/file/WatchService - ["#::." + ["[1]::[0]" (poll [] "io" "try" "?" java/nio/file/WatchKey)]) (import: java/nio/file/FileSystem - ["#::." + ["[1]::[0]" (newWatchService [] "io" "try" java/nio/file/WatchService)]) (import: java/nio/file/FileSystems - ["#::." + ["[1]::[0]" ("static" getDefault [] java/nio/file/FileSystem)]) (import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String]) (toPath [] java/nio/file/Path)]) diff --git a/stdlib/source/library/lux/world/net/http.lux b/stdlib/source/library/lux/world/net/http.lux index 05466bc1c..8afbd105b 100644 --- a/stdlib/source/library/lux/world/net/http.lux +++ b/stdlib/source/library/lux/world/net/http.lux @@ -6,7 +6,7 @@ [concurrency [frp {"+" [Channel]}]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data [binary {"+" [Binary]}]]]] [// {"+" [URL]} diff --git a/stdlib/source/library/lux/world/net/http/client.lux b/stdlib/source/library/lux/world/net/http/client.lux index 793486d5b..a2ec857a0 100644 --- a/stdlib/source/library/lux/world/net/http/client.lux +++ b/stdlib/source/library/lux/world/net/http/client.lux @@ -2,32 +2,32 @@ [library [lux "*" ["@" target] - ["." ffi] + ["[0]" ffi] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] + ["[0]" io {"+" [IO]}] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." binary {"+" [Binary]}] - ["." text] + ["[0]" binary {"+" [Binary]}] + ["[0]" text] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math [number ["n" nat] ["i" int]]]]] - ["." // + ["[0]" // [// {"+" [URL]}]]) (type: .public (Client !) @@ -72,18 +72,18 @@ (with_expansions [<jvm> (as_is (ffi.import: java/lang/String) (ffi.import: java/lang/AutoCloseable - ["#::." + ["[1]::[0]" (close [] "io" "try" void)]) (ffi.import: java/io/InputStream) (ffi.import: java/io/OutputStream - ["#::." + ["[1]::[0]" (flush [] "io" "try" void) (write [[byte]] "io" "try" void)]) (ffi.import: java/net/URLConnection - ["#::." + ["[1]::[0]" (setDoOutput [boolean] "io" "try" void) (setRequestProperty [java/lang/String java/lang/String] "io" "try" void) (getInputStream [] "io" "try" java/io/InputStream) @@ -92,17 +92,17 @@ (getHeaderField [int] "io" "try" "?" java/lang/String)]) (ffi.import: java/net/HttpURLConnection - ["#::." + ["[1]::[0]" (setRequestMethod [java/lang/String] "io" "try" void) (getResponseCode [] "io" "try" int)]) (ffi.import: java/net/URL - ["#::." + ["[1]::[0]" (new [java/lang/String]) (openConnection [] "io" "try" java/net/URLConnection)]) (ffi.import: java/io/BufferedInputStream - ["#::." + ["[1]::[0]" (new [java/io/InputStream]) (read [[byte] int int] "io" "try" int)]) diff --git a/stdlib/source/library/lux/world/net/http/cookie.lux b/stdlib/source/library/lux/world/net/http/cookie.lux index 1f894d194..b1a829f9a 100644 --- a/stdlib/source/library/lux/world/net/http/cookie.lux +++ b/stdlib/source/library/lux/world/net/http/cookie.lux @@ -3,8 +3,8 @@ [lux "*" [control [monad {"+" [do]}] - ["." try {"+" [Try]}] - ["p" parser ("#\." monad) + ["[0]" try {"+" [Try]}] + ["p" parser ("[1]\[0]" monad) ["l" text {"+" [Parser]}]]] [data [number @@ -12,13 +12,13 @@ [text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [time - ["." duration {"+" [Duration]}]]]] - ["." // {"+" [Header]} - ["." header]]) + ["[0]" duration {"+" [Duration]}]]]] + ["[0]" // {"+" [Header]} + ["[0]" header]]) (type: .public Directive (-> Text Text)) diff --git a/stdlib/source/library/lux/world/net/http/header.lux b/stdlib/source/library/lux/world/net/http/header.lux index d593ee3e5..ec716819d 100644 --- a/stdlib/source/library/lux/world/net/http/header.lux +++ b/stdlib/source/library/lux/world/net/http/header.lux @@ -7,9 +7,9 @@ [text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]]]] + ["[0]" dictionary {"+" [Dictionary]}]]]]] [// {"+" [Header]} - ["." mime {"+" [MIME]}] + ["[0]" mime {"+" [MIME]}] [// {"+" [URL]}]]) (def: .public (has name value) diff --git a/stdlib/source/library/lux/world/net/http/mime.lux b/stdlib/source/library/lux/world/net/http/mime.lux index 6f18a1399..257a4d5a5 100644 --- a/stdlib/source/library/lux/world/net/http/mime.lux +++ b/stdlib/source/library/lux/world/net/http/mime.lux @@ -2,9 +2,9 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}] - ["." encoding {"+" [Encoding]}]]] + ["[0]" encoding {"+" [Encoding]}]]] [type abstract]]]) diff --git a/stdlib/source/library/lux/world/net/http/query.lux b/stdlib/source/library/lux/world/net/http/query.lux index ccfb68d2b..6a07496d4 100644 --- a/stdlib/source/library/lux/world/net/http/query.lux +++ b/stdlib/source/library/lux/world/net/http/query.lux @@ -4,18 +4,18 @@ [control pipe [monad {"+" [do]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["p" parser ["l" text {"+" [Parser]}]]] [data [number - ["." nat]] - ["." text + ["[0]" nat]] + ["[0]" text ["%" format {"+" [format]}]] [format - ["." context {"+" [Context]}]] + ["[0]" context {"+" [Context]}]] [collection - ["." dictionary]]]]]) + ["[0]" dictionary]]]]]) (def: component (Parser Text) diff --git a/stdlib/source/library/lux/world/net/http/request.lux b/stdlib/source/library/lux/world/net/http/request.lux index 8ab8781cf..9ab4b1d32 100644 --- a/stdlib/source/library/lux/world/net/http/request.lux +++ b/stdlib/source/library/lux/world/net/http/request.lux @@ -3,31 +3,31 @@ [lux "*" [control pipe - ["." monad {"+" [do]}] - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" monad {"+" [do]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}] - ["." frp]] + ["[0]" async {"+" [Async]}] + ["[0]" frp]] [parser - ["<.>" json]]] + ["<[0]>" json]]] [data - ["." number + ["[0]" number ["n" nat]] - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." json {"+" [JSON]}] - ["." context {"+" [Context Property]}]] + ["[0]" json {"+" [JSON]}] + ["[0]" context {"+" [Context Property]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary]]] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Body Response Server]} - ["#." response] - ["#." query] - ["#." cookie]]) + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Body Response Server]} + ["[1][0]" response] + ["[1][0]" query] + ["[1][0]" cookie]]) (def: (merge inputs) (-> (List Binary) Binary) diff --git a/stdlib/source/library/lux/world/net/http/response.lux b/stdlib/source/library/lux/world/net/http/response.lux index a69eacb5c..0a03f9f31 100644 --- a/stdlib/source/library/lux/world/net/http/response.lux +++ b/stdlib/source/library/lux/world/net/http/response.lux @@ -3,23 +3,23 @@ [lux {"-" [static]} [control [concurrency - ["." async] - ["." frp ("#\." monad)]]] + ["[0]" async] + ["[0]" frp ("[1]\[0]" monad)]]] [data - ["." text - ["." encoding]] + ["[0]" text + ["[0]" encoding]] [format - ["." html] - ["." css {"+" [CSS]}] - ["." context] - ["." json {"+" [JSON]} ("#\." codec)]]] - ["." io] + ["[0]" html] + ["[0]" css {"+" [CSS]}] + ["[0]" context] + ["[0]" json {"+" [JSON]} ("[1]\[0]" codec)]]] + ["[0]" io] [world - ["." binary {"+" [Binary]}]]]] - ["." // {"+" [Status Body Response Server]} - ["." status] - ["." mime {"+" [MIME]}] - ["." header] + ["[0]" binary {"+" [Binary]}]]]] + ["[0]" // {"+" [Status Body Response Server]} + ["[0]" status] + ["[0]" mime {"+" [MIME]}] + ["[0]" header] [// {"+" [URL]}]]) (def: .public (static response) diff --git a/stdlib/source/library/lux/world/net/http/route.lux b/stdlib/source/library/lux/world/net/http/route.lux index 07578b549..4232f4481 100644 --- a/stdlib/source/library/lux/world/net/http/route.lux +++ b/stdlib/source/library/lux/world/net/http/route.lux @@ -3,16 +3,16 @@ [lux {"-" [or]} [control [monad {"+" [do]}] - ["." maybe] + ["[0]" maybe] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." text] + ["[0]" text] [number ["n" nat]]]]] - ["." // {"+" [URI Server]} - ["#." status] - ["#." response]]) + ["[0]" // {"+" [URI Server]} + ["[1][0]" status] + ["[1][0]" response]]) (template [<scheme> <name>] [(def: .public (<name> server) diff --git a/stdlib/source/library/lux/world/output/video/resolution.lux b/stdlib/source/library/lux/world/output/video/resolution.lux index 81a0e96b8..f83a2dd75 100644 --- a/stdlib/source/library/lux/world/output/video/resolution.lux +++ b/stdlib/source/library/lux/world/output/video/resolution.lux @@ -5,10 +5,10 @@ [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}]] [data - ["." product]] + ["[0]" product]] [math [number - ["." nat]]]]]) + ["[0]" nat]]]]]) (type: .public Resolution (Record diff --git a/stdlib/source/library/lux/world/program.lux b/stdlib/source/library/lux/world/program.lux index ac93b9667..6e535fef3 100644 --- a/stdlib/source/library/lux/world/program.lux +++ b/stdlib/source/library/lux/world/program.lux @@ -2,30 +2,30 @@ [library [lux "*" ["@" target] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." function] - ["." io {"+" [IO]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" function] + ["[0]" io {"+" [IO]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." atom] - ["." async {"+" [Async]}]] + ["[0]" atom] + ["[0]" async {"+" [Async]}]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data - ["." bit ("#\." equivalence)] - ["." text + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor)]]] - ["." macro - ["." template]] + ["[0]" array {"+" [Array]}] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" macro + ["[0]" template]] [math [number ["i" int]]] @@ -115,20 +115,20 @@ (with_expansions [<jvm> (as_is (import: java/lang/String) (import: (java/util/Iterator a) - ["#::." + ["[1]::[0]" (hasNext [] boolean) (next [] a)]) (import: (java/util/Set a) - ["#::." + ["[1]::[0]" (iterator [] (java/util/Iterator a))]) (import: (java/util/Map k v) - ["#::." + ["[1]::[0]" (keySet [] (java/util/Set k))]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" getenv [] (java/util/Map java/lang/String java/lang/String)) ("static" getenv "as" resolveEnv [java/lang/String] "io" "?" java/lang/String) ("static" getProperty [java/lang/String] "?" java/lang/String) @@ -148,7 +148,7 @@ (|>> %.int panic! io.io)) (import: NodeJs_Process - ["#::." + ["[1]::[0]" (exit [ffi.Number] "io" Nothing) (cwd [] "io" Path)]) @@ -162,11 +162,11 @@ (..default_exit! code))) (import: Browser_Window - ["#::." + ["[1]::[0]" (close [] Nothing)]) (import: Browser_Location - ["#::." + ["[1]::[0]" (reload [] Nothing)]) (def: (exit_browser! code) @@ -193,11 +193,11 @@ (..default_exit! code))) (import: Object - ["#::." + ["[1]::[0]" ("static" entries [Object] (Array (Array ffi.String)))]) (import: NodeJs_OS - ["#::." + ["[1]::[0]" (homedir [] "io" Path)]) (template [<name> <path>] @@ -221,20 +221,20 @@ _ (undefined)))) @.python (as_is (import: os - ["#::." + ["[1]::[0]" ("static" getcwd [] "io" ffi.String) ("static" _exit [ffi.Integer] "io" Nothing)]) (import: os/path - ["#::." + ["[1]::[0]" ("static" expanduser [ffi.String] "io" ffi.String)]) (import: os/environ - ["#::." + ["[1]::[0]" ("static" keys [] "io" (Array ffi.String)) ("static" get [ffi.String] "io" "?" ffi.String)])) @.lua (as_is (ffi.import: LuaFile - ["#::." + ["[1]::[0]" (read [ffi.String] "io" "?" ffi.String) (close [] "io" ffi.Boolean)]) @@ -261,20 +261,20 @@ (#try.Failure _) (in default))))) @.ruby (as_is (ffi.import: Env "as" RubyEnv - ["#::." + ["[1]::[0]" ("static" keys [] (Array Text)) ("static" fetch [Text] "io" "?" Text)]) (ffi.import: "fileutils" FileUtils "as" RubyFileUtils - ["#::." + ["[1]::[0]" ("static" pwd Path)]) (ffi.import: Dir "as" RubyDir - ["#::." + ["[1]::[0]" ("static" home Path)]) (ffi.import: Kernel "as" RubyKernel - ["#::." + ["[1]::[0]" ("static" exit [Int] "io" Nothing)])) ... @.php diff --git a/stdlib/source/library/lux/world/service/crud.lux b/stdlib/source/library/lux/world/service/crud.lux index 876f5e4cb..eeb245fea 100644 --- a/stdlib/source/library/lux/world/service/crud.lux +++ b/stdlib/source/library/lux/world/service/crud.lux @@ -2,11 +2,11 @@ [library [lux "*" [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [security ["!" capability {"+" [capability:]}]]] [time - ["." instant {"+" [Instant]}]]]]) + ["[0]" instant {"+" [Instant]}]]]]) (type: .public ID Nat) diff --git a/stdlib/source/library/lux/world/service/journal.lux b/stdlib/source/library/lux/world/service/journal.lux index 878da3eb7..6f080a26f 100644 --- a/stdlib/source/library/lux/world/service/journal.lux +++ b/stdlib/source/library/lux/world/service/journal.lux @@ -8,9 +8,9 @@ [security ["!" capability {"+" [capability:]}]]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]]]]) + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]]]]) (type: .public (Entry a) (Record @@ -31,7 +31,7 @@ (def: bottom start) (def: top end))) -(implementation: .public (equivalence (^open "_\.")) +(implementation: .public (equivalence (^open "_\[0]")) (All (_ a) (-> (Equivalence a) (Equivalence (Entry a)))) (def: (= reference sample) (and (_\= (value@ #what reference) (value@ #what sample)) diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux index 927412def..07a9b3f3f 100644 --- a/stdlib/source/library/lux/world/shell.lux +++ b/stdlib/source/library/lux/world/shell.lux @@ -6,27 +6,27 @@ [abstract [monad {"+" [do]}]] [control - ["." function] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" function] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [security ["?" policy {"+" [Context Safety Safe]}]] [concurrency - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]}]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]}]] [parser [environment {"+" [Environment]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." mix functor)] - ["." dictionary]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" dictionary]]] [math [number {"+" [hex]} ["n" nat]]]]] @@ -140,7 +140,7 @@ (Ex (_ ?) (-> (Sanitizer Command) (Sanitizer Argument) (Policy ?))) (?.with_policy (: (Context Safety Policy) - (function (_ (^open "?\.")) + (function (_ (^open "?\[0]")) (implementation (def: command (|>> safe_command ?\can_upgrade)) (def: argument (|>> safe_argument ?\can_upgrade)) @@ -171,7 +171,7 @@ (..policy safe_command safe_argument))) (with_expansions [<jvm> (as_is (import: java/lang/String - ["#::." + ["[1]::[0]" (toLowerCase [] java/lang/String)]) (def: (jvm::arguments_array arguments) @@ -185,7 +185,7 @@ arguments))) (import: (java/util/Map k v) - ["#::." + ["[1]::[0]" (put [k v] v)]) (def: (jvm::load_environment input target) @@ -202,26 +202,26 @@ (dictionary.entries input))) (import: java/io/Reader - ["#::." + ["[1]::[0]" (read [] "io" "try" int)]) (import: java/io/BufferedReader - ["#::." + ["[1]::[0]" (new [java/io/Reader]) (readLine [] "io" "try" "?" java/lang/String)]) (import: java/io/InputStream) (import: java/io/InputStreamReader - ["#::." + ["[1]::[0]" (new [java/io/InputStream])]) (import: java/io/OutputStream - ["#::." + ["[1]::[0]" (write [[byte]] "io" "try" void)]) (import: java/lang/Process - ["#::." + ["[1]::[0]" (getInputStream [] "io" "try" java/io/InputStream) (getErrorStream [] "io" "try" java/io/InputStream) (getOutputStream [] "io" "try" java/io/OutputStream) @@ -269,18 +269,18 @@ )))))))) (import: java/io/File - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (import: java/lang/ProcessBuilder - ["#::." + ["[1]::[0]" (new [[java/lang/String]]) (environment [] "try" (java/util/Map java/lang/String java/lang/String)) (directory [java/io/File] java/lang/ProcessBuilder) (start [] "io" "try" java/lang/Process)]) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" getProperty [java/lang/String] "io" "try" java/lang/String)]) ... https://en.wikipedia.org/wiki/Code_injection#Shell_injection diff --git a/stdlib/source/poly/lux/abstract/equivalence.lux b/stdlib/source/poly/lux/abstract/equivalence.lux index 73249fe27..c6bdaf517 100644 --- a/stdlib/source/poly/lux/abstract/equivalence.lux +++ b/stdlib/source/poly/lux/abstract/equivalence.lux @@ -4,42 +4,42 @@ [abstract [monad {"+" [Monad do]}]] [control - ["." maybe] + ["[0]" maybe] ["<>" parser - ["<.>" type]]] + ["<[0]>" type]]] [data - ["." product] - ["." bit] - ["." text ("#\." monoid) + ["[0]" product] + ["[0]" bit] + ["[0]" text ("[1]\[0]" monoid) ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad)] - ["." row] - ["." array] - ["." queue] - ["." set] - ["." dictionary {"+" [Dictionary]}] - ["." tree]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" row] + ["[0]" array] + ["[0]" queue] + ["[0]" set] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" tree]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["." nat ("#\." decimal)] - ["." int] - ["." rev] - ["." frac]]] + ["[0]" nat ("[1]\[0]" decimal)] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]] [time - ["." duration] - ["." date] - ["." instant] - ["." day] - ["." month]] - ["." type - ["." poly {"+" [poly:]}] - ["." unit]]]] + ["[0]" duration] + ["[0]" date] + ["[0]" instant] + ["[0]" day] + ["[0]" month]] + ["[0]" type + ["[0]" poly {"+" [poly:]}] + ["[0]" unit]]]] [\\library - ["." /]]) + ["[0]" /]]) (poly: .public equivalence (`` (do [! <>.monad] diff --git a/stdlib/source/poly/lux/abstract/functor.lux b/stdlib/source/poly/lux/abstract/functor.lux index 151ea600c..9537f3d38 100644 --- a/stdlib/source/poly/lux/abstract/functor.lux +++ b/stdlib/source/poly/lux/abstract/functor.lux @@ -5,24 +5,24 @@ [monad {"+" [Monad do]}]] [control ["p" parser - ["<.>" type] + ["<[0]>" type] ["s" code {"+" [Parser]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad monoid)]]] + ["[0]" list ("[1]\[0]" monad monoid)]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat]]] - ["." type - ["." poly {"+" [poly:]}]]]] + ["[0]" type + ["[0]" poly {"+" [poly:]}]]]] [\\library - ["." /]]) + ["[0]" /]]) (poly: .public functor (do [! p.monad] diff --git a/stdlib/source/poly/lux/data/format/json.lux b/stdlib/source/poly/lux/data/format/json.lux index a1c82c509..75f042b58 100644 --- a/stdlib/source/poly/lux/data/format/json.lux +++ b/stdlib/source/poly/lux/data/format/json.lux @@ -2,43 +2,43 @@ {#.doc "Codecs for values in the JSON format."} [library [lux "*" - ["." debug] + ["[0]" debug] [abstract [monad {"+" [do]}] - ["." codec]] + ["[0]" codec]] [control - ["." try] + ["[0]" try] ["<>" parser ["</>" json] - ["<.>" type] - ["<.>" code]]] + ["<[0]>" type] + ["<[0]>" code]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monad)] - ["." row {"+" [row]}] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" row {"+" [row]}] + ["[0]" dictionary]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number - ["n" nat ("#\." decimal)] - ["." i64] - ["." int] - ["." frac]]] + ["n" nat ("[1]\[0]" decimal)] + ["[0]" i64] + ["[0]" int] + ["[0]" frac]]] [time - ... ["." instant] - ... ["." duration] - ["." date] - ["." day] - ["." month]] - ["." type - ["." unit] - ["." poly {"+" [poly:]}]]]] + ... ["[0]" instant] + ... ["[0]" duration] + ["[0]" date] + ["[0]" day] + ["[0]" month]] + ["[0]" type + ["[0]" unit] + ["[0]" poly {"+" [poly:]}]]]] [\\library - ["." / {"+" [JSON]}]]) + ["[0]" / {"+" [JSON]}]]) (def: tag (-> Nat Frac) diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 93a188f95..a275eebea 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -2,67 +2,67 @@ [library [lux {"-" [Name]} [program {"+" [program:]}] - ["." debug] + ["[0]" debug] [abstract [monad {"+" [do]}]] [control [pipe {"+" [do>]}] - ["." io {"+" [IO]}] - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [exception:]}] [parser [environment {"+" [Environment]}]] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data [binary {"+" [Binary]}] - ["." text + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml]] + ["[0]" xml]] [collection - ["." set] - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor)]]] + ["[0]" set] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor)]]] [tool [compiler [language [lux - ["." syntax]]]]] + ["[0]" syntax]]]]] [world - ["." shell {"+" [Exit Shell]}] - ["." console {"+" [Console]}] - ["." program {"+" [Program]}] - ["." file {"+" [Path]} - ["." watch]] + ["[0]" shell {"+" [Exit Shell]}] + ["[0]" console {"+" [Console]}] + ["[0]" program {"+" [Program]}] + ["[0]" file {"+" [Path]} + ["[0]" watch]] [net - ["." http "_" - ["#" client]]]]]] - ["." / "_" - ["#" profile] - ["#." action {"+" [Action]}] - ["#." project {"+" [Project]}] - ["#." input] - ["#." parser] - ["#." pom] - ["#." cli] - ["#." dependency "_" - ["#" resolution {"+" [Resolution]}]] - ["#." repository {"+" [Repository]} - ["#/." remote {"+" [Address]}] - ["#/." local]] - ["#." command {"+" [Command]} - ["#/." version] - ["#/." clean] - ["#/." pom] - ["#/." install] - ["#/." deps] - ["#/." build] - ["#/." test] - ["#/." auto] - ["#/." deploy]]]) + ["[0]" http "_" + ["[1]" client]]]]]] + ["[0]" / "_" + ["[1]" profile] + ["[1][0]" action {"+" [Action]}] + ["[1][0]" project {"+" [Project]}] + ["[1][0]" input] + ["[1][0]" parser] + ["[1][0]" pom] + ["[1][0]" cli] + ["[1][0]" dependency "_" + ["[1]" resolution {"+" [Resolution]}]] + ["[1][0]" repository {"+" [Repository]} + ["[1]/[0]" remote {"+" [Address]}] + ["[1]/[0]" local]] + ["[1][0]" command {"+" [Command]} + ["[1]/[0]" version] + ["[1]/[0]" clean] + ["[1]/[0]" pom] + ["[1]/[0]" install] + ["[1]/[0]" deps] + ["[1]/[0]" build] + ["[1]/[0]" test] + ["[1]/[0]" auto] + ["[1]/[0]" deploy]]]) (def: repositories (-> /.Profile (List (Repository Async))) diff --git a/stdlib/source/program/aedifex/action.lux b/stdlib/source/program/aedifex/action.lux index 35024a755..9923ea207 100644 --- a/stdlib/source/program/aedifex/action.lux +++ b/stdlib/source/program/aedifex/action.lux @@ -4,9 +4,9 @@ [abstract [monad {"+" [Monad]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]]]]) + ["[0]" async {"+" [Async]}]]]]]) (type: .public (Action a) (Async (Try a))) diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index 1f1261436..8e5ee0429 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -6,15 +6,15 @@ [order {"+" [Order]}] [hash {"+" [Hash]}]] [data - ["." product] - ["." text ("#\." order) + ["[0]" product] + ["[0]" text ("[1]\[0]" order) ["%" format {"+" [Format]}]] [collection - ["." list ("#\." monoid)]]] + ["[0]" list ("[1]\[0]" monoid)]]] [world - ["." file {"+" [Path]}] + ["[0]" file {"+" [Path]}] [net - ["." uri {"+" [URI]}]]]]]) + ["[0]" uri {"+" [URI]}]]]]]) (type: .public Group Text) diff --git a/stdlib/source/program/aedifex/artifact/extension.lux b/stdlib/source/program/aedifex/artifact/extension.lux index 6b3a61367..3150b9df4 100644 --- a/stdlib/source/program/aedifex/artifact/extension.lux +++ b/stdlib/source/program/aedifex/artifact/extension.lux @@ -2,12 +2,12 @@ [library [lux {"-" [type]} [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [macro - ["." template]]]] - ["." // "_" - ["#" type]]) + ["[0]" template]]]] + ["[0]" // "_" + ["[1]" type]]) (type: .public Extension Text) diff --git a/stdlib/source/program/aedifex/artifact/snapshot.lux b/stdlib/source/program/aedifex/artifact/snapshot.lux index a83905f0b..0a0d5cd94 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot.lux @@ -6,14 +6,14 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." sum] + ["[0]" sum] [format - ["." xml {"+" [XML]}]]]]] - ["." / "_" - ["#." stamp {"+" [Stamp]}]]) + ["[0]" xml {"+" [XML]}]]]]] + ["[0]" / "_" + ["[1][0]" stamp {"+" [Stamp]}]]) (type: .public Snapshot (Variant diff --git a/stdlib/source/program/aedifex/artifact/snapshot/build.lux b/stdlib/source/program/aedifex/artifact/snapshot/build.lux index 3afdf31b1..a7e9e2fc8 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux @@ -6,16 +6,16 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]]] [data [text ["%" format]] [format - ["." xml {"+" [XML]}]]] + ["[0]" xml {"+" [XML]}]]] [math [number - ["." nat]]]]]) + ["[0]" nat]]]]]) (type: .public Build Nat) diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux index 8d57034ef..0a951c097 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux @@ -6,15 +6,15 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." product] + ["[0]" product] [format - ["." xml {"+" [XML]}]]]]] - ["." // "_" - ["#." time {"+" [Time]}] - ["#." build {"+" [Build]}]]) + ["[0]" xml {"+" [XML]}]]]]] + ["[0]" // "_" + ["[1][0]" time {"+" [Time]}] + ["[1][0]" build {"+" [Build]}]]) (type: .public Stamp (Record diff --git a/stdlib/source/program/aedifex/artifact/snapshot/time.lux b/stdlib/source/program/aedifex/artifact/snapshot/time.lux index ab62308b2..0b0bb8227 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/time.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/time.lux @@ -5,21 +5,21 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text] - ["<.>" xml {"+" [Parser]}]]] + ["<[0]>" text] + ["<[0]>" xml {"+" [Parser]}]]] [data [text ["%" format]] [format - ["." xml {"+" [XML]}]]] + ["[0]" xml {"+" [XML]}]]] [time - ["." instant {"+" [Instant]}]]]] - ["." /// "_" - ["#." time - ["#/." date] - ["#/." time]]]) + ["[0]" instant {"+" [Instant]}]]]] + ["[0]" /// "_" + ["[1][0]" time + ["[1]/[0]" date] + ["[1]/[0]" time]]]) (type: .public Time ///time.Time) diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux index ff3017838..33238b990 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux @@ -6,16 +6,16 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [format - ["." xml {"+" [XML]}]]]]] - ["." /// "_" - ["#." type {"+" [Type]}] - ["#." time {"+" [Time]}]]) + ["[0]" xml {"+" [XML]}]]]]] + ["[0]" /// "_" + ["[1][0]" type {"+" [Type]}] + ["[1][0]" time {"+" [Time]}]]) (type: .public Version (Record diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux index eff775ab3..dc3744f4f 100644 --- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux +++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux @@ -4,12 +4,12 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]]]]] - ["." /// {"+" [Snapshot]} - ["#." time] - ["#." stamp]]) + ["[0]" /// {"+" [Snapshot]} + ["[1][0]" time] + ["[1][0]" stamp]]) (type: .public Value (Record diff --git a/stdlib/source/program/aedifex/artifact/time.lux b/stdlib/source/program/aedifex/artifact/time.lux index d46d204bc..7096d7420 100644 --- a/stdlib/source/program/aedifex/artifact/time.lux +++ b/stdlib/source/program/aedifex/artifact/time.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." time] + ["[0]" time] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [Format]}]]] [time - ["." instant {"+" [Instant]}]]]] - ["." / "_" - ["#." date] - ["#." time]]) + ["[0]" instant {"+" [Instant]}]]]] + ["[0]" / "_" + ["[1][0]" date] + ["[1][0]" time]]) (type: .public Time [/date.Date /time.Time]) diff --git a/stdlib/source/program/aedifex/artifact/time/date.lux b/stdlib/source/program/aedifex/artifact/time/date.lux index deb9cb8ed..18688bf1a 100644 --- a/stdlib/source/program/aedifex/artifact/time/date.lux +++ b/stdlib/source/program/aedifex/artifact/time/date.lux @@ -5,10 +5,10 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data [text ["%" format]]] @@ -17,9 +17,9 @@ ["n" nat] ["i" int]]] [time - ["." date ("#\." equivalence)] - ["." year] - ["." month]] + ["[0]" date ("[1]\[0]" equivalence)] + ["[0]" year] + ["[0]" month]] [type abstract]]]) diff --git a/stdlib/source/program/aedifex/artifact/time/time.lux b/stdlib/source/program/aedifex/artifact/time/time.lux index 5fca26062..c27b1b69c 100644 --- a/stdlib/source/program/aedifex/artifact/time/time.lux +++ b/stdlib/source/program/aedifex/artifact/time/time.lux @@ -1,20 +1,20 @@ (.module: [library [lux "*" - ["." time] + ["[0]" time] [abstract [monad {"+" [do]}]] [control ["<>" parser - ["<.>" text {"+" [Parser]}]]] + ["<[0]>" text {"+" [Parser]}]]] [data [text ["%" format]]] [math [number ["n" nat]]]]] - ["." // "_" - ["#" date]]) + ["[0]" // "_" + ["[1]" date]]) (type: .public Time time.Time) diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux index d2d702236..644af3fa1 100644 --- a/stdlib/source/program/aedifex/artifact/versioning.lux +++ b/stdlib/source/program/aedifex/artifact/versioning.lux @@ -5,29 +5,29 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." exception {"+" [exception:]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format]] [format - ["." xml {"+" [XML]}]] + ["[0]" xml {"+" [XML]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] - ["." time {"+" [Time]} - ["." date {"+" [Date]}] - ["." year] - ["." month]]]] - ["." // "_" - ["#." time] - ["#." snapshot {"+" [Snapshot]} - ["#/." version {"+" [Version]}]]]) + ["[0]" time {"+" [Time]} + ["[0]" date {"+" [Date]}] + ["[0]" year] + ["[0]" month]]]] + ["[0]" // "_" + ["[1][0]" time] + ["[1][0]" snapshot {"+" [Snapshot]} + ["[1]/[0]" version {"+" [Version]}]]]) (type: .public Versioning (Record diff --git a/stdlib/source/program/aedifex/cli.lux b/stdlib/source/program/aedifex/cli.lux index 6c93fa3cc..04706756f 100644 --- a/stdlib/source/program/aedifex/cli.lux +++ b/stdlib/source/program/aedifex/cli.lux @@ -6,11 +6,11 @@ [monad {"+" [do]}]] [control ["<>" parser - ["." cli {"+" [Parser]}]]] + ["[0]" cli {"+" [Parser]}]]] [data - ["." sum] - ["." product] - ["." text]]]] + ["[0]" sum] + ["[0]" product] + ["[0]" text]]]] [// [repository [identity {"+" [Identity]}]] diff --git a/stdlib/source/program/aedifex/command.lux b/stdlib/source/program/aedifex/command.lux index b0b900e05..8594f0cfc 100644 --- a/stdlib/source/program/aedifex/command.lux +++ b/stdlib/source/program/aedifex/command.lux @@ -1,9 +1,9 @@ (.module: [library [lux "*"]] - ["." // "_" - ["#" profile] - ["#." action {"+" [Action]}]]) + ["[0]" // "_" + ["[1]" profile] + ["[1][0]" action {"+" [Action]}]]) (type: .public (Command a) (-> //.Profile (Action a))) diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index 5e3b425fe..dc065c399 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -2,26 +2,26 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [world [program {"+" [Program]}] [shell {"+" [Exit Shell]}] [console {"+" [Console]}] - ["." file - ["." watch {"+" [Watcher]}]]]]] - ["." // "_" - ["/#" // "_" + ["[0]" file + ["[0]" watch {"+" [Watcher]}]]]]] + ["[0]" // "_" + ["/[1]" // "_" [command {"+" [Command]}] - ["#" profile] - ["#." action] + ["[1]" profile] + ["[1][0]" action] [dependency [resolution {"+" [Resolution]}]]]]) diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index fea5ab74a..7d4592179 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -1,46 +1,46 @@ (.module: [library [lux {"-" [Name]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [order {"+" [Order]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data - ["." product] - ["." text ("#\." order) + ["[0]" product] + ["[0]" text ("[1]\[0]" order) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set]]] [math [number ["n" nat] ["i" int]]] [world - ["." program {"+" [Program]}] - ["." file {"+" [Path]}] - ["." shell {"+" [Exit Process Shell]}] - ["." console {"+" [Console]}] + ["[0]" program {"+" [Program]}] + ["[0]" file {"+" [Path]}] + ["[0]" shell {"+" [Exit Process Shell]}] + ["[0]" console {"+" [Console]}] [net - ["." uri]]]]] - ["." /// "_" - ["#" profile] - ["#." action] - ["#." command {"+" [Command]}] - ["#." local] - ["#." repository] - ["#." runtime] - ["#." dependency {"+" [Dependency]} - ["#/." resolution {"+" [Resolution]}]] - ["#." artifact {"+" [Group Name Version Artifact]} - ["#/." type]]]) + ["[0]" uri]]]]] + ["[0]" /// "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" command {"+" [Command]}] + ["[1][0]" local] + ["[1][0]" repository] + ["[1][0]" runtime] + ["[1][0]" dependency {"+" [Dependency]} + ["[1]/[0]" resolution {"+" [Resolution]}]] + ["[1][0]" artifact {"+" [Group Name Version Artifact]} + ["[1]/[0]" type]]]) (type: Finder (-> Resolution (Maybe Dependency))) @@ -226,7 +226,7 @@ ) (import: java/lang/System - ["#::." + ["[1]::[0]" ("static" getProperty [java/lang/String] "io" "try" java/lang/String)]) (def: windows? diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index 0d8a62512..232bde793 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -2,21 +2,21 @@ [library [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [text ["%" format {"+" [format]}]]] [world - ["." file {"+" [Path]}] - ["." console {"+" [Console]}]]]] - ["." /// "_" + ["[0]" file {"+" [Path]}] + ["[0]" console {"+" [Console]}]]]] + ["[0]" /// "_" [command {"+" [Command]}] - ["#" profile] - ["#." action {"+" [Action]}]]) + ["[1]" profile] + ["[1][0]" action {"+" [Action]}]]) (def: (clean_files! fs root) (-> (file.System Async) Path (Async (Try Any))) diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 49837055c..ee2cc3c71 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -5,53 +5,53 @@ [monad {"+" [do]}]] [control [pipe {"+" [do>]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" xml]]] + ["<[0]>" xml]]] [data [binary {"+" [Binary]}] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." set]] + ["[0]" set]] [format - ["." binary] - ["." tar] - ["." xml]]] + ["[0]" binary] + ["[0]" tar] + ["[0]" xml]]] [time - ["." instant {"+" [Instant]}]] + ["[0]" instant {"+" [Instant]}]] [world - ["." file] - ["." console {"+" [Console]}]]]] + ["[0]" file] + ["[0]" console {"+" [Console]}]]]] [program [compositor - ["." export]]] - ["." // "_" - ["#." clean] - ["/#" // "_" + ["[0]" export]]] + ["[0]" // "_" + ["[1][0]" clean] + ["/[1]" // "_" [command {"+" [Command]}] ["/" profile] - ["#." action {"+" [Action]}] - ["#." pom] - ["#." hash] - ["#." package] - ["#." dependency - ["#/." deployment] - ["#/." status {"+" [Status]}]] - ["#." repository {"+" [Repository]} + ["[1][0]" action {"+" [Action]}] + ["[1][0]" pom] + ["[1][0]" hash] + ["[1][0]" package] + ["[1][0]" dependency + ["[1]/[0]" deployment] + ["[1]/[0]" status {"+" [Status]}]] + ["[1][0]" repository {"+" [Repository]} [identity {"+" [Identity]}] - ["#/." remote] - ["#/." origin]] - ["#." metadata - ["#/." artifact] - ["#/." snapshot]] - ["#." artifact {"+" [Artifact]} - ["#/." extension {"+" [Extension]}] - ["#/." type]]]]) + ["[1]/[0]" remote] + ["[1]/[0]" origin]] + ["[1][0]" metadata + ["[1]/[0]" artifact] + ["[1]/[0]" snapshot]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" extension {"+" [Extension]}] + ["[1]/[0]" type]]]]) (def: .public success "Successfully deployed the project.") diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index a5c27f5ac..0cce84d7c 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -4,32 +4,32 @@ [abstract [monad {"+" [do]}]] [control - ["." exception] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [collection - ["." set {"+" [Set]}] - ["." list ("#\." mix)] - ["." dictionary]] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" dictionary]] [text ["%" format]]] [world [net {"+" [URL]}] [program {"+" [Program]}] - ["." file] - ["." console {"+" [Console]}]]]] - ["." // "_" - ["#." clean] - ["/#" // "_" + ["[0]" file] + ["[0]" console {"+" [Console]}]]]] + ["[0]" // "_" + ["[1][0]" clean] + ["/[1]" // "_" [command {"+" [Command]}] [repository {"+" [Repository]}] - ["#" profile] - ["#." action {"+" [Action]}] - ["#." artifact {"+" [Artifact]}] - ["#." dependency {"+" [Dependency]} - ["#/." resolution {"+" [Resolution]}] - ["#/." deployment]]]]) + ["[1]" profile] + ["[1][0]" action {"+" [Action]}] + ["[1][0]" artifact {"+" [Artifact]}] + ["[1][0]" dependency {"+" [Dependency]} + ["[1]/[0]" resolution {"+" [Resolution]}] + ["[1]/[0]" deployment]]]]) (def: format (%.Format Dependency) diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index 023b2cc84..660d82477 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -4,44 +4,44 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception] + ["[0]" try {"+" [Try]}] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [binary {"+" [Binary]}] [text [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." set]] + ["[0]" set]] [format - ["." binary] - ["." tar] - ["." xml]]] + ["[0]" binary] + ["[0]" tar] + ["[0]" xml]]] [world [program {"+" [Program]}] - ["." file] - ["." console {"+" [Console]}]]]] + ["[0]" file] + ["[0]" console {"+" [Console]}]]]] [program [compositor - ["." export]]] - ["." // "_" - ["#." clean] - ["/#" // "_" + ["[0]" export]]] + ["[0]" // "_" + ["[1][0]" clean] + ["/[1]" // "_" ["/" profile {"+" [Profile]}] - ["#." action {"+" [Action]}] - ["#." command {"+" [Command]}] - ["#." local] - ["#." pom] - ["#." package] + ["[1][0]" action {"+" [Action]}] + ["[1][0]" command {"+" [Command]}] + ["[1][0]" local] + ["[1][0]" pom] + ["[1][0]" package] [repository {"+" [Repository]} - ["#." origin]] - ["#." dependency "_" - ["#/." deployment] - ["#/." status]] - ["#." artifact {"+" [Artifact]} - ["#/." type]]]]) + ["[1][0]" origin]] + ["[1][0]" dependency "_" + ["[1]/[0]" deployment] + ["[1]/[0]" status]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type]]]]) (def: .public success "Successfully installed the project locally.") diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index fed4f8771..b176232aa 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -4,23 +4,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml]]] + ["[0]" xml]]] [world - ["." file] - ["." console {"+" [Console]}]]]] - ["." /// "_" + ["[0]" file] + ["[0]" console {"+" [Console]}]]]] + ["[0]" /// "_" [command {"+" [Command]}] - ["#." action] - ["#." pom]]) + ["[1][0]" action] + ["[1][0]" pom]]) (def: .public success (format "Successfully created POM file: " ///pom.file)) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index 8c18e45be..35c805645 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -5,22 +5,22 @@ [monad {"+" [do]}]] [control [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [math [number ["i" int]]] [world - ["." program {"+" [Program]}] - ["." file] - ["." shell {"+" [Exit Shell]}] - ["." console {"+" [Console]}]]]] - ["." // "_" - ["#." build] - ["/#" // "_" - ["#" profile] - ["#." action] - ["#." command {"+" [Command]}] - ["#." runtime] + ["[0]" program {"+" [Program]}] + ["[0]" file] + ["[0]" shell {"+" [Exit Shell]}] + ["[0]" console {"+" [Console]}]]]] + ["[0]" // "_" + ["[1][0]" build] + ["/[1]" // "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" command {"+" [Command]}] + ["[1][0]" runtime] [dependency [resolution {"+" [Resolution]}]]]]) diff --git a/stdlib/source/program/aedifex/command/version.lux b/stdlib/source/program/aedifex/command/version.lux index 640277699..11883dd86 100644 --- a/stdlib/source/program/aedifex/command/version.lux +++ b/stdlib/source/program/aedifex/command/version.lux @@ -3,15 +3,15 @@ [lux "*" [control [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [tool [compiler - ["." version] - ["." language "_" - ["#/." lux "_" - ["#" version]]]]] + ["[0]" version] + ["[0]" language "_" + ["[1]/[0]" lux "_" + ["[1]" version]]]]] [world - ["." console {"+" [Console]}]]]] + ["[0]" console {"+" [Console]}]]]] [/// [command {"+" [Command]}]]) diff --git a/stdlib/source/program/aedifex/dependency.lux b/stdlib/source/program/aedifex/dependency.lux index bb75342c1..d2f299b1d 100644 --- a/stdlib/source/program/aedifex/dependency.lux +++ b/stdlib/source/program/aedifex/dependency.lux @@ -6,11 +6,11 @@ [order {"+" [Order]}] [hash {"+" [Hash]}]] [data - ["." product] - ["." text ("#\." order) + ["[0]" product] + ["[0]" text ("[1]\[0]" order) ["%" format {"+" [format]}]]]]] - ["." // "_" - ["#" artifact {"+" [Artifact]} ("#\." order) + ["[0]" // "_" + ["[1]" artifact {"+" [Artifact]} ("[1]\[0]" order) [type {"+" [Type]}]]]) (type: .public Dependency diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux index 5227a8b95..fa6da0bc0 100644 --- a/stdlib/source/program/aedifex/dependency/deployment.lux +++ b/stdlib/source/program/aedifex/dependency/deployment.lux @@ -3,42 +3,42 @@ [lux "*" [abstract [codec {"+" [Codec]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [binary {"+" [Binary]}] - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary] - ["." set {"+" [Set]}] - ["." list ("#\." monoid)]]] + ["[0]" dictionary] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" monoid)]]] [time - ["." instant {"+" [Instant]}]]]] - ["." /// "_" + ["[0]" instant {"+" [Instant]}]]]] + ["[0]" /// "_" [repository {"+" [Repository]}] - ["#." hash {"+" [Hash]}] - ["#." package {"+" [Package]}] - ["#." artifact {"+" [Artifact]} - ["#/." time] - ["#/." type] - ["#/." extension {"+" [Extension]}] - ["#/." versioning] - ["#/." snapshot - ["#/." version - ["#/." value]]]] - ["#." metadata "_" - ["#/." artifact] - ["#/." snapshot {"+" [Metadata]}]] - ["#." dependency {"+" [Dependency]} + ["[1][0]" hash {"+" [Hash]}] + ["[1][0]" package {"+" [Package]}] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" time] + ["[1]/[0]" type] + ["[1]/[0]" extension {"+" [Extension]}] + ["[1]/[0]" versioning] + ["[1]/[0]" snapshot + ["[1]/[0]" version + ["[1]/[0]" value]]]] + ["[1][0]" metadata "_" + ["[1]/[0]" artifact] + ["[1]/[0]" snapshot {"+" [Metadata]}]] + ["[1][0]" dependency {"+" [Dependency]} [resolution {"+" [Resolution]}] - ["#/." status {"+" [Status]}]]]) + ["[1]/[0]" status {"+" [Status]}]]]) (def: (with_status repository version_template [artifact type] [data status]) (-> (Repository Async) ///artifact.Version Dependency [Binary Status] (Async (Try Any))) diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux index b8aead0aa..04609b10b 100644 --- a/stdlib/source/program/aedifex/dependency/resolution.lux +++ b/stdlib/source/program/aedifex/dependency/resolution.lux @@ -2,62 +2,62 @@ [library [lux {"-" [Name]} ["@" target] - ["." debug] - ["." ffi {"+" [import:]}] + ["[0]" debug] + ["[0]" ffi {"+" [import:]}] [abstract [codec {"+" [Codec]}] [equivalence {"+" [Equivalence]}] [monad {"+" [do]}] - ["." predicate {"+" [Predicate]}]] + ["[0]" predicate {"+" [Predicate]}]] [control - ["." maybe] - ["." try {"+" [Try]} ("#\." functor)] - ["." exception {"+" [Exception exception:]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception {"+" [Exception exception:]}] ["<>" parser - ["<.>" xml {"+" [Parser]}]] + ["<[0]>" xml {"+" [Parser]}]] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." binary {"+" [Binary]}] - ["." name] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml {"+" [Tag XML]}]] + ["[0]" xml {"+" [Tag XML]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." list ("#\." functor monoid)]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor monoid)]]] [math [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [world [console {"+" [Console]}] [net {"+" [URL]} - ["." uri] - ["." http "_" - ["#" client]]]]]] - ["." // {"+" [Dependency]} - ["#." status {"+" [Status]}] - ["/#" // "_" + ["[0]" uri] + ["[0]" http "_" + ["[1]" client]]]]]] + ["[0]" // {"+" [Dependency]} + ["[1][0]" status {"+" [Status]}] + ["/[1]" // "_" ["/" profile] - ["#." hash {"+" [Hash SHA-1 MD5]}] - ["#." pom] - ["#." package {"+" [Package]}] - ["#." artifact {"+" [Version Artifact]} - ["#/." extension {"+" [Extension]}] - ["#/." versioning] - ["." snapshot + ["[1][0]" hash {"+" [Hash SHA-1 MD5]}] + ["[1][0]" pom] + ["[1][0]" package {"+" [Package]}] + ["[1][0]" artifact {"+" [Version Artifact]} + ["[1]/[0]" extension {"+" [Extension]}] + ["[1]/[0]" versioning] + ["[0]" snapshot [version - ["." value]]]] - ["#." repository {"+" [Repository]} - ["#/." remote {"+" [Address]}] - ["#/." origin {"+" [Origin]}]] - ["#." metadata - ["#/." snapshot]]]]) + ["[0]" value]]]] + ["[1][0]" repository {"+" [Repository]} + ["[1]/[0]" remote {"+" [Address]}] + ["[1]/[0]" origin {"+" [Origin]}]] + ["[1][0]" metadata + ["[1]/[0]" snapshot]]]]) (template [<name>] [(exception: .public (<name> {artifact Artifact} {extension Extension} {hash Text}) @@ -71,7 +71,7 @@ ) (import: java/lang/String - ["#::." + ["[1]::[0]" (trim [] java/lang/String)]) (def: (verified_hash library repository version_template artifact extension hash codec exception) diff --git a/stdlib/source/program/aedifex/dependency/status.lux b/stdlib/source/program/aedifex/dependency/status.lux index 8d5f8ecc4..f5439114e 100644 --- a/stdlib/source/program/aedifex/dependency/status.lux +++ b/stdlib/source/program/aedifex/dependency/status.lux @@ -5,10 +5,10 @@ [equivalence {"+" [Equivalence]}]] [data [binary {"+" [Binary]}] - ["." sum] - ["." product]]]] - ["." /// "_" - ["#." hash {"+" [Hash SHA-1 MD5]}]]) + ["[0]" sum] + ["[0]" product]]]] + ["[0]" /// "_" + ["[1][0]" hash {"+" [Hash SHA-1 MD5]}]]) (type: .public Status (Variant diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux index f6b737fdf..3f626f0e2 100644 --- a/stdlib/source/program/aedifex/format.lux +++ b/stdlib/source/program/aedifex/format.lux @@ -2,21 +2,21 @@ [library [lux "*" [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." monad)] - ["." set {"+" [Set]}]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" set {"+" [Set]}]]] [macro - ["." code] - ["." template]]]] - ["." // "_" + ["[0]" code] + ["[0]" template]]]] + ["[0]" // "_" ["/" profile] - ["#." runtime {"+" [Runtime]}] - ["#." project {"+" [Project]}] - ["#." dependency {"+" [Dependency]}] - ["#." artifact {"+" [Artifact]} - ["#/." type]]]) + ["[1][0]" runtime {"+" [Runtime]}] + ["[1][0]" project {"+" [Project]}] + ["[1][0]" dependency {"+" [Dependency]}] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type]]]) (type: .public (Format a) (-> a Code)) diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux index 13ee22b41..eb00c2af5 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -1,23 +1,23 @@ (.module: [library [lux "*" - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [codec {"+" [Codec]}] [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." binary {"+" [Binary]}] - ["." text + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [Format format]}] - ["." encoding]]] + ["[0]" encoding]]] [math [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [type abstract]]]) @@ -27,7 +27,7 @@ (import: java/lang/String) (import: java/security/MessageDigest - ["#::." + ["[1]::[0]" ("static" getInstance [java/lang/String] java/security/MessageDigest) (digest [[byte]] [byte])]) diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux index 5bc33377b..02e212744 100644 --- a/stdlib/source/program/aedifex/input.lux +++ b/stdlib/source/program/aedifex/input.lux @@ -2,33 +2,33 @@ [library [lux {"-" [Name]} [abstract - ["." monad {"+" [Monad do]}] - ["." mix]] + ["[0]" monad {"+" [Monad do]}] + ["[0]" mix]] [control [pipe {"+" [do>]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [binary {"+" [Binary]}] - ["." text + ["[0]" text [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." list]]] + ["[0]" list]]] [meta - ["." location]] + ["[0]" location]] [tool [compiler [language [lux - ["." syntax]]]]] + ["[0]" syntax]]]]] [world - ["." file]]]] - ["." // "_" - ["#." profile {"+" [Name Profile]}] - ["#." project {"+" [Project]}] - ["#." parser]]) + ["[0]" file]]]] + ["[0]" // "_" + ["[1][0]" profile {"+" [Name Profile]}] + ["[1][0]" project {"+" [Project]}] + ["[1][0]" parser]]) (def: (lux_parser source_code) (-> Text (Try Code)) diff --git a/stdlib/source/program/aedifex/local.lux b/stdlib/source/program/aedifex/local.lux index 4fec9c339..c901cc8a1 100644 --- a/stdlib/source/program/aedifex/local.lux +++ b/stdlib/source/program/aedifex/local.lux @@ -6,9 +6,9 @@ ["%" format {"+" [format]}]]] [world [net - ["." uri {"+" [URI]}]]]]] - ["." // "_" - ["#." artifact {"+" [Version Artifact]}]]) + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" // "_" + ["[1][0]" artifact {"+" [Version Artifact]}]]) (def: / uri.separator) diff --git a/stdlib/source/program/aedifex/metadata.lux b/stdlib/source/program/aedifex/metadata.lux index 652aab29d..d0dbba2ba 100644 --- a/stdlib/source/program/aedifex/metadata.lux +++ b/stdlib/source/program/aedifex/metadata.lux @@ -2,14 +2,14 @@ [library [lux "*" [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [world [file {"+" [Path]}] [net - ["." uri {"+" [URI]}]]]]] - ["." // "_" - ["#." artifact {"+" [Artifact]}]]) + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" // "_" + ["[1][0]" artifact {"+" [Artifact]}]]) (def: remote_file Path diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux index dc54c8e2d..571d9bff1 100644 --- a/stdlib/source/program/aedifex/metadata/artifact.lux +++ b/stdlib/source/program/aedifex/metadata/artifact.lux @@ -6,37 +6,37 @@ [equivalence {"+" [Equivalence]}]] [control [pipe {"+" [do>]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml {"+" [XML]}]] + ["[0]" xml {"+" [XML]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] - ["." time {"+" [Time]} - ["." instant {"+" [Instant]}] - ["." date {"+" [Date]}] - ["." year] - ["." month]] + ["[0]" time {"+" [Time]} + ["[0]" instant {"+" [Instant]}] + ["[0]" date {"+" [Date]}] + ["[0]" year] + ["[0]" month]] [world [net - ["." uri {"+" [URI]}]]]]] - ["." // - ["/#" // "_" + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" // + ["/[1]" // "_" [repository {"+" [Repository]}] - ["#." artifact {"+" [Group Name Version Artifact]}]]]) + ["[1][0]" artifact {"+" [Group Name Version Artifact]}]]]) (type: .public Metadata (Record diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux index 6f8ceb41c..53f5faee0 100644 --- a/stdlib/source/program/aedifex/metadata/snapshot.lux +++ b/stdlib/source/program/aedifex/metadata/snapshot.lux @@ -6,44 +6,44 @@ [equivalence {"+" [Equivalence]}]] [control [pipe {"+" [do> case>]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] ["<>" parser - ["<.>" xml {"+" [Parser]}] - ["<.>" text]] + ["<[0]>" xml {"+" [Parser]}] + ["<[0]>" text]] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml {"+" [XML]}]] + ["[0]" xml {"+" [XML]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math [number ["n" nat]]] - ["." time {"+" [Time]} - ["." instant {"+" [Instant]}] - ["." date {"+" [Date]}] - ["." year] - ["." month]] + ["[0]" time {"+" [Time]} + ["[0]" instant {"+" [Instant]}] + ["[0]" date {"+" [Date]}] + ["[0]" year] + ["[0]" month]] [world [net - ["." uri {"+" [URI]}]]]]] - ["." // - ["/#" // "_" + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" // + ["/[1]" // "_" [repository {"+" [Repository]}] - ["#." artifact {"+" [Group Name Version Artifact]} - ["#/." time] - ["#/." type {"+" [Type]}] - ["#/." versioning {"+" [Versioning]}] - ["#/." snapshot - ["#/." version] - ["#/." stamp]]]]]) + ["[1][0]" artifact {"+" [Group Name Version Artifact]} + ["[1]/[0]" time] + ["[1]/[0]" type {"+" [Type]}] + ["[1]/[0]" versioning {"+" [Versioning]}] + ["[1]/[0]" snapshot + ["[1]/[0]" version] + ["[1]/[0]" stamp]]]]]) (type: .public Metadata (Record diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux index 069bdb83c..bd149b0d9 100644 --- a/stdlib/source/program/aedifex/package.lux +++ b/stdlib/source/program/aedifex/package.lux @@ -4,29 +4,29 @@ [abstract [equivalence {"+" [Equivalence]}]] [control - ["." try {"+" [Try]} ("#\." functor)] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [data - ["." sum] - ["." product] - ["." binary {"+" [Binary]}] + ["[0]" sum] + ["[0]" product] + ["[0]" binary {"+" [Binary]}] [text [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml {"+" [XML]}]] + ["[0]" xml {"+" [XML]}]] [collection [set {"+" [Set]}]]]]] - ["." // "_" + ["[0]" // "_" ["/" profile] - ["#." hash] - ["#." pom] + ["[1][0]" hash] + ["[1][0]" pom] [dependency {"+" [Dependency]} - ["#." status {"+" [Status]}]] + ["[1][0]" status {"+" [Status]}]] [repository [remote {"+" [Address]}] - ["#." origin {"+" [Origin]}]]]) + ["[1][0]" origin {"+" [Origin]}]]]) (type: .public Package (Record diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index c2a4c2754..02840c2ec 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -5,12 +5,12 @@ [monad {"+" [do]}]] [control ["<>" parser - ["<.>" code {"+" [Parser]}]]] + ["<[0]>" code {"+" [Parser]}]]] [data - ["." text] + ["[0]" text] [collection - ["." dictionary {"+" [Dictionary]}] - ["." set {"+" [Set]}]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set {"+" [Set]}]]] [tool [compiler [meta @@ -18,15 +18,15 @@ [descriptor {"+" [Module]}]]]]] [world [net {"+" [URL]}]]]] - ["." // "_" + ["[0]" // "_" ["/" profile] - ["#." runtime {"+" [Runtime]}] - ["#." project {"+" [Project]}] - ["#." dependency] - ["#." repository "_" - ["#" remote]] - ["#." artifact {"+" [Artifact]} - ["#/." type]]]) + ["[1][0]" runtime {"+" [Runtime]}] + ["[1][0]" project {"+" [Project]}] + ["[1][0]" dependency] + ["[1][0]" repository "_" + ["[1]" remote]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type]]]) (def: (as_input input) (-> (Maybe Code) (List Code)) diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux index 87a070f08..7cf6f961e 100644 --- a/stdlib/source/program/aedifex/pom.lux +++ b/stdlib/source/program/aedifex/pom.lux @@ -5,29 +5,29 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe ("#\." functor)] - ["." try {"+" [Try]}] - ["." exception] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try {"+" [Try]}] + ["[0]" exception] ["<>" parser - ["<.>" xml {"+" [Parser]}]]] + ["<[0]>" xml {"+" [Parser]}]]] [data - ["." name] - ["." text] + ["[0]" name] + ["[0]" text] [format ["_" xml {"+" [Tag XML]}]] [collection - ["." list ("#\." monoid functor mix)] - ["." set] - ["." dictionary]]] + ["[0]" list ("[1]\[0]" monoid functor mix)] + ["[0]" set] + ["[0]" dictionary]]] [world - ["." file]]]] - ["." // "_" + ["[0]" file]]]] + ["[0]" // "_" ["/" profile] - ["#." dependency {"+" [Dependency]}] + ["[1][0]" dependency {"+" [Dependency]}] [repository [remote {"+" [Address]}]] - ["#." artifact {"+" [Artifact]} - ["#/." type]]]) + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type]]]) ... https://maven.apache.org/pom.html diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux index 93be5bb38..2e3dc3da3 100644 --- a/stdlib/source/program/aedifex/profile.lux +++ b/stdlib/source/program/aedifex/profile.lux @@ -5,17 +5,17 @@ [monoid {"+" [Monoid]}] [equivalence {"+" [Equivalence]}]] [control - ["." maybe ("#\." monoid)] - ["." exception {"+" [exception:]}]] + ["[0]" maybe ("[1]\[0]" monoid)] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." monoid)] - ["." set {"+" [Set]}]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" monoid)] + ["[0]" set {"+" [Set]}]]] [macro - ["." template]] + ["[0]" template]] [world [net {"+" [URL]}] [file {"+" [Path]}]] @@ -25,10 +25,10 @@ [archive [descriptor {"+" [Module]}]]]]]]] [// - ["." runtime {"+" [Runtime]} ("#\." equivalence)] - ["." dependency {"+" [Dependency]} ("#\." equivalence)] - ["." artifact {"+" [Artifact]} - ["." type]] + ["[0]" runtime {"+" [Runtime]} ("[1]\[0]" equivalence)] + ["[0]" dependency {"+" [Dependency]} ("[1]\[0]" equivalence)] + ["[0]" artifact {"+" [Artifact]} + ["[0]" type]] [repository [remote {"+" [Address]}]]]) diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux index f497b499d..e7ed18148 100644 --- a/stdlib/source/program/aedifex/project.lux +++ b/stdlib/source/program/aedifex/project.lux @@ -4,19 +4,19 @@ [abstract [equivalence {"+" [Equivalence]}] [monoid {"+" [Monoid]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." set {"+" [Set]}] - ["." list ("#\." mix)]]]]] - ["." // "_" - ["#" profile {"+" [Name Profile]}]]) + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" mix)]]]]] + ["[0]" // "_" + ["[1]" profile {"+" [Name Profile]}]]) (def: .public file "project.lux") diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux index 04eb87356..5cca8174b 100644 --- a/stdlib/source/program/aedifex/repository.lux +++ b/stdlib/source/program/aedifex/repository.lux @@ -5,10 +5,10 @@ [monad {"+" [do]}]] [control [io {"+" [IO]}] - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}] - ["." stm]]] + ["[0]" async {"+" [Async]}] + ["[0]" stm]]] [data [binary {"+" [Binary]}]] [world diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux index 06df89360..abe5e2e1b 100644 --- a/stdlib/source/program/aedifex/repository/identity.lux +++ b/stdlib/source/program/aedifex/repository/identity.lux @@ -1,15 +1,15 @@ (.module: [library [lux "*" - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]]]]]) + ["[0]" utf8]]]]]]) (type: .public User Text) @@ -30,11 +30,11 @@ )) (import: java/util/Base64$Encoder - ["#::." + ["[1]::[0]" (encodeToString [[byte]] java/lang/String)]) (import: java/util/Base64 - ["#::." + ["[1]::[0]" ("static" getEncoder [] java/util/Base64$Encoder)]) (def: .public (basic_auth user password) diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux index 4a2837672..2c528a520 100644 --- a/stdlib/source/program/aedifex/repository/local.lux +++ b/stdlib/source/program/aedifex/repository/local.lux @@ -4,21 +4,21 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [world [program {"+" [Program]}] - ["." file] + ["[0]" file] [net - ["." uri {"+" [URI]}]]]]] - ["." // - ["/#" // "_" - ["#." local] - ["#." metadata]]]) + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" // + ["/[1]" // "_" + ["[1][0]" local] + ["[1][0]" metadata]]]) (def: (root program /) (-> (Program Async) Text file.Path) diff --git a/stdlib/source/program/aedifex/repository/origin.lux b/stdlib/source/program/aedifex/repository/origin.lux index fdee108c5..72163f641 100644 --- a/stdlib/source/program/aedifex/repository/origin.lux +++ b/stdlib/source/program/aedifex/repository/origin.lux @@ -4,8 +4,8 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." sum] - ["." text]] + ["[0]" sum] + ["[0]" text]] [world [file {"+" [Path]}] [net {"+" [URL]}]]]]) diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux index ea8952bef..69fd9c255 100644 --- a/stdlib/source/program/aedifex/repository/remote.lux +++ b/stdlib/source/program/aedifex/repository/remote.lux @@ -4,30 +4,30 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] + ["[0]" product] [text ["%" format {"+" [format]}]]] [tool [compiler - ["." version] - ["." language "_" - ["#/." lux "_" - ["#" version]]]]] + ["[0]" version] + ["[0]" language "_" + ["[1]/[0]" lux "_" + ["[1]" version]]]]] [world [net {"+" [URL]} [uri {"+" [URI]}] - ["." http "_" - ["#" client] - ["#/." status] - ["@#" /]]]]]] - ["." // - ["#." identity {"+" [Identity]}] - ["/#" // "_" - ["#." artifact {"+" [Version Artifact]} + ["[0]" http "_" + ["[1]" client] + ["[1]/[0]" status] + ["@[1]" /]]]]]] + ["[0]" // + ["[1][0]" identity {"+" [Identity]}] + ["/[1]" // "_" + ["[1][0]" artifact {"+" [Version Artifact]} [extension {"+" [Extension]}]]]]) (type: .public Address diff --git a/stdlib/source/program/aedifex/runtime.lux b/stdlib/source/program/aedifex/runtime.lux index 3c8ec6485..f600a87f5 100644 --- a/stdlib/source/program/aedifex/runtime.lux +++ b/stdlib/source/program/aedifex/runtime.lux @@ -4,15 +4,15 @@ [abstract [equivalence {"+" [Equivalence]}]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." monoid)]]] + ["[0]" list ("[1]\[0]" monoid)]]] [macro - ["." template]] + ["[0]" template]] [world - ["." file]]]]) + ["[0]" file]]]]) (type: .public Runtime (Record diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 0fbfeb6fb..48e296847 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -3,42 +3,42 @@ [lux {"-" [Module]} [type {"+" [:sharing]}] ["@" target] - ["." debug] + ["[0]" debug] [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO io]}] - ["." try {"+" [Try]}] + ["[0]" io {"+" [IO io]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." row {"+" [Row]}]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row {"+" [Row]}]]] [time - ["." instant]] - ["." world "_" - ["." file] - ["#/." program] - ... ["." console] + ["[0]" instant]] + ["[0]" world "_" + ["[0]" file] + ["[1]/[0]" program] + ... ["[0]" console] ] [tool [compiler - ["." phase] + ["[0]" phase] [default - ["." platform {"+" [Platform]}]] + ["[0]" platform {"+" [Platform]}]] [language ["$" lux - ["#/." program {"+" [Program]}] - ["." syntax] - ["." analysis + ["[1]/[0]" program {"+" [Program]}] + ["[0]" syntax] + ["[0]" analysis [macro {"+" [Expander]}]] - ["." generation {"+" [Buffer Context]}] - ["." directive] + ["[0]" generation {"+" [Buffer Context]}] + ["[0]" directive] [phase [extension {"+" [Extender]}]]]] [meta @@ -46,16 +46,16 @@ [archive {"+" [Archive]} [descriptor {"+" [Module]}]] [cache - ["." dependency]] + ["[0]" dependency]] [io ["ioW" archive]]]] - ... ["." interpreter] + ... ["[0]" interpreter] ]]] - ["." / "_" - ["#." cli {"+" [Service]}] - ["#." static {"+" [Static]}] - ["#." export] - ["#." import]]) + ["[0]" / "_" + ["[1][0]" cli {"+" [Service]}] + ["[1][0]" static {"+" [Static]}] + ["[1][0]" export] + ["[1][0]" import]]) (def: (or_crash! failure_description action) (All (_ a) diff --git a/stdlib/source/program/compositor/cli.lux b/stdlib/source/program/compositor/cli.lux index 58f36d8c8..487c3976f 100644 --- a/stdlib/source/program/compositor/cli.lux +++ b/stdlib/source/program/compositor/cli.lux @@ -4,7 +4,7 @@ [control [pipe {"+" [case>]}] ["<>" parser - ["." cli {"+" [Parser]}]]] + ["[0]" cli {"+" [Parser]}]]] [tool [compiler [meta diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index e2d89879a..2fe3171e0 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -2,29 +2,29 @@ [library [lux {"-" [Source]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." row]] + ["[0]" dictionary] + ["[0]" row]] [format - ["." binary] - ["." tar]]] + ["[0]" binary] + ["[0]" tar]]] [time - ["." instant]] + ["[0]" instant]] [tool [compiler [meta - ["." io "_" - ["#" context {"+" [Extension]}]]]]] + ["[0]" io "_" + ["[1]" context {"+" [Extension]}]]]]] [world - ["." file]]]] + ["[0]" file]]]] [// [cli {"+" [Source Export]}]]) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 72bc61d57..b15c95080 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -2,30 +2,30 @@ [library [lux {"-" [Module]} [abstract - ["." monad {"+" [Monad do]}]] + ["[0]" monad {"+" [Monad do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] ["<>" parser - ["<.>" binary]]] + ["<[0]>" binary]]] [data [binary {"+" [Binary]}] - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." row]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" row]] [format - ["." tar]]] + ["[0]" tar]]] [tool [compiler [meta [archive [descriptor {"+" [Module]}]]]]] [world - ["." file]]]] + ["[0]" file]]]] [// [cli {"+" [Library]}]]) diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux index 187173782..40d1176dd 100644 --- a/stdlib/source/program/scriptum.lux +++ b/stdlib/source/program/scriptum.lux @@ -2,36 +2,36 @@ [library [lux "*" [program {"+" [program:]}] - ["." type ("#\." equivalence)] - ["." debug] + ["[0]" type ("[1]\[0]" equivalence)] + ["[0]" debug] [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control [pipe {"+" [when> new>]}] - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}] - ["." function]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}] + ["[0]" function]] [data - ["." product] + ["[0]" product] [format ["md" markdown {"+" [Markdown Span Block]}]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." sequence {"+" [Sequence]} ("#\." functor)] - ["." list ("#\." functor mix)]]] + ["[0]" sequence {"+" [Sequence]} ("[1]\[0]" functor)] + ["[0]" list ("[1]\[0]" functor mix)]]] [math [number ["n" nat]]] - ["." meta - ["." annotation]] + ["[0]" meta + ["[0]" annotation]] [world - ["." file]]]] + ["[0]" file]]]] ... This was added to make sure that all tested modules are picked up ... and their documentation is generated. [test/lux {"+" []}]) diff --git a/stdlib/source/specification/aedifex/repository.lux b/stdlib/source/specification/aedifex/repository.lux index e08211d32..bf430a368 100644 --- a/stdlib/source/specification/aedifex/repository.lux +++ b/stdlib/source/specification/aedifex/repository.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." binary - ["_#" \\test]]] + ["[0]" binary + ["_[1]" \\test]]] [math - ["." random]]]] + ["[0]" random]]]] [\\program - ["." / - ["#." remote] - ["/#" // "_" - ["#." artifact {"+" [Artifact]} - ["#/." extension]]]]] + ["[0]" / + ["[1][0]" remote] + ["/[1]" // "_" + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" extension]]]]] [\\test - ["_." // "_" - ["#." artifact]]]) + ["_[0]" // "_" + ["[1][0]" artifact]]]) (def: .public (spec valid_artifact invalid_artifact subject) (-> Artifact Artifact (/.Repository Async) Test) diff --git a/stdlib/source/specification/compositor.lux b/stdlib/source/specification/compositor.lux index d8d1a718c..a2569f334 100644 --- a/stdlib/source/specification/compositor.lux +++ b/stdlib/source/specification/compositor.lux @@ -4,30 +4,30 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try]] + ["[0]" io {"+" [IO]}] + ["[0]" try]] [math ["r" random]] [tool [compiler - ["." analysis] - ["." directive] + ["[0]" analysis] + ["[0]" directive] [phase [macro {"+" [Expander]}] [generation {"+" [Bundle]}]] [default [platform {"+" [Platform]}]]]]] - ["." / "_" - ["#." common {"+" [Runner Definer]}] - ["#./" analysis "_" - ["#." type]] - ["#./" generation "_" - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." function] - ["#." common]]]) + ["[0]" / "_" + ["[1][0]" common {"+" [Runner Definer]}] + ["[1]./" analysis "_" + ["[1][0]" type]] + ["[1]./" generation "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" function] + ["[1][0]" common]]]) (def: (test runner definer state expander) (-> Runner Definer analysis.State+ Expander Test) diff --git a/stdlib/source/specification/compositor/analysis/type.lux b/stdlib/source/specification/compositor/analysis/type.lux index 2ad411da0..be7677848 100644 --- a/stdlib/source/specification/compositor/analysis/type.lux +++ b/stdlib/source/specification/compositor/analysis/type.lux @@ -5,20 +5,20 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." io] - ["." try]] + ["[0]" io] + ["[0]" try]] [math ["r" random {"+" [Random]}]] [macro - ["." code]] + ["[0]" code]] [tool [compiler [analysis {"+" [State+]}] - ["." phase + ["[0]" phase [macro {"+" [Expander]}] - ["." analysis - ["#/." scope] - ["#/." type]]]]]]) + ["[0]" analysis + ["[1]/[0]" scope] + ["[1]/[0]" type]]]]]]) (def: (check_success+ expander state extension params output_type) (-> Expander State+ Text (List Code) Type Bit) diff --git a/stdlib/source/specification/compositor/common.lux b/stdlib/source/specification/compositor/common.lux index bf1236b3f..31a1675f3 100644 --- a/stdlib/source/specification/compositor/common.lux +++ b/stdlib/source/specification/compositor/common.lux @@ -3,21 +3,21 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." try {"+" [Try]}]] + ["[0]" io {"+" [IO]}] + ["[0]" try {"+" [Try]}]] [tool [compiler - ["." reference] - ["." analysis] - ["." synthesis {"+" [Synthesis]}] - ["." directive] - ["." phase - ["." macro {"+" [Expander]}] - ["." generation {"+" [Operation]}] + ["[0]" reference] + ["[0]" analysis] + ["[0]" synthesis {"+" [Synthesis]}] + ["[0]" directive] + ["[0]" phase + ["[0]" macro {"+" [Expander]}] + ["[0]" generation {"+" [Operation]}] [extension {"+" [Extender]} - ["." bundle]]] + ["[0]" bundle]]] [default - ["." platform {"+" [Platform]}]]]]]) + ["[0]" platform {"+" [Platform]}]]]]]) (type: .public Runner (-> Text Synthesis (Try Any))) diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux index d71abc703..d699aa74b 100644 --- a/stdlib/source/specification/compositor/generation/case.lux +++ b/stdlib/source/specification/compositor/generation/case.lux @@ -5,26 +5,26 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [number ["n" nat] ["f" frac]] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math ["r" random {"+" [Random]}]] [tool [compiler - ["." reference] - ["." analysis] - ["." synthesis {"+" [Path Synthesis]}] - ["." phase - ["#/." synthesis - ["." case]] - ["." extension/synthesis]]]]] + ["[0]" reference] + ["[0]" analysis] + ["[0]" synthesis {"+" [Path Synthesis]}] + ["[0]" phase + ["[1]/[0]" synthesis + ["[0]" case]] + ["[0]" extension/synthesis]]]]] [/// [common {"+" [Runner]}]]) diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux index 917d830b6..c8dd72bf7 100644 --- a/stdlib/source/specification/compositor/generation/common.lux +++ b/stdlib/source/specification/compositor/generation/common.lux @@ -5,26 +5,26 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [number - ["." i64] + ["[0]" i64] ["n" nat] ["i" int] ["f" frac]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list]]] + ["[0]" list]]] [math ["r" random {"+" [Random]}]] [tool [compiler - ["." reference] - ["." synthesis]]]] - ["." // "_" - ["#." case] + ["[0]" reference] + ["[0]" synthesis]]]] + ["[0]" // "_" + ["[1][0]" case] [// [common {"+" [Runner]}]]]) diff --git a/stdlib/source/specification/compositor/generation/function.lux b/stdlib/source/specification/compositor/generation/function.lux index f356bce90..1708264a2 100644 --- a/stdlib/source/specification/compositor/generation/function.lux +++ b/stdlib/source/specification/compositor/generation/function.lux @@ -3,24 +3,24 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." enum]] + ["[0]" enum]] [control [pipe {"+" [case>]}] - ["." maybe]] + ["[0]" maybe]] [data [number ["n" nat]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["r" random {"+" [Random]} ("#\." monad)]] + ["r" random {"+" [Random]} ("[1]\[0]" monad)]] [tool [compiler [analysis {"+" [Arity]}] - ["." reference {"+" [Register]}] - ["." synthesis {"+" [Synthesis]}]]]] - ["." // "_" - ["#." case] + ["[0]" reference {"+" [Register]}] + ["[0]" synthesis {"+" [Synthesis]}]]]] + ["[0]" // "_" + ["[1][0]" case] [// [common {"+" [Runner]}]]]) diff --git a/stdlib/source/specification/compositor/generation/primitive.lux b/stdlib/source/specification/compositor/generation/primitive.lux index a73ba6f21..ba20601a3 100644 --- a/stdlib/source/specification/compositor/generation/primitive.lux +++ b/stdlib/source/specification/compositor/generation/primitive.lux @@ -5,18 +5,18 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [number ["f" frac]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math ["r" random]] [tool [compiler - ["." synthesis]]]] + ["[0]" synthesis]]]] [/// [common {"+" [Runner]}]]) diff --git a/stdlib/source/specification/compositor/generation/reference.lux b/stdlib/source/specification/compositor/generation/reference.lux index 37aea49fe..ce3c7332a 100644 --- a/stdlib/source/specification/compositor/generation/reference.lux +++ b/stdlib/source/specification/compositor/generation/reference.lux @@ -5,15 +5,15 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data [number ["n" nat] ["f" frac]]] [tool [compiler - ["." reference] - ["." synthesis]]] + ["[0]" reference] + ["[0]" synthesis]]] [math ["r" random {"+" [Random]}]]] [/// diff --git a/stdlib/source/specification/compositor/generation/structure.lux b/stdlib/source/specification/compositor/generation/structure.lux index cd86ecab2..a70e61531 100644 --- a/stdlib/source/specification/compositor/generation/structure.lux +++ b/stdlib/source/specification/compositor/generation/structure.lux @@ -5,24 +5,24 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data [number ["n" nat] ["i" int]] - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}] - ["." list ("#\." functor)]]] + ["[0]" array {"+" [Array]}] + ["[0]" list ("[1]\[0]" functor)]]] [math ["r" random]] - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] [tool [compiler - ["." analysis] - ["." synthesis]]]] + ["[0]" analysis] + ["[0]" synthesis]]]] [/// [common {"+" [Runner]}]]) diff --git a/stdlib/source/specification/lux/abstract/apply.lux b/stdlib/source/specification/lux/abstract/apply.lux index 431fc8f29..f14a43aa5 100644 --- a/stdlib/source/specification/lux/abstract/apply.lux +++ b/stdlib/source/specification/lux/abstract/apply.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Apply]}]] + ["[0]" / {"+" [Apply]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (identity injection comparison (^open "\.")) +(def: (identity injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat)] @@ -24,7 +24,7 @@ (\on sample (injection function.identity)) sample)))) -(def: (homomorphism injection comparison (^open "\.")) +(def: (homomorphism injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat @@ -34,7 +34,7 @@ (\on (injection sample) (injection increase)) (injection (increase sample)))))) -(def: (interchange injection comparison (^open "\.")) +(def: (interchange injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat @@ -45,7 +45,7 @@ (\on (injection increase) (injection (: (-> (-> Nat Nat) Nat) (function (_ f) (f sample))))))))) -(def: (composition injection comparison (^open "\.")) +(def: (composition injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/codec.lux b/stdlib/source/specification/lux/abstract/codec.lux index bea518b69..5cbdb2aa1 100644 --- a/stdlib/source/specification/lux/abstract/codec.lux +++ b/stdlib/source/specification/lux/abstract/codec.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) -(def: .public (spec (^open "@//.") (^open "@//.") generator) +(def: .public (spec (^open "@//[0]") (^open "@//[0]") generator) (All (_ m a) (-> (Equivalence a) (/.Codec m a) (Random a) Test)) (do random.monad [expected generator] diff --git a/stdlib/source/specification/lux/abstract/comonad.lux b/stdlib/source/specification/lux/abstract/comonad.lux index 4941d31ad..ee28bfb49 100644 --- a/stdlib/source/specification/lux/abstract/comonad.lux +++ b/stdlib/source/specification/lux/abstract/comonad.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [CoMonad]}]] + ["[0]" / {"+" [CoMonad]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (left_identity injection (^open "_//.")) +(def: (left_identity injection (^open "_//[0]")) (All (_ f) (-> (Injection f) (CoMonad f) Test)) (do [! random.monad] [sample random.nat @@ -25,7 +25,7 @@ (n.= (morphism start) (|> start _//disjoint (_//each morphism) _//out))))) -(def: (right_identity injection comparison (^open "_//.")) +(def: (right_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (CoMonad f) Test)) (do random.monad [sample random.nat @@ -35,7 +35,7 @@ (== start (|> start _//disjoint (_//each _//out)))))) -(def: (associativity injection comparison (^open "_//.")) +(def: (associativity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (CoMonad f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/enum.lux b/stdlib/source/specification/lux/abstract/enum.lux index 2f71401ae..26fdf0828 100644 --- a/stdlib/source/specification/lux/abstract/enum.lux +++ b/stdlib/source/specification/lux/abstract/enum.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "\.") gen_sample) +(def: .public (spec (^open "\[0]") gen_sample) (All (_ a) (-> (/.Enum a) (Random a) Test)) (do random.monad [sample gen_sample] diff --git a/stdlib/source/specification/lux/abstract/equivalence.lux b/stdlib/source/specification/lux/abstract/equivalence.lux index 59786ab42..d4c335794 100644 --- a/stdlib/source/specification/lux/abstract/equivalence.lux +++ b/stdlib/source/specification/lux/abstract/equivalence.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / {"+" [Equivalence]}]]) + ["[0]" / {"+" [Equivalence]}]]) -(def: .public (spec (^open "_//.") random) +(def: .public (spec (^open "_//[0]") random) (All (_ a) (-> (Equivalence a) (Random a) Test)) (do random.monad [left random diff --git a/stdlib/source/specification/lux/abstract/functor.lux b/stdlib/source/specification/lux/abstract/functor.lux index 681f6dcd5..37e38ad42 100644 --- a/stdlib/source/specification/lux/abstract/functor.lux +++ b/stdlib/source/specification/lux/abstract/functor.lux @@ -6,13 +6,13 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Functor]}]]) + ["[0]" / {"+" [Functor]}]]) (type: .public (Injection f) (All (_ a) (-> a (f a)))) @@ -22,7 +22,7 @@ (-> (Equivalence a) (Equivalence (f a))))) -(def: (identity injection comparison (^open "@//.")) +(def: (identity injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat)] @@ -31,7 +31,7 @@ (@//each function.identity sample) sample)))) -(def: (homomorphism injection comparison (^open "@//.")) +(def: (homomorphism injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample random.nat @@ -41,7 +41,7 @@ (@//each increase (injection sample)) (injection (increase sample)))))) -(def: (composition injection comparison (^open "@//.")) +(def: (composition injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat) diff --git a/stdlib/source/specification/lux/abstract/functor/contravariant.lux b/stdlib/source/specification/lux/abstract/functor/contravariant.lux index a9ac6e660..048b34ba8 100644 --- a/stdlib/source/specification/lux/abstract/functor/contravariant.lux +++ b/stdlib/source/specification/lux/abstract/functor/contravariant.lux @@ -6,15 +6,15 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Functor]}]]) + ["[0]" / {"+" [Functor]}]]) -(def: (identity equivalence value (^open "@//.")) +(def: (identity equivalence value (^open "@//[0]")) (All (_ f a) (-> (Equivalence (f a)) (f a) (Functor f) Test)) (_.test "Law of identity." (equivalence diff --git a/stdlib/source/specification/lux/abstract/hash.lux b/stdlib/source/specification/lux/abstract/hash.lux index ed504cd26..65b78a5cb 100644 --- a/stdlib/source/specification/lux/abstract/hash.lux +++ b/stdlib/source/specification/lux/abstract/hash.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "\.") random) +(def: .public (spec (^open "\[0]") random) (All (_ a) (-> (/.Hash a) (Random a) Test)) (do random.monad [parameter random diff --git a/stdlib/source/specification/lux/abstract/interval.lux b/stdlib/source/specification/lux/abstract/interval.lux index a6de2bc5a..38b9a3e6c 100644 --- a/stdlib/source/specification/lux/abstract/interval.lux +++ b/stdlib/source/specification/lux/abstract/interval.lux @@ -4,13 +4,13 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." order]] + ["[0]" order]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "@//.") gen_sample) +(def: .public (spec (^open "@//[0]") gen_sample) (All (_ a) (-> (/.Interval a) (Random a) Test)) (<| (_.for [/.Interval]) (do random.monad diff --git a/stdlib/source/specification/lux/abstract/mix.lux b/stdlib/source/specification/lux/abstract/mix.lux index dddf30c5f..aecd00cbb 100644 --- a/stdlib/source/specification/lux/abstract/mix.lux +++ b/stdlib/source/specification/lux/abstract/mix.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [// [functor {"+" [Injection Comparison]}]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec injection comparison (^open "@//.")) +(def: .public (spec injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Mix f) Test)) (do random.monad [subject random.nat diff --git a/stdlib/source/specification/lux/abstract/monad.lux b/stdlib/source/specification/lux/abstract/monad.lux index 11ee011e1..e193e1ecd 100644 --- a/stdlib/source/specification/lux/abstract/monad.lux +++ b/stdlib/source/specification/lux/abstract/monad.lux @@ -3,15 +3,15 @@ [lux "*" ["_" test {"+" [Test]}] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [do]}]] + ["[0]" / {"+" [do]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (left_identity injection comparison (^open "_//.")) +(def: (left_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do [! random.monad] [sample random.nat @@ -23,7 +23,7 @@ (|> (injection sample) (_//each morphism) _//conjoint) (morphism sample))))) -(def: (right_identity injection comparison (^open "_//.")) +(def: (right_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do random.monad [sample random.nat] @@ -32,7 +32,7 @@ (|> (injection sample) (_//each _//in) _//conjoint) (injection sample))))) -(def: (associativity injection comparison (^open "_//.")) +(def: (associativity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/monoid.lux b/stdlib/source/specification/lux/abstract/monoid.lux index 6dc4d2207..dba042a60 100644 --- a/stdlib/source/specification/lux/abstract/monoid.lux +++ b/stdlib/source/specification/lux/abstract/monoid.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) -(def: .public (spec (^open "\.") (^open "\.") gen_sample) +(def: .public (spec (^open "\[0]") (^open "\[0]") gen_sample) (All (_ a) (-> (Equivalence a) (/.Monoid a) (Random a) Test)) (do random.monad [sample gen_sample diff --git a/stdlib/source/specification/lux/abstract/order.lux b/stdlib/source/specification/lux/abstract/order.lux index 139e8cac4..79c8d4c78 100644 --- a/stdlib/source/specification/lux/abstract/order.lux +++ b/stdlib/source/specification/lux/abstract/order.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "@//.") generator) +(def: .public (spec (^open "@//[0]") generator) (All (_ a) (-> (/.Order a) (Random a) Test)) (<| (_.for [/.Order]) ($_ _.and diff --git a/stdlib/source/specification/lux/world/console.lux b/stdlib/source/specification/lux/world/console.lux index 5264211b4..15305d236 100644 --- a/stdlib/source/specification/lux/world/console.lux +++ b/stdlib/source/specification/lux/world/console.lux @@ -6,16 +6,16 @@ [monad {"+" [do]}]] [control [io {"+" [IO]}] - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (spec console) (-> (IO (/.Console Async)) Test) diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux index 765893ba6..f7c056624 100644 --- a/stdlib/source/specification/lux/world/file.lux +++ b/stdlib/source/specification/lux/world/file.lux @@ -4,32 +4,32 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate]] + ["[0]" predicate]] [control [pipe {"+" [case>]}] [io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try ("#\." functor)] - ["." exception] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8 ("#\." codec)]]] - ["." binary {"+" [Binary]} ("#\." equivalence monoid) - ["$#" \\test]] + ["[0]" utf8 ("[1]\[0]" codec)]]] + ["[0]" binary {"+" [Binary]} ("[1]\[0]" equivalence monoid) + ["$[1]" \\test]] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]]]] + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (for_path fs) (-> (IO (/.System Async)) Test) @@ -126,7 +126,7 @@ [made_sub? (\ fs make_directory sub_dir) directory_files (\ fs directory_files parent) sub_directories (\ fs sub_directories parent) - .let [(^open "list\.") (list.equivalence text.equivalence)]] + .let [(^open "list\[0]") (list.equivalence text.equivalence)]] (in (<| (try.else false) (do try.monad [_ made_sub?] diff --git a/stdlib/source/specification/lux/world/program.lux b/stdlib/source/specification/lux/world/program.lux index 772aa28a4..e647e316b 100644 --- a/stdlib/source/specification/lux/world/program.lux +++ b/stdlib/source/specification/lux/world/program.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text] + ["[0]" text] [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (spec subject) (-> (/.Program Async) Test) diff --git a/stdlib/source/specification/lux/world/shell.lux b/stdlib/source/specification/lux/world/shell.lux index 8f12be702..2d844ce9a 100644 --- a/stdlib/source/specification/lux/world/shell.lux +++ b/stdlib/source/specification/lux/world/shell.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." / + ["[0]" / [// [file {"+" [Path]}]]]]) diff --git a/stdlib/source/test/aedifex.lux b/stdlib/source/test/aedifex.lux index 1860eeab7..1ff98be46 100644 --- a/stdlib/source/test/aedifex.lux +++ b/stdlib/source/test/aedifex.lux @@ -4,26 +4,26 @@ [program {"+" [program:]}] ["_" test {"+" [Test]}] [control - ["." io]]]] - ["." / "_" - ["#." artifact] - ["#." cli] - ["#." command] - ["#." dependency - ["#/." deployment] - ["#/." resolution] - ["#/." status]] - ["#." hash] - ["#." input] - ["#." local] - ["#." metadata] - ["#." package] - ["#." parser] - ["#." pom] - ["#." profile] - ["#." project] - ["#." repository] - ["#." runtime]]) + ["[0]" io]]]] + ["[0]" / "_" + ["[1][0]" artifact] + ["[1][0]" cli] + ["[1][0]" command] + ["[1][0]" dependency + ["[1]/[0]" deployment] + ["[1]/[0]" resolution] + ["[1]/[0]" status]] + ["[1][0]" hash] + ["[1][0]" input] + ["[1][0]" local] + ["[1][0]" metadata] + ["[1][0]" package] + ["[1][0]" parser] + ["[1][0]" pom] + ["[1][0]" profile] + ["[1][0]" project] + ["[1][0]" repository] + ["[1][0]" runtime]]) (def: dependency Test diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux index d1ecac072..51281e4a8 100644 --- a/stdlib/source/test/aedifex/artifact.lux +++ b/stdlib/source/test/aedifex/artifact.lux @@ -6,25 +6,25 @@ [monad {"+" [do]}] [hash {"+" [Hash]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." hash]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" hash]]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [world - ["." file] + ["[0]" file] [net - ["." uri]]]]] - ["." / "_" - ["#." extension] - ["#." snapshot] - ["#." time] - ["#." type] - ["#." versioning]] + ["[0]" uri]]]]] + ["[0]" / "_" + ["[1][0]" extension] + ["[1][0]" snapshot] + ["[1][0]" time] + ["[1][0]" type] + ["[1][0]" versioning]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Artifact) diff --git a/stdlib/source/test/aedifex/artifact/extension.lux b/stdlib/source/test/aedifex/artifact/extension.lux index 4a99544db..e9ecafe17 100644 --- a/stdlib/source/test/aedifex/artifact/extension.lux +++ b/stdlib/source/test/aedifex/artifact/extension.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." set] - ["." list]]] + ["[0]" set] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\program - ["." / - ["/#" // "_" - ["#" type]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" type]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux index e04b49e71..b411f425c 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [math - ["." random {"+" [Random]} ("#\." monad)]]]] - ["$." / "_" - ["#." build] - ["#." stamp] - ["#." time] - ["#." version]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]]] + ["$[0]" / "_" + ["[1][0]" build] + ["[1][0]" stamp] + ["[1][0]" time] + ["[1][0]" version]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Snapshot) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux index e3e0c62cd..24f6ee539 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Build) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux index 82217bd62..0ece8e264 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [time - ["." instant]]]] + ["[0]" instant]]]] [\\program - ["." /]] - ["$." // "_" - ["#." time] - ["#." build]]) + ["[0]" /]] + ["$[0]" // "_" + ["[1][0]" time] + ["[1][0]" build]]) (def: .public random (Random /.Stamp) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux index f11fe6f12..50fbbbf49 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" text]]] + ["<[0]>" text]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]] - ["$." /// "_" - ["#." time]]) + ["[0]" /]] + ["$[0]" /// "_" + ["[1][0]" time]]) (def: .public random (Random /.Time) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux index 162b05348..238a0d2a3 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]] - ["." / "_" - ["#." value]] - ["$." /// "_" - ["#." type] - ["#." time]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" value]] + ["$[0]" /// "_" + ["[1][0]" type] + ["[1][0]" time]]) (def: .public random (Random /.Version) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux index e63453f84..bccd76fac 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux @@ -5,28 +5,28 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" text]]] + ["<[0]>" text]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat] ["i" int]]] [time - ["." instant]]]] - ["$." /// "_" - ["#." stamp]] + ["[0]" instant]]]] + ["$[0]" /// "_" + ["[1][0]" stamp]] [\\program - ["." / - ["//#" /// - ["#." stamp] - ["#." time]]]]) + ["[0]" / + ["//[1]" /// + ["[1][0]" stamp] + ["[1][0]" time]]]]) (def: .public random (Random /.Value) diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux index a7d3f1463..9cfefe6f6 100644 --- a/stdlib/source/test/aedifex/artifact/time.lux +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" text]]] + ["<[0]>" text]]] [time - ["." instant ("#\." equivalence)]] + ["[0]" instant ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["i" int]]]]] [\\program - ["." /]] - ["." / "_" - ["#." date] - ["#." time]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" date] + ["[1][0]" time]]) (def: .public random (Random /.Time) diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux index 6762ed541..e76cf4259 100644 --- a/stdlib/source/test/aedifex/artifact/time/date.lux +++ b/stdlib/source/test/aedifex/artifact/time/date.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] - ["." exception] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [parser - ["<.>" text]]] + ["<[0]>" text]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]] [time - ["." date ("#\." equivalence)] - ["." year]]]] + ["[0]" date ("[1]\[0]" equivalence)] + ["[0]" year]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Date) diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux index d156d5f03..6351eca60 100644 --- a/stdlib/source/test/aedifex/artifact/time/time.lux +++ b/stdlib/source/test/aedifex/artifact/time/time.lux @@ -2,20 +2,20 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." time] + ["[0]" time] [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" text]]] + ["<[0]>" text]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Time) diff --git a/stdlib/source/test/aedifex/artifact/type.lux b/stdlib/source/test/aedifex/artifact/type.lux index e0d537c1b..00b483a75 100644 --- a/stdlib/source/test/aedifex/artifact/type.lux +++ b/stdlib/source/test/aedifex/artifact/type.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [data - ["." text] + ["[0]" text] [collection - ["." set] - ["." list]]] + ["[0]" set] + ["[0]" list]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Type) diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux index a9ef8d07b..3d489eb38 100644 --- a/stdlib/source/test/aedifex/artifact/versioning.lux +++ b/stdlib/source/test/aedifex/artifact/versioning.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" xml]]] + ["<[0]>" xml]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]] - ["$." // "_" - ["#." time] - ["#." snapshot - ["#/." version]]]) + ["[0]" /]] + ["$[0]" // "_" + ["[1][0]" time] + ["[1][0]" snapshot + ["[1]/[0]" version]]]) (def: .public random (Random /.Versioning) diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux index 7bd36499b..fc5efcf8f 100644 --- a/stdlib/source/test/aedifex/cache.lux +++ b/stdlib/source/test/aedifex/cache.lux @@ -3,47 +3,47 @@ [lux {"-" [Type type]} ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment]]] + ["[0]" environment]]] [data [binary {"+" [Binary]}] - ["." text] + ["[0]" text] [format [xml {"+" [XML]}]] [collection - ["." set] - ["." dictionary]]] + ["[0]" set] + ["[0]" dictionary]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]] [world - ["." file] - ["." program]]]] + ["[0]" file] + ["[0]" program]]]] [// - ["@." profile] - ["@." artifact] + ["@[0]" profile] + ["@[0]" artifact] [// [lux [data - ["_." binary]]]]] + ["_[0]" binary]]]]] [\\program - ["." / - ["/#" // "_" - ["#" profile {"+" [Profile]}] - ["#." package {"+" [Package]}] - ["#." pom] - ["#." dependency {"+" [Dependency]} - ["#/." resolution {"+" [Resolution]}]] - ["#." artifact {"+" [Artifact]} - ["#/." type {"+" [Type]}]] - ["#." repository "_" - ["#/." origin]]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" profile {"+" [Profile]}] + ["[1][0]" package {"+" [Package]}] + ["[1][0]" pom] + ["[1][0]" dependency {"+" [Dependency]} + ["[1]/[0]" resolution {"+" [Resolution]}]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type {"+" [Type]}]] + ["[1][0]" repository "_" + ["[1]/[0]" origin]]]]]) (def: type (Random Type) diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index 8a51928af..9cc55fd2c 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control [pipe {"+" [case>]}] - ["." try] + ["[0]" try] [parser - ["." cli]]] + ["[0]" cli]]] [data - ["." text] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]} ("#\." monad)]]]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]]] [\\program - ["." / - ["/#" // "_" - ["#" profile]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" profile]]]]) (def: compilation (Random /.Compilation) diff --git a/stdlib/source/test/aedifex/command.lux b/stdlib/source/test/aedifex/command.lux index 704376f9c..5cefcb033 100644 --- a/stdlib/source/test/aedifex/command.lux +++ b/stdlib/source/test/aedifex/command.lux @@ -2,21 +2,21 @@ [library [lux "*" ["_" test {"+" [Test]}]]] - ["." / "_" - ["#." version] - ["#." pom] + ["[0]" / "_" + ["[1][0]" version] + ["[1][0]" pom] - ["#." clean] - ["#." install] + ["[1][0]" clean] + ["[1][0]" install] - ["#." deps] - ["#." deploy] + ["[1][0]" deps] + ["[1][0]" deploy] - ["#." build] - ["#." test] - ["#." auto]] + ["[1][0]" build] + ["[1][0]" test] + ["[1][0]" auto]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index 71608e83d..4511d8a03 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -6,41 +6,41 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try] + ["[0]" try] [parser - ["." environment]] + ["[0]" environment]] [concurrency - ["." atom {"+" [Atom]}] - ["." async {"+" [Async]}]]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async]}]]] [data - ["." binary] - ["." text + ["[0]" binary] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." set]]] + ["[0]" set]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [time - ["." instant]] + ["[0]" instant]] [world [console {"+" [Console]}] - ["." shell {"+" [Exit Shell]}] - ["." program {"+" [Program]}] - ["." file - ["." watch]]]]] - ["." // "_" - ["$." version] - ["$." build]] + ["[0]" shell {"+" [Exit Shell]}] + ["[0]" program {"+" [Program]}] + ["[0]" file + ["[0]" watch]]]]] + ["[0]" // "_" + ["$[0]" version] + ["$[0]" build]] [\\program - ["." / - ["//#" /// "_" + ["[0]" / + ["//[1]" /// "_" [command {"+" [Command]}] - ["#" profile {"+" [Profile]}] - ["#." action] + ["[1]" profile {"+" [Profile]}] + ["[1][0]" action] [dependency [resolution {"+" [Resolution]}]]]]]) diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index cbdfdc929..c856b11f5 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -7,35 +7,35 @@ [control [pipe {"+" [case>]}] [io {"+" [IO]}] - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [world - ["." file] - ["." shell {"+" [Shell]}] - ["." program]]]] - ["." // "_" - ["@." version] - ["$/#" // "_" - ["#." package]]] + ["[0]" file] + ["[0]" shell {"+" [Shell]}] + ["[0]" program]]]] + ["[0]" // "_" + ["@[0]" version] + ["$/[1]" // "_" + ["[1][0]" package]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile {"+" [Profile]}] - ["#." action] - ["#." artifact - ["#/." type]] - ["#." dependency {"+" [Dependency]} - ["#/." resolution {"+" [Resolution]}]]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile {"+" [Profile]}] + ["[1][0]" action] + ["[1][0]" artifact + ["[1]/[0]" type]] + ["[1][0]" dependency {"+" [Dependency]} + ["[1]/[0]" resolution {"+" [Resolution]}]]]]]) (def: .public good_shell (-> Any (Shell IO)) diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux index c59b75719..83c3e5a80 100644 --- a/stdlib/source/test/aedifex/command/clean.lux +++ b/stdlib/source/test/aedifex/command/clean.lux @@ -3,38 +3,38 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] [world - ["." file {"+" [Path]}]]]] + ["[0]" file {"+" [Path]}]]]] [// - ["@." version] + ["@[0]" version] [// - ["@." profile] + ["@[0]" profile] [// [lux [data - ["$." binary]]]]]] + ["$[0]" binary]]]]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile] - ["#." action {"+" [Action]}]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile] + ["[1][0]" action {"+" [Action]}]]]]) (def: node_name (Random Text) diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 93bf3de79..219a2931b 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -5,49 +5,49 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." binary ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" binary ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] - ["." format "_" - ["#" binary] - ["." tar] - ["." xml]] + ["[0]" utf8]]] + ["[0]" format "_" + ["[1]" binary] + ["[0]" tar] + ["[0]" xml]] [collection - ["." set]]] + ["[0]" set]]] [math - ["." random]] + ["[0]" random]] [world - ["." file] - ["." program {"+" [Program]}]]]] + ["[0]" file] + ["[0]" program {"+" [Program]}]]]] [program [compositor - ["." export]]] + ["[0]" export]]] [// - ["$." install] - ["$." version] + ["$[0]" install] + ["$[0]" version] [// - ["$." profile] - ["$." repository]]] + ["$[0]" profile] + ["$[0]" repository]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile] - ["#." action] - ["#." pom] - ["#." hash] - ["#." repository {"+" [Repository]} - ["#/." remote]] - ["#." artifact {"+" [Artifact]} - ["#/." extension]]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" pom] + ["[1][0]" hash] + ["[1][0]" repository {"+" [Repository]} + ["[1]/[0]" remote]] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" extension]]]]]) (def: (execute! program repository fs artifact profile) (-> (Program Async) (Repository Async) (file.System Async) diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux index 3047ccb2b..3d563f540 100644 --- a/stdlib/source/test/aedifex/command/deps.lux +++ b/stdlib/source/test/aedifex/command/deps.lux @@ -4,53 +4,53 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate]] + ["[0]" predicate]] [control - ["." try] + ["[0]" try] [concurrency - ["." async]] + ["[0]" async]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary] - ["." set]] + ["[0]" dictionary] + ["[0]" set]] [format - ["." xml]]] + ["[0]" xml]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [world - ["." program] - ["." file]]]] - ["." // "_" - ["@." version] - ["$/#" // "_" - ["#." package] - ["#." artifact] - ["#." dependency "_" - ["#/." resolution]]]] + ["[0]" program] + ["[0]" file]]]] + ["[0]" // "_" + ["@[0]" version] + ["$/[1]" // "_" + ["[1][0]" package] + ["[1][0]" artifact] + ["[1][0]" dependency "_" + ["[1]/[0]" resolution]]]] [\\program - ["." / - ["/#" // "_" - ["#." clean] - ["/#" // "_" - ["#" profile] - ["#." action] - ["#." pom] - ["#." package] - ["#." artifact - ["#/." type]] - ["#." dependency - ["#/." resolution] - ["#/." deployment] - ["#/." status]] - ["#." repository - ["#/." origin] - ["#/." local]]]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1][0]" clean] + ["/[1]" // "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" pom] + ["[1][0]" package] + ["[1][0]" artifact + ["[1]/[0]" type]] + ["[1][0]" dependency + ["[1]/[0]" resolution] + ["[1]/[0]" deployment] + ["[1]/[0]" status]] + ["[1][0]" repository + ["[1]/[0]" origin] + ["[1]/[0]" local]]]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index 3fe787e35..8ef29ec92 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -3,41 +3,41 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try {"+" [Try]} ("#\." functor)] - ["." exception] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." binary] - ["." text ("#\." equivalence) + ["[0]" binary] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." set {"+" [Set]}]]] + ["[0]" set {"+" [Set]}]]] [math - ["." random]] + ["[0]" random]] [world - ["." file] - ["." program {"+" [Program]}]]]] + ["[0]" file] + ["[0]" program {"+" [Program]}]]]] [// - ["$." version] + ["$[0]" version] [// - ["$." profile] - ["$." artifact]]] + ["$[0]" profile] + ["$[0]" artifact]]] [\\program - ["." / - ["/#" // "_" - ["/#" // "_" - ["#" profile] - ["#." action {"+" [Action]}] - ["#." local] - ["#." artifact - ["#/." extension]] - ["#." repository "_" - ["#/." local]]]]]]) + ["[0]" / + ["/[1]" // "_" + ["/[1]" // "_" + ["[1]" profile] + ["[1][0]" action {"+" [Action]}] + ["[1][0]" local] + ["[1][0]" artifact + ["[1]/[0]" extension]] + ["[1][0]" repository "_" + ["[1]/[0]" local]]]]]]) (def: .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index be5c60598..80676974b 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -5,30 +5,30 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." binary ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" binary ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml]]] + ["[0]" xml]]] [math - ["." random]] + ["[0]" random]] [world - ["." file]]]] + ["[0]" file]]]] [// - ["@." version] + ["@[0]" version] [// - ["@." profile]]] + ["@[0]" profile]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile] - ["#." action] - ["#." pom]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile] + ["[1][0]" action] + ["[1][0]" pom]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux index 6f04ef653..bbcb582b1 100644 --- a/stdlib/source/test/aedifex/command/test.lux +++ b/stdlib/source/test/aedifex/command/test.lux @@ -5,39 +5,39 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [concurrency - ["." async]] + ["[0]" async]] [parser - ["." environment]]] + ["[0]" environment]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [math - ["." random]] + ["[0]" random]] [world - ["." file] - ["." shell] - ["." program]]]] - ["." // "_" - ["@." version] - ["@." build] - ["$/#" // "_" - ["#." package]]] + ["[0]" file] + ["[0]" shell] + ["[0]" program]]]] + ["[0]" // "_" + ["@[0]" version] + ["@[0]" build] + ["$/[1]" // "_" + ["[1][0]" package]]] [\\program - ["." / - ["/#" // "_" - ["#." build] - ["/#" // "_" - ["#" profile {"+" [Profile]}] - ["#." action] - ["#." artifact - ["#/." type]] - ["#." dependency - ["#/." resolution]]]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1][0]" build] + ["/[1]" // "_" + ["[1]" profile {"+" [Profile]}] + ["[1][0]" action] + ["[1][0]" artifact + ["[1]/[0]" type]] + ["[1][0]" dependency + ["[1]/[0]" resolution]]]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux index 74223d02f..1b2b0aa53 100644 --- a/stdlib/source/test/aedifex/command/version.lux +++ b/stdlib/source/test/aedifex/command/version.lux @@ -5,28 +5,28 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random]] + ["[0]" random]] [tool [compiler - ["." version] - ["." language "_" - ["#/." lux "_" - ["#" version]]]]] + ["[0]" version] + ["[0]" language "_" + ["[1]/[0]" lux "_" + ["[1]" version]]]]] [world - ["." console {"+" [Console Mock]}]]]] + ["[0]" console {"+" [Console Mock]}]]]] [/// - ["@." profile]] + ["@[0]" profile]] [\\program - ["." /]]) + ["[0]" /]]) (exception: .public console_is_closed!) diff --git a/stdlib/source/test/aedifex/dependency.lux b/stdlib/source/test/aedifex/dependency.lux index 0f3eb7db0..370803dfa 100644 --- a/stdlib/source/test/aedifex/dependency.lux +++ b/stdlib/source/test/aedifex/dependency.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." hash]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" hash]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [// - ["@." artifact]] + ["@[0]" artifact]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Dependency) diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 8dfa5a853..5b7869eab 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -4,50 +4,50 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." hash {"+" [Hash]}]] + ["[0]" hash {"+" [Hash]}]] [control - ["." io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try ("#\." functor)] + ["[0]" io {"+" [IO]}] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try ("[1]\[0]" functor)] [concurrency - ["." atom {"+" [Atom]}] - ["." async]]] + ["[0]" atom {"+" [Atom]}] + ["[0]" async]]] [data - ["." product] - ["." binary {"+" [Binary]} ("#\." equivalence)] - ["." text + ["[0]" product] + ["[0]" binary {"+" [Binary]} ("[1]\[0]" equivalence)] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}] - ["." set] - ["." list ("#\." mix)]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set] + ["[0]" list ("[1]\[0]" mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] [world [net {"+" [URL]} - ["." uri {"+" [URI]}] - ["." http "_" - ["#" client] - ["#/." status] - ["@#" /]]]]]] - ["$." // - ["#/" // "_" - ["#." package]]] + ["[0]" uri {"+" [URI]}] + ["[0]" http "_" + ["[1]" client] + ["[1]/[0]" status] + ["@[1]" /]]]]]] + ["$[0]" // + ["[1]/" // "_" + ["[1][0]" package]]] [\\program - ["." / + ["[0]" / [// {"+" [Dependency]} - ["." resolution] + ["[0]" resolution] [// - ["." profile] - ["." metadata] - ["." package {"+" [Package]}] - ["." artifact {"+" [Artifact]} ("#\." equivalence) - ["#/." type] - ["#/." extension]] - ["." repository - ["." remote]]]]]]) + ["[0]" profile] + ["[0]" metadata] + ["[0]" package {"+" [Package]}] + ["[0]" artifact {"+" [Artifact]} ("[1]\[0]" equivalence) + ["[1]/[0]" type] + ["[1]/[0]" extension]] + ["[0]" repository + ["[0]" remote]]]]]]) (def: good_upload (@http.Response IO) diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index 7297b99ee..2fe39286d 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -4,49 +4,49 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [concurrency - ["." async]]] + ["[0]" async]]] [data [binary {"+" [Binary]}] - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml]] + ["[0]" xml]] [collection - ["." dictionary] - ["." set] - ["." list]]] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list]]] [math - ["." random {"+" [Random]}]]]] - ["$." /// "_" - ["#." package] - ["#." repository] - ["#." artifact] + ["[0]" random {"+" [Random]}]]]] + ["$[0]" /// "_" + ["[1][0]" package] + ["[1][0]" repository] + ["[1][0]" artifact] [command - ["#." version]]] + ["[1][0]" version]]] [\\program - ["." / - ["//#" /// "_" - ["#" profile] - ["#." package {"+" [Package]}] - ["#." hash] - ["#." dependency {"+" [Dependency]} ("#\." equivalence) - ["#/." status]] - ["#." pom] - ["#." artifact {"+" [Artifact]} - ["#/." type] - ["#/." extension]] - ["#." repository {"+" [Mock]} - ["#/." origin]]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1]" profile] + ["[1][0]" package {"+" [Package]}] + ["[1][0]" hash] + ["[1][0]" dependency {"+" [Dependency]} ("[1]\[0]" equivalence) + ["[1]/[0]" status]] + ["[1][0]" pom] + ["[1][0]" artifact {"+" [Artifact]} + ["[1]/[0]" type] + ["[1]/[0]" extension]] + ["[1][0]" repository {"+" [Mock]} + ["[1]/[0]" origin]]]]]) (def: random (Random /.Resolution) diff --git a/stdlib/source/test/aedifex/dependency/status.lux b/stdlib/source/test/aedifex/dependency/status.lux index 65bd7161e..981f18b0e 100644 --- a/stdlib/source/test/aedifex/dependency/status.lux +++ b/stdlib/source/test/aedifex/dependency/status.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [data - ["." binary "_" - ["#T" \\test]]] + ["[0]" binary "_" + ["[1]T" \\test]]] [math - ["." random {"+" [Random]} ("#\." monad)]]]] - ["$." /// "_" - ["#." hash]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]]] + ["$[0]" /// "_" + ["[1][0]" hash]] [\\program - ["." / - ["//#" /// "_" - ["#." hash]]]]) + ["[0]" / + ["//[1]" /// "_" + ["[1][0]" hash]]]]) (def: .public random (Random /.Status) diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux index 94608cf7b..a3220b756 100644 --- a/stdlib/source/test/aedifex/hash.lux +++ b/stdlib/source/test/aedifex/hash.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" codec]]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." binary {"+" [Binary]}] + ["[0]" binary {"+" [Binary]}] [text ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\program - ["." /]] + ["[0]" /]] [test [lux [data - ["_." binary]]]]) + ["_[0]" binary]]]]) (def: .public (random hash) (All (_ h) diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index b725272e9..cf7f59840 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -5,29 +5,29 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data [text ["%" format] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." set {"+" [Set]}]]] + ["[0]" set {"+" [Set]}]]] [math - ["." random]] + ["[0]" random]] [world - ["." file]]]] + ["[0]" file]]]] [// - ["$." profile]] + ["$[0]" profile]] [\\program - ["." / - ["/#" // "_" - ["#" profile {"+" [Profile]}] - ["#." project] - ["#." action] - ["#." format] + ["[0]" / + ["/[1]" // "_" + ["[1]" profile {"+" [Profile]}] + ["[1][0]" project] + ["[1][0]" action] + ["[1][0]" format] [repository [remote {"+" [Address]}]]]]]) diff --git a/stdlib/source/test/aedifex/local.lux b/stdlib/source/test/aedifex/local.lux index 8a6de8dcd..bd49df4c8 100644 --- a/stdlib/source/test/aedifex/local.lux +++ b/stdlib/source/test/aedifex/local.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [data - ["." text]] + ["[0]" text]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [// - ["@." artifact]] + ["@[0]" artifact]] [\\program - ["." / - ["/#" // "_" - ["#." artifact]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1][0]" artifact]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/metadata.lux b/stdlib/source/test/aedifex/metadata.lux index ad9460154..79ced5b8f 100644 --- a/stdlib/source/test/aedifex/metadata.lux +++ b/stdlib/source/test/aedifex/metadata.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random]]]] - ["." / "_" - ["#." artifact] - ["#." snapshot] + ["[0]" random]]]] + ["[0]" / "_" + ["[1][0]" artifact] + ["[1][0]" snapshot] [// - ["$." artifact]]] + ["$[0]" artifact]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 544da4d3c..0f0188ea3 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -5,41 +5,41 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe] - ["." try ("#\." functor)] + ["[0]" maybe] + ["[0]" try ("[1]\[0]" functor)] [parser - ["." environment] - ["<.>" xml]] + ["[0]" environment] + ["<[0]>" xml]] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [macro - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] - ["." time - ["." date] - ["." year] - ["." month] - ["." instant] - ["." duration]] + ["[0]" time + ["[0]" date] + ["[0]" year] + ["[0]" month] + ["[0]" instant] + ["[0]" duration]] [world - ["." file] - ["." program]]]] + ["[0]" file] + ["[0]" program]]]] [\\program - ["." / - ["/#" // - ["/#" // "_" - ["#." artifact] - ["#." repository "_" - ["#/." local]]]]]]) + ["[0]" / + ["/[1]" // + ["/[1]" // "_" + ["[1][0]" artifact] + ["[1][0]" repository "_" + ["[1]/[0]" local]]]]]]) (def: .public random (Random /.Metadata) diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index 2c4866c2c..39d16bd27 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -5,49 +5,49 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe] - ["." try ("#\." functor)] + ["[0]" maybe] + ["[0]" try ("[1]\[0]" functor)] [parser - ["." environment] - ["<.>" xml]] + ["[0]" environment] + ["<[0]>" xml]] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [macro - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]] - ["." time - ["." date] - ["." year] - ["." month] - ["." instant {"+" [Instant]}] - ["." duration]] + ["[0]" time + ["[0]" date] + ["[0]" year] + ["[0]" month] + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]] [world - ["." file] - ["." program]]]] - ["$." /// "_" - ["#." artifact - ["#/." type] - ["#/." time] - ["#/." snapshot "_" - ["#/." version]]]] + ["[0]" file] + ["[0]" program]]]] + ["$[0]" /// "_" + ["[1][0]" artifact + ["[1]/[0]" type] + ["[1]/[0]" time] + ["[1]/[0]" snapshot "_" + ["[1]/[0]" version]]]] [\\program - ["." / - ["/#" // - ["/#" // "_" + ["[0]" / + ["/[1]" // + ["/[1]" // "_" [artifact [versioning {"+" [Versioning]}] - ["#." snapshot]] - ["#." repository "_" - ["#/." local]]]]]]) + ["[1][0]" snapshot]] + ["[1][0]" repository "_" + ["[1]/[0]" local]]]]]]) (def: random_instant (Random Instant) diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index a7bc7d00a..61153b8ad 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -5,40 +5,40 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try]] + ["[0]" try]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text [encoding - ["." utf8]]] + ["[0]" utf8]]] [format - ["." xml {"+" [XML]}]] + ["[0]" xml {"+" [XML]}]] [collection - ["." set {"+" [Set]}]]] + ["[0]" set {"+" [Set]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] [world - ["." file]]]] + ["[0]" file]]]] [// - ["$." profile] + ["$[0]" profile] [// [lux [data - ["$." binary]]]]] + ["$[0]" binary]]]]] [\\program - ["." / - ["/#" // "_" - ["#" profile] - ["#." hash ("#\." equivalence)] - ["#." pom] + ["[0]" / + ["/[1]" // "_" + ["[1]" profile] + ["[1][0]" hash ("[1]\[0]" equivalence)] + ["[1][0]" pom] [dependency - ["#." status]] + ["[1][0]" status]] [repository - ["#." origin]]]]]) + ["[1][0]" origin]]]]]) (def: .public random (Random [//.Profile /.Package]) diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 1d8c6c1b4..1152a1dba 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -7,31 +7,31 @@ [hash {"+" [Hash]}]] [control [pipe {"+" [case>]}] - ["." try] + ["[0]" try] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text] + ["[0]" text] [collection - ["." set {"+" [Set]}] - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor)]]] + ["[0]" set {"+" [Set]}] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] [macro - ["." code]]]] + ["[0]" code]]]] [// - ["@." profile]] + ["@[0]" profile]] [\\program - ["." / - ["/#" // "_" - ["#" profile] - ["#." project {"+" [Project]}] - ["#." artifact {"+" [Artifact]}] - ["#." dependency {"+" [Dependency]}] - ["#." format]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" profile] + ["[1][0]" project {"+" [Project]}] + ["[1][0]" artifact {"+" [Artifact]}] + ["[1][0]" dependency {"+" [Dependency]}] + ["[1][0]" format]]]]) (def: name (Random //.Name) diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux index f53bb2404..92f13bd4f 100644 --- a/stdlib/source/test/aedifex/pom.lux +++ b/stdlib/source/test/aedifex/pom.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] ["<>" parser - ["<.>" xml]]] + ["<[0]>" xml]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [format - ["." xml]]] + ["[0]" xml]]] [math - ["." random]]]] + ["[0]" random]]]] [// - ["@." profile]] + ["@[0]" profile]] [\\program - ["." / - ["/#" // "_" - ["#" profile]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" profile]]]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux index 728971bbf..7a0bcb279 100644 --- a/stdlib/source/test/aedifex/profile.lux +++ b/stdlib/source/test/aedifex/profile.lux @@ -6,31 +6,31 @@ [monad {"+" [do]}] [hash {"+" [Hash]}] [\\specification - ["$." equivalence] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" monoid]]] [control [pipe {"+" [case>]}] - ["." try] + ["[0]" try] [parser - ["." cli]]] + ["[0]" cli]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." set {"+" [Set]}] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" set {"+" [Set]}] + ["[0]" dictionary {"+" [Dictionary]}]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [// - ["@." artifact] - ["@." dependency]] + ["@[0]" artifact] + ["@[0]" dependency]] [\\program - ["." / - ["/#" // "_" - ["#." runtime] - ["#." dependency {"+" [Dependency]}] - ["#." format] + ["[0]" / + ["/[1]" // "_" + ["[1][0]" runtime] + ["[1][0]" dependency {"+" [Dependency]}] + ["[1][0]" format] [repository [remote {"+" [Address]}]]]]]) diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux index 2e7eab542..94e61bd7c 100644 --- a/stdlib/source/test/aedifex/project.lux +++ b/stdlib/source/test/aedifex/project.lux @@ -5,24 +5,24 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" monoid]]] [control - ["." try ("#\." functor)] - ["." exception]] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception]] [data - ["." product] - ["." text ("#\." equivalence)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [// - ["@." profile]] + ["@[0]" profile]] [\\program - ["." / - ["/#" // "_" - ["#" profile]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" profile]]]]) (def: profile (Random [//.Name //.Profile]) diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux index 9412b5fd5..7958dc7bb 100644 --- a/stdlib/source/test/aedifex/repository.lux +++ b/stdlib/source/test/aedifex/repository.lux @@ -5,38 +5,38 @@ [abstract [equivalence {"+" [Equivalence]}] [hash {"+" [Hash]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." io] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" io] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." product] - ["." binary {"+" [Binary]}] - ["." text + ["[0]" product] + ["[0]" binary {"+" [Binary]}] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" dictionary {"+" [Dictionary]}]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [world [net - ["." uri {"+" [URI]}]]]]] - ["." / "_" - ["#." identity] - ["#." origin] - ["#." local] - ["#." remote] + ["[0]" uri {"+" [URI]}]]]]] + ["[0]" / "_" + ["[1][0]" identity] + ["[1][0]" origin] + ["[1][0]" local] + ["[1][0]" remote] [// - ["@." artifact]]] + ["@[0]" artifact]]] [\\specification - ["$." /]] + ["$[0]" /]] [\\program - ["." / - ["." remote] - ["/#" // "_" - ["#." artifact {"+" [Version Artifact]} - ["#/." extension {"+" [Extension]}]]]]]) + ["[0]" / + ["[0]" remote] + ["/[1]" // "_" + ["[1][0]" artifact {"+" [Version Artifact]} + ["[1]/[0]" extension {"+" [Extension]}]]]]]) (def: artifact (-> Version Artifact) diff --git a/stdlib/source/test/aedifex/repository/identity.lux b/stdlib/source/test/aedifex/repository/identity.lux index 045136c43..971e18a4b 100644 --- a/stdlib/source/test/aedifex/repository/identity.lux +++ b/stdlib/source/test/aedifex/repository/identity.lux @@ -4,11 +4,11 @@ ["_" test {"+" [Test]}] [abstract [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Identity) diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index 135e10867..03c64b69a 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["." environment]] + ["[0]" environment]] [concurrency - ["." async]]] + ["[0]" async]]] [data - ["." binary ("#\." equivalence)] + ["[0]" binary ("[1]\[0]" equivalence)] [text [encoding - ["." utf8]]]] + ["[0]" utf8]]]] [math - ["." random]] + ["[0]" random]] [world - ["." file] - ["." program]]]] + ["[0]" file] + ["[0]" program]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/aedifex/repository/origin.lux b/stdlib/source/test/aedifex/repository/origin.lux index 6567471a1..f160df2e3 100644 --- a/stdlib/source/test/aedifex/repository/origin.lux +++ b/stdlib/source/test/aedifex/repository/origin.lux @@ -4,11 +4,11 @@ ["_" test {"+" [Test]}] [abstract [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Origin) diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index dfdbe03c5..9e405ddc5 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -5,31 +5,31 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try ("#\." monad)] - ["." exception] - ["." function]] + ["[0]" io {"+" [IO]}] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try ("[1]\[0]" monad)] + ["[0]" exception] + ["[0]" function]] [data - ["." binary ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" binary ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [world [net {"+" [URL]} - ["." http "_" - ["#" client] - ["#/." status] - ["@#" /]]]]]] + ["[0]" http "_" + ["[1]" client] + ["[1]/[0]" status] + ["@[1]" /]]]]]] [\\program - ["." / - ["/#" // "_" - ["#." identity]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1][0]" identity]]]]) (def: (url_body url) (-> URL (@http.Body IO)) diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux index 4653f7c11..0e5b72b01 100644 --- a/stdlib/source/test/aedifex/runtime.lux +++ b/stdlib/source/test/aedifex/runtime.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." functor)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\program - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Runtime) diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 9e353a1c3..c67d6efc5 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -1,5 +1,5 @@ -(.with_expansions [<target>' (.for {"{old}" (.as_is ["#/." jvm]) - "JVM" (.as_is ["#/." jvm])} +(.with_expansions [<target>' (.for {"{old}" (.as_is ["[1]/[0]" jvm]) + "JVM" (.as_is ["[1]/[0]" jvm])} (.as_is)) <target> <target>'] (.module: @@ -11,28 +11,28 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." maybe ("#\." functor)] + ["[0]" io] + ["[0]" maybe ("[1]\[0]" functor)] [concurrency - ["." atom {"+" [Atom]}]] + ["[0]" atom {"+" [Atom]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)] - ["." set {"+" [Set]} ("#\." equivalence)] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set {"+" [Set]} ("[1]\[0]" equivalence)] [dictionary - ["." plist]]]] - ["." macro + ["[0]" plist]]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code ("#\." equivalence)] - ["." template]] - ["." math - ["." random ("#\." functor)] + ["[0]" code ("[1]\[0]" equivalence)] + ["[0]" template]] + ["[0]" math + ["[0]" random ("[1]\[0]" functor)] [number [i8 {"+" []}] [i16 {"+" []}] @@ -40,32 +40,32 @@ ["i" int] ["r" rev] ["f" frac] - ["." i64]]] - ["." meta - ["." location ("#\." equivalence)]]]] + ["[0]" i64]]] + ["[0]" meta + ["[0]" location ("[1]\[0]" equivalence)]]]] ... TODO: Must have 100% coverage on tests. - ["." / "_" - ["#." abstract] - ["#." control] - ["#." data] - ["#." debug] - ["#." documentation] - ["#." locale] - ["#." macro - ["#/." code]] - ["#." math] - ["#." meta] - ["#." program] - ["#." static] - ["#." target] - ["#." test] - ["#." time] - ... ["#." tool] ... TODO: Update & expand tests for this - ["#." type] - ["#." world] - ["#." ffi] - ["#." extension] - ["#." target "_" + ["[0]" / "_" + ["[1][0]" abstract] + ["[1][0]" control] + ["[1][0]" data] + ["[1][0]" debug] + ["[1][0]" documentation] + ["[1][0]" locale] + ["[1][0]" macro + ["[1]/[0]" code]] + ["[1][0]" math] + ["[1][0]" meta] + ["[1][0]" program] + ["[1][0]" static] + ["[1][0]" target] + ["[1][0]" test] + ["[1][0]" time] + ... ["[1][0]" tool] ... TODO: Update & expand tests for this + ["[1][0]" type] + ["[1][0]" world] + ["[1][0]" ffi] + ["[1][0]" extension] + ["[1][0]" target "_" <target>]])) ... TODO: Get rid of this ASAP @@ -238,7 +238,7 @@ (def: static_return 123) -(/.open: "global\." (..global_returner ..static_return)) +(/.open: "global\[0]" (..global_returner ..static_return)) (def: for_interface Test @@ -257,7 +257,7 @@ (_.cover [/.open:] (n.= static_return (global\return []))) (_.cover [/.^open] - (let [(/.^open "local\.") local_returner] + (let [(/.^open "local\[0]") local_returner] (n.= expected (local\return [])))) (_.cover [/.\] (n.= expected (/.\ local_returner return []))) diff --git a/stdlib/source/test/lux/abstract.lux b/stdlib/source/test/lux/abstract.lux index b3d642001..49813df43 100644 --- a/stdlib/source/test/lux/abstract.lux +++ b/stdlib/source/test/lux/abstract.lux @@ -2,23 +2,23 @@ [library [lux "*" ["_" test {"+" [Test]}]]] - ["." / "_" - ["#." apply] - ["#." codec] - ["#." comonad - ["#/." cofree]] - ["#." enum] - ["#." equivalence] - ["#." hash] - ["#." mix] - ["#." functor - ["#/." contravariant]] - ["#." interval] - ["#." monad - ["#/." free]] - ["#." monoid] - ["#." order] - ["#." predicate]]) + ["[0]" / "_" + ["[1][0]" apply] + ["[1][0]" codec] + ["[1][0]" comonad + ["[1]/[0]" cofree]] + ["[1][0]" enum] + ["[1][0]" equivalence] + ["[1][0]" hash] + ["[1][0]" mix] + ["[1][0]" functor + ["[1]/[0]" contravariant]] + ["[1][0]" interval] + ["[1][0]" monad + ["[1]/[0]" free]] + ["[1][0]" monoid] + ["[1][0]" order] + ["[1][0]" predicate]]) (def: functor Test diff --git a/stdlib/source/test/lux/abstract/apply.lux b/stdlib/source/test/lux/abstract/apply.lux index 9eeb5f008..d5a1cd060 100644 --- a/stdlib/source/test/lux/abstract/apply.lux +++ b/stdlib/source/test/lux/abstract/apply.lux @@ -4,17 +4,17 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] ["_" test {"+" [Test]}]]] [\\library - ["." / {"+" [Apply]}]]) + ["[0]" / {"+" [Apply]}]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/codec.lux b/stdlib/source/test/lux/abstract/codec.lux index 53fc7a327..fdaff8185 100644 --- a/stdlib/source/test/lux/abstract/codec.lux +++ b/stdlib/source/test/lux/abstract/codec.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [format - ["." json {"+" [JSON]}]]] + ["[0]" json {"+" [JSON]}]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / {"+" [Codec]} + ["[0]" / {"+" [Codec]} [// [equivalence {"+" [Equivalence]}]]]]) diff --git a/stdlib/source/test/lux/abstract/comonad.lux b/stdlib/source/test/lux/abstract/comonad.lux index 66c97e94a..fccc27c51 100644 --- a/stdlib/source/test/lux/abstract/comonad.lux +++ b/stdlib/source/test/lux/abstract/comonad.lux @@ -4,14 +4,14 @@ [abstract [monad {"+" [do]}]] [data - ["." identity {"+" [Identity]}]] + ["[0]" identity {"+" [Identity]}]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] ["_" test {"+" [Test]}]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/comonad/cofree.lux b/stdlib/source/test/lux/abstract/comonad/cofree.lux index b4d530273..d7525ca84 100644 --- a/stdlib/source/test/lux/abstract/comonad/cofree.lux +++ b/stdlib/source/test/lux/abstract/comonad/cofree.lux @@ -6,18 +6,18 @@ [functor {"+" [Functor]}] [comonad {"+" [CoMonad]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." comonad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" comonad]]] [control ["//" continuation]] [data [collection - ["." list] - ["." sequence {"+" [Sequence]} ("#\." comonad)]]] + ["[0]" list] + ["[0]" sequence {"+" [Sequence]} ("[1]\[0]" comonad)]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (injection value) (Injection (/.CoFree Sequence)) diff --git a/stdlib/source/test/lux/abstract/enum.lux b/stdlib/source/test/lux/abstract/enum.lux index 3b1fc2483..83505a5be 100644 --- a/stdlib/source/test/lux/abstract/enum.lux +++ b/stdlib/source/test/lux/abstract/enum.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/equivalence.lux b/stdlib/source/test/lux/abstract/equivalence.lux index e2165cd9e..206150921 100644 --- a/stdlib/source/test/lux/abstract/equivalence.lux +++ b/stdlib/source/test/lux/abstract/equivalence.lux @@ -6,16 +6,16 @@ [monad {"+" [do]}] [\\specification [functor - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\library - ["." / {"+" [Equivalence]}]]) + ["[0]" / {"+" [Equivalence]}]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/functor.lux b/stdlib/source/test/lux/abstract/functor.lux index d2aa86a6f..dff57b393 100644 --- a/stdlib/source/test/lux/abstract/functor.lux +++ b/stdlib/source/test/lux/abstract/functor.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Functor]}]]) + ["[0]" / {"+" [Functor]}]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/functor/contravariant.lux b/stdlib/source/test/lux/abstract/functor/contravariant.lux index c36043918..fec2d749f 100644 --- a/stdlib/source/test/lux/abstract/functor/contravariant.lux +++ b/stdlib/source/test/lux/abstract/functor/contravariant.lux @@ -3,7 +3,7 @@ [lux "*" ["_" test {"+" [Test]}]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/hash.lux b/stdlib/source/test/lux/abstract/hash.lux index 27e06e7f8..2ac3e428f 100644 --- a/stdlib/source/test/lux/abstract/hash.lux +++ b/stdlib/source/test/lux/abstract/hash.lux @@ -6,15 +6,15 @@ [monad {"+" [do]}] [\\specification [functor - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random] + ["[0]" random] [number - ["." nat]]]]] + ["[0]" nat]]]]] [\\library - ["." / {"+" [Hash]} + ["[0]" / {"+" [Hash]} [// [equivalence {"+" [Equivalence]}]]]]) @@ -25,7 +25,7 @@ rightN random.nat .let [hash (: (Equivalence (/.Hash Nat)) (implementation - (def: (= (^open "left\.") (^open "right\.")) + (def: (= (^open "left\[0]") (^open "right\[0]")) (and (bit\= (left\= (left\hash leftN) (left\hash leftN)) (right\= (right\hash leftN) (right\hash leftN))) (bit\= (left\= (left\hash rightN) (left\hash rightN)) diff --git a/stdlib/source/test/lux/abstract/interval.lux b/stdlib/source/test/lux/abstract/interval.lux index 1891be079..71e07f870 100644 --- a/stdlib/source/test/lux/abstract/interval.lux +++ b/stdlib/source/test/lux/abstract/interval.lux @@ -4,21 +4,21 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." order] + ["[0]" order] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control [pipe {"+" [case>]}]] [data [collection - ["." set] - ["." list]]] + ["[0]" set] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Interval]} ("\." equivalence)]]) + ["[0]" / {"+" [Interval]} ("\[0]" equivalence)]]) (template [<name> <cmp>] [(def: .public <name> diff --git a/stdlib/source/test/lux/abstract/mix.lux b/stdlib/source/test/lux/abstract/mix.lux index f4236cfd7..4d9f41ee0 100644 --- a/stdlib/source/test/lux/abstract/mix.lux +++ b/stdlib/source/test/lux/abstract/mix.lux @@ -6,13 +6,13 @@ [monad {"+" [do]}]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Mix]}]]) + ["[0]" / {"+" [Mix]}]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/monad.lux b/stdlib/source/test/lux/abstract/monad.lux index 2ad25583e..786156f93 100644 --- a/stdlib/source/test/lux/abstract/monad.lux +++ b/stdlib/source/test/lux/abstract/monad.lux @@ -3,15 +3,15 @@ [lux "*" ["_" test {"+" [Test]}] [data - ["." identity {"+" [Identity]}] + ["[0]" identity {"+" [Identity]}] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Monad do]}]]) + ["[0]" / {"+" [Monad do]}]]) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/monad/free.lux b/stdlib/source/test/lux/abstract/monad/free.lux index 9fa406919..39f91dc05 100644 --- a/stdlib/source/test/lux/abstract/monad/free.lux +++ b/stdlib/source/test/lux/abstract/monad/free.lux @@ -7,16 +7,16 @@ [apply {"+" [Apply]}] [monad {"+" [Monad do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: injection (Injection (/.Free List)) diff --git a/stdlib/source/test/lux/abstract/monoid.lux b/stdlib/source/test/lux/abstract/monoid.lux index bfca808a9..a366a9c91 100644 --- a/stdlib/source/test/lux/abstract/monoid.lux +++ b/stdlib/source/test/lux/abstract/monoid.lux @@ -5,12 +5,12 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." int]]]]] + ["[0]" nat] + ["[0]" int]]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) diff --git a/stdlib/source/test/lux/abstract/order.lux b/stdlib/source/test/lux/abstract/order.lux index e81919f19..1457fd550 100644 --- a/stdlib/source/test/lux/abstract/order.lux +++ b/stdlib/source/test/lux/abstract/order.lux @@ -6,15 +6,15 @@ [monad {"+" [do]}] [\\specification [functor - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) diff --git a/stdlib/source/test/lux/abstract/predicate.lux b/stdlib/source/test/lux/abstract/predicate.lux index 55801fb84..8799e27a9 100644 --- a/stdlib/source/test/lux/abstract/predicate.lux +++ b/stdlib/source/test/lux/abstract/predicate.lux @@ -6,21 +6,21 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}] [\\specification - ["$." monoid] + ["$[0]" monoid] [functor - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [control - ["." function]] + ["[0]" function]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (multiple? factor) (-> Nat (/.Predicate Nat)) diff --git a/stdlib/source/test/lux/control.lux b/stdlib/source/test/lux/control.lux index 4ed818b2a..eb1636b9a 100644 --- a/stdlib/source/test/lux/control.lux +++ b/stdlib/source/test/lux/control.lux @@ -2,34 +2,34 @@ [library [lux {"-" [function]} ["_" test {"+" [Test]}]]] - ["." / "_" - ["#." concatenative] - ["#." concurrency "_" - ["#/." actor] - ["#/." atom] - ["#/." frp] - ["#/." thread] - ["#/." async] - ["#/." semaphore] - ["#/." stm]] - ["#." continuation] - ["#." exception] - ["#." function] - ["#." io] - ["#." lazy] - ["#." maybe] - ["#." parser] - ["#." pipe] - ["#." reader] - ["#." region] - ["#." remember] + ["[0]" / "_" + ["[1][0]" concatenative] + ["[1][0]" concurrency "_" + ["[1]/[0]" actor] + ["[1]/[0]" atom] + ["[1]/[0]" frp] + ["[1]/[0]" thread] + ["[1]/[0]" async] + ["[1]/[0]" semaphore] + ["[1]/[0]" stm]] + ["[1][0]" continuation] + ["[1][0]" exception] + ["[1][0]" function] + ["[1][0]" io] + ["[1][0]" lazy] + ["[1][0]" maybe] + ["[1][0]" parser] + ["[1][0]" pipe] + ["[1][0]" reader] + ["[1][0]" region] + ["[1][0]" remember] [security - ["#." policy] - ["#." capability]] - ["#." state] - ["#." thread] - ["#." try] - ["#." writer]]) + ["[1][0]" policy] + ["[1][0]" capability]] + ["[1][0]" state] + ["[1][0]" thread] + ["[1][0]" try] + ["[1][0]" writer]]) (def: concurrency Test diff --git a/stdlib/source/test/lux/control/concatenative.lux b/stdlib/source/test/lux/control/concatenative.lux index 6ca9ab296..4cc158fd5 100644 --- a/stdlib/source/test/lux/control/concatenative.lux +++ b/stdlib/source/test/lux/control/concatenative.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}]] [data - ["." sum] - ["." name] - ["." bit ("#\." equivalence)]] + ["[0]" sum] + ["[0]" name] + ["[0]" bit ("[1]\[0]" equivalence)]] [macro - ["." template]] + ["[0]" template]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int] ["r" rev] ["f" frac]]]]] [\\library - ["." / {"+" [word: => ||>]}]]) + ["[0]" / {"+" [word: => ||>]}]]) (def: stack_shuffling Test diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux index a33bc598b..b2603fc0d 100644 --- a/stdlib/source/test/lux/control/concurrency/actor.lux +++ b/stdlib/source/test/lux/control/concurrency/actor.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO io]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO io]}]] [data [text ["%" format {"+" [format]}]] [collection - ["." list] - ["." row {"+" [Row]}]]] + ["[0]" list] + ["[0]" row {"+" [Row]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [actor: message:]} + ["[0]" / {"+" [actor: message:]} [// - ["." atom {"+" [Atom]}] - ["." async {"+" [Async Resolver]} ("#\." monad)] - ["." frp]]]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async {"+" [Async Resolver]} ("[1]\[0]" monad)] + ["[0]" frp]]]]) (exception: got_wrecked) diff --git a/stdlib/source/test/lux/control/concurrency/async.lux b/stdlib/source/test/lux/control/concurrency/async.lux index ad1297161..0709aff61 100644 --- a/stdlib/source/test/lux/control/concurrency/async.lux +++ b/stdlib/source/test/lux/control/concurrency/async.lux @@ -6,25 +6,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control [pipe {"+" [case>]}] - ["." io]] + ["[0]" io]] [time - ["." instant] - ["." duration]] + ["[0]" instant] + ["[0]" duration]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int] - ["." i64]]]]] + ["[0]" i64]]]]] [\\library - ["." / + ["[0]" / [// - ["." atom {"+" [Atom]}]]]]) + ["[0]" atom {"+" [Atom]}]]]]) (def: injection (Injection /.Async) diff --git a/stdlib/source/test/lux/control/concurrency/atom.lux b/stdlib/source/test/lux/control/concurrency/atom.lux index c20b717e4..1bdbbca05 100644 --- a/stdlib/source/test/lux/control/concurrency/atom.lux +++ b/stdlib/source/test/lux/control/concurrency/atom.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}]] [control - ["." io]] + ["[0]" io]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/concurrency/frp.lux b/stdlib/source/test/lux/control/concurrency/frp.lux index 40c490233..d4615020b 100644 --- a/stdlib/source/test/lux/control/concurrency/frp.lux +++ b/stdlib/source/test/lux/control/concurrency/frp.lux @@ -5,26 +5,26 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." try] - ["." exception] - ["." io {"+" [IO io]}]] + ["[0]" try] + ["[0]" exception] + ["[0]" io {"+" [IO io]}]] [data [collection - ["." list ("#\." mix monoid)] - ["." row {"+" [Row]}]]] + ["[0]" list ("[1]\[0]" mix monoid)] + ["[0]" row {"+" [Row]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// - ["." async {"+" [Async]} ("#\." monad)] - ["." atom {"+" [Atom atom]}]]]]) + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)] + ["[0]" atom {"+" [Atom atom]}]]]]) (def: injection (Injection /.Channel) @@ -65,7 +65,7 @@ (def: .public test Test (<| (_.covering /._) - (let [(^open "list\.") (list.equivalence n.equivalence)] + (let [(^open "list\[0]") (list.equivalence n.equivalence)] (do [! random.monad] [inputs (random.list 5 random.nat) sample random.nat diff --git a/stdlib/source/test/lux/control/concurrency/semaphore.lux b/stdlib/source/test/lux/control/concurrency/semaphore.lux index c93b51358..50b35b437 100644 --- a/stdlib/source/test/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/test/lux/control/concurrency/semaphore.lux @@ -4,30 +4,30 @@ ["_" test {"+" [Test]}] ["@" target] [abstract - ["." monad {"+" [do]}] - ["." enum]] + ["[0]" monad {"+" [do]}] + ["[0]" enum]] [control - ["." io] - ["." maybe] - ["." try] - ["." exception {"+" [exception:]}] + ["[0]" io] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception {"+" [exception:]}] [concurrency - ["." async {"+" [Async]}] - ["." atom {"+" [Atom]}]]] + ["[0]" async {"+" [Async]}] + ["[0]" atom {"+" [Atom]}]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [type - ["." refinement]]]] + ["[0]" refinement]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: delay (for {@.js diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index c2251e302..8039bf039 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -3,27 +3,27 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [Monad do]}] + ["[0]" monad {"+" [Monad do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." io {"+" [IO]}]] + ["[0]" io {"+" [IO]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// - ["." atom {"+" [Atom atom]}] - ["." async] - ["." frp {"+" [Channel]}]]]]) + ["[0]" atom {"+" [Atom atom]}] + ["[0]" async] + ["[0]" frp {"+" [Channel]}]]]]) (def: injection (Injection /.STM) diff --git a/stdlib/source/test/lux/control/concurrency/thread.lux b/stdlib/source/test/lux/control/concurrency/thread.lux index 50adc9255..b712c2c12 100644 --- a/stdlib/source/test/lux/control/concurrency/thread.lux +++ b/stdlib/source/test/lux/control/concurrency/thread.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}]] [control - ["." io]] + ["[0]" io]] [time - ["." instant {"+" [Instant]}] - ["." duration]] + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." / + ["[0]" / [// - ["." atom {"+" [Atom]}] - ["." async]]]]) + ["[0]" atom {"+" [Atom]}] + ["[0]" async]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/continuation.lux b/stdlib/source/test/lux/control/continuation.lux index ac433a867..ecb4ee77d 100644 --- a/stdlib/source/test/lux/control/continuation.lux +++ b/stdlib/source/test/lux/control/continuation.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: injection (All (_ o) (Injection (All (_ i) (/.Cont i o)))) @@ -32,8 +32,8 @@ (<| (_.covering /._) (do random.monad [sample random.nat - .let [(^open "_\.") /.apply - (^open "_\.") /.monad] + .let [(^open "_\[0]") /.apply + (^open "_\[0]") /.monad] elems (random.list 3 random.nat)]) (_.for [/.Cont]) ($_ _.and @@ -66,8 +66,8 @@ (restart [(n.+ 10 output) (++ idx)]) (in output)))))) (_.cover [/.shift /.reset] - (let [(^open "_\.") /.monad - (^open "list\.") (list.equivalence n.equivalence) + (let [(^open "_\[0]") /.monad + (^open "list\[0]") (list.equivalence n.equivalence) visit (: (-> (List Nat) (/.Cont (List Nat) (List Nat))) (function (visit xs) diff --git a/stdlib/source/test/lux/control/exception.lux b/stdlib/source/test/lux/control/exception.lux index 234e4bf6c..cbb91dec4 100644 --- a/stdlib/source/test/lux/control/exception.lux +++ b/stdlib/source/test/lux/control/exception.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [exception:]} + ["[0]" / {"+" [exception:]} [// - ["." try {"+" [Try]}]]]]) + ["[0]" try {"+" [Try]}]]]]) (exception: an_exception) (exception: another_exception) diff --git a/stdlib/source/test/lux/control/function.lux b/stdlib/source/test/lux/control/function.lux index ab003daf6..04a30d87b 100644 --- a/stdlib/source/test/lux/control/function.lux +++ b/stdlib/source/test/lux/control/function.lux @@ -6,20 +6,20 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}] [\\specification - ["$." monoid]]] + ["$[0]" monoid]]] [data - ["." text ("#!." equivalence)]] + ["[0]" text ("[1]![0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]] - ["." / "_" - ["#." contract] - ["#." memo] - ["#." mixin] - ["#." mutual]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" contract] + ["[1][0]" memo] + ["[1][0]" mixin] + ["[1][0]" mutual]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/function/contract.lux b/stdlib/source/test/lux/control/function/contract.lux index c73abbcb1..2ea5d8e3e 100644 --- a/stdlib/source/test/lux/control/function/contract.lux +++ b/stdlib/source/test/lux/control/function/contract.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." text]] + ["[0]" text]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/function/memo.lux b/stdlib/source/test/lux/control/function/memo.lux index 71d9de075..f975f5b97 100644 --- a/stdlib/source/test/lux/control/function/memo.lux +++ b/stdlib/source/test/lux/control/function/memo.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] - ["." state {"+" [State]} ("#\." monad)]] + ["[0]" io {"+" [IO]}] + ["[0]" state {"+" [State]} ("[1]\[0]" monad)]] [data - ["." product] + ["[0]" product] [collection - ["." dictionary {"+" [Dictionary]}] - ["." list ("#\." functor mix)]]] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" list ("[1]\[0]" functor mix)]]] [math - ["." random] + ["[0]" random] [number ["n" nat] - ["." i64]]] + ["[0]" i64]]] [time - ["." instant] - ["." duration {"+" [Duration]}]]]] + ["[0]" instant] + ["[0]" duration {"+" [Duration]}]]]] [\\library - ["." / - ["/#" // "_" - ["#" mixin]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" mixin]]]]) (def: (fibonacci recur input) (/.Memo Nat Nat) diff --git a/stdlib/source/test/lux/control/function/mixin.lux b/stdlib/source/test/lux/control/function/mixin.lux index ec52f3d55..e56ccb3a6 100644 --- a/stdlib/source/test/lux/control/function/mixin.lux +++ b/stdlib/source/test/lux/control/function/mixin.lux @@ -7,19 +7,19 @@ [predicate {"+" [Predicate]}] [monad {"+" [do]}] [\\specification - ["$." monoid]]] + ["$[0]" monoid]]] [control - ["." state {"+" [State]}]] + ["[0]" state {"+" [State]}]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/function/mutual.lux b/stdlib/source/test/lux/control/function/mutual.lux index 549cb46b9..6fe925cd2 100644 --- a/stdlib/source/test/lux/control/function/mutual.lux +++ b/stdlib/source/test/lux/control/function/mutual.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [text ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: test_let Test diff --git a/stdlib/source/test/lux/control/io.lux b/stdlib/source/test/lux/control/io.lux index d5c57766a..f95f40627 100644 --- a/stdlib/source/test/lux/control/io.lux +++ b/stdlib/source/test/lux/control/io.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [IO]} + ["[0]" / {"+" [IO]} [// - ["." function]]]]) + ["[0]" function]]]]) (def: injection (Injection IO) diff --git a/stdlib/source/test/lux/control/lazy.lux b/stdlib/source/test/lux/control/lazy.lux index 1986837c4..8455c3194 100644 --- a/stdlib/source/test/lux/control/lazy.lux +++ b/stdlib/source/test/lux/control/lazy.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad] - ["$." equivalence]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad] + ["$[0]" equivalence]]] [data - ["." product]] + ["[0]" product]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Lazy]}]]) + ["[0]" / {"+" [Lazy]}]]) (def: injection (Injection Lazy) diff --git a/stdlib/source/test/lux/control/maybe.lux b/stdlib/source/test/lux/control/maybe.lux index fc828fd7b..1c3e270a5 100644 --- a/stdlib/source/test/lux/control/maybe.lux +++ b/stdlib/source/test/lux/control/maybe.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid] - ["$." functor] - ["$." apply] - ["$." monad]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid] + ["$[0]" functor] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." io ("#\." monad)] + ["[0]" io ("[1]\[0]" monad)] pipe] [data - ["." text] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / ("#\." monoid monad)]]) + ["[0]" / ("[1]\[0]" monoid monad)]]) (def: .public test Test @@ -81,7 +81,7 @@ (/.list (#.Some value))))) (do random.monad [expected random.nat - .let [(^open "/\.") (/.equivalence n.equivalence)]] + .let [(^open "/\[0]") (/.equivalence n.equivalence)]] (_.cover [/.when] (and (/\= (#.Some expected) (/.when true (#.Some expected))) (/\= #.None (/.when false (#.Some expected)))))) diff --git a/stdlib/source/test/lux/control/parser.lux b/stdlib/source/test/lux/control/parser.lux index 13f1e2c02..fa3e828dc 100644 --- a/stdlib/source/test/lux/control/parser.lux +++ b/stdlib/source/test/lux/control/parser.lux @@ -6,39 +6,39 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." try {"+" [Try]}] + ["[0]" try {"+" [Try]}] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] + ["[0]" code]]]] [\\library - ["." / {"+" [Parser]}]] - ["." / "_" - ["#." analysis] - ["#." binary] - ["#." cli] - ["#." code] - ["#." environment] - ["#." json] - ["#." synthesis] - ["#." text] - ["#." tree] - ["#." type] - ["#." xml]]) + ["[0]" / {"+" [Parser]}]] + ["[0]" / "_" + ["[1][0]" analysis] + ["[1][0]" binary] + ["[1][0]" cli] + ["[1][0]" code] + ["[1][0]" environment] + ["[1][0]" json] + ["[1][0]" synthesis] + ["[1][0]" text] + ["[1][0]" tree] + ["[1][0]" type] + ["[1][0]" xml]]) (def: (should_fail expected input) (All (_ a) (-> Text (Try a) Bit)) diff --git a/stdlib/source/test/lux/control/parser/analysis.lux b/stdlib/source/test/lux/control/parser/analysis.lux index a3c722851..c1babf741 100644 --- a/stdlib/source/test/lux/control/parser/analysis.lux +++ b/stdlib/source/test/lux/control/parser/analysis.lux @@ -6,17 +6,17 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] ["<>" parser]] [data - ["." name ("#\." equivalence)] - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence)] + ["[0]" name ("[1]\[0]" equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int] @@ -28,9 +28,9 @@ [variable {"+" []}]] [language [lux - ["." analysis]]]]]]] + ["[0]" analysis]]]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <expectation> <computation>) [(case <computation> diff --git a/stdlib/source/test/lux/control/parser/binary.lux b/stdlib/source/test/lux/control/parser/binary.lux index 965c9abad..73c94aa76 100644 --- a/stdlib/source/test/lux/control/parser/binary.lux +++ b/stdlib/source/test/lux/control/parser/binary.lux @@ -2,44 +2,44 @@ [library [lux {"-" [primitive]} ["_" test {"+" [Test]}] - ["." type] + ["[0]" type] [abstract [equivalence {"+" [Equivalence]}] [predicate {"+" [Predicate]}] [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." try] - ["." exception] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception] ["<>" parser]] [data - ["." binary] - ["." sum] - ["." bit] - ["." name] - ["." text ("#\." equivalence) + ["[0]" binary] + ["[0]" sum] + ["[0]" bit] + ["[0]" name] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]]] - ["." format "_" - ["#" binary]] + ["[0]" utf8]]] + ["[0]" format "_" + ["[1]" binary]] [collection - ["." list] - ["." row] - ["." set]]] + ["[0]" list] + ["[0]" row] + ["[0]" set]]] [macro - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." i64] - ["." int] - ["." rev] - ["." frac]]]]] + ["[0]" i64] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <expectation> <computation>) [(case <computation> @@ -115,7 +115,7 @@ (def: random_type (Random Type) - (let [(^open ".") random.monad] + (let [(^open "[0]") random.monad] ($_ random.either (in .Nat) (in .List) diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index 64b0d4425..69f8cfe3e 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number - ["n" nat ("#\." decimal)]]]]] + ["n" nat ("[1]\[0]" decimal)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/code.lux b/stdlib/source/test/lux/control/parser/code.lux index b40394152..6e072a050 100644 --- a/stdlib/source/test/lux/control/parser/code.lux +++ b/stdlib/source/test/lux/control/parser/code.lux @@ -5,26 +5,26 @@ [abstract [monad {"+" [do]}]] [control - ["." function] - ["." try] + ["[0]" function] + ["[0]" try] ["<>" parser]] [data - ["." bit] - ["." name] - ["." text] + ["[0]" bit] + ["[0]" name] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [macro - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/environment.lux b/stdlib/source/test/lux/control/parser/environment.lux index fd9526160..42c09df66 100644 --- a/stdlib/source/test/lux/control/parser/environment.lux +++ b/stdlib/source/test/lux/control/parser/environment.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / - ["/#" // ("#\." monad)]]]) + ["[0]" / + ["/[1]" // ("[1]\[0]" monad)]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/parser/json.lux b/stdlib/source/test/lux/control/parser/json.lux index a2951dc23..1e440036e 100644 --- a/stdlib/source/test/lux/control/parser/json.lux +++ b/stdlib/source/test/lux/control/parser/json.lux @@ -6,27 +6,27 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." maybe] - ["." try] - ["." exception] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception] ["<>" parser]] [data - ["." bit] - ["." text] + ["[0]" bit] + ["[0]" text] [collection - ["." list ("#\." functor)] - ["." set] - ["." dictionary] - ["." row {"+" [row]} ("#\." functor)]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set] + ["[0]" dictionary] + ["[0]" row {"+" [row]} ("[1]\[0]" functor)]] [format - ["." json]]] + ["[0]" json]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." frac]]]]] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/synthesis.lux b/stdlib/source/test/lux/control/parser/synthesis.lux index ca405d495..9068cad62 100644 --- a/stdlib/source/test/lux/control/parser/synthesis.lux +++ b/stdlib/source/test/lux/control/parser/synthesis.lux @@ -3,34 +3,34 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] ["<>" parser] - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." bit] - ["." name] - ["." text] + ["[0]" bit] + ["[0]" name] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." i64] - ["." frac]]] + ["[0]" i64] + ["[0]" frac]]] [tool [compiler [reference {"+" []} - ["." variable {"+" [Variable]}]] + ["[0]" variable {"+" [Variable]}]] [language [lux [analysis {"+" [Environment]}] - ["." synthesis {"+" [Synthesis]}]]]]]]] + ["[0]" synthesis {"+" [Synthesis]}]]]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux index 7207e4477..05a28b1ff 100644 --- a/stdlib/source/test/lux/control/parser/text.lux +++ b/stdlib/source/test/lux/control/parser/text.lux @@ -5,29 +5,29 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try {"+" [Try]}] - ["." exception {"+" [Exception]}] - ["." function]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception]}] + ["[0]" function]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] - ["." unicode "_" - ["#" set] - ["#/." block]]] + ["[0]" unicode "_" + ["[1]" set] + ["[1]/[0]" block]]] [collection - ["." set] - ["." list ("#\." functor)] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor)] [tree - ["." finger]]]] + ["[0]" finger]]]] [math - ["." random] + ["[0]" random] [number {"+" [hex]} ["n" nat]]] [macro - ["." code]]]] + ["[0]" code]]]] [\\library - ["." / + ["[0]" / ["<>" // ["<c>" code]]]]) diff --git a/stdlib/source/test/lux/control/parser/tree.lux b/stdlib/source/test/lux/control/parser/tree.lux index 21f048ffa..30fc3f5d1 100644 --- a/stdlib/source/test/lux/control/parser/tree.lux +++ b/stdlib/source/test/lux/control/parser/tree.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data [collection - ["." tree - ["." zipper]]]] + ["[0]" tree + ["[0]" zipper]]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / - ["/#" //]]]) + ["[0]" / + ["/[1]" //]]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/type.lux b/stdlib/source/test/lux/control/parser/type.lux index af74b5851..8b843dcdb 100644 --- a/stdlib/source/test/lux/control/parser/type.lux +++ b/stdlib/source/test/lux/control/parser/type.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." name ("#\." equivalence)] + ["[0]" name ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]] - ["." type ("#\." equivalence)]]] + ["[0]" type ("[1]\[0]" equivalence)]]] [\\library - ["." / - ["/#" //]]]) + ["[0]" / + ["/[1]" //]]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/parser/xml.lux b/stdlib/source/test/lux/control/parser/xml.lux index 4d357320e..b61b993a2 100644 --- a/stdlib/source/test/lux/control/parser/xml.lux +++ b/stdlib/source/test/lux/control/parser/xml.lux @@ -2,29 +2,29 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] - ["." exception]] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception]] [data - ["." text ("#\." equivalence)] - ["." name ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] + ["[0]" name ("[1]\[0]" equivalence)] [format - ["." xml ("#\." equivalence)]] + ["[0]" xml ("[1]\[0]" equivalence)]] [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / - ["/#" // ("#\." monad)]]]) + ["[0]" / + ["/[1]" // ("[1]\[0]" monad)]]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index a61671c97..f71dae655 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -2,19 +2,19 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." debug] + ["[0]" debug] [abstract [monad {"+" [do]}]] [data - ["." identity] - ["." text ("#\." equivalence) + ["[0]" identity] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/control/reader.lux b/stdlib/source/test/lux/control/reader.lux index 21818e60e..2545c2834 100644 --- a/stdlib/source/test/lux/control/reader.lux +++ b/stdlib/source/test/lux/control/reader.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Reader]} + ["[0]" / {"+" [Reader]} [// - ["." io {"+" [IO]}]]]]) + ["[0]" io {"+" [IO]}]]]]) (def: (injection value) (Injection (All (_ a r) (Reader r a))) @@ -48,7 +48,7 @@ (_.cover [/.local] (n.= (n.* factor sample) (/.result sample (/.local (n.* factor) /.read)))) - (let [(^open "io\.") io.monad] + (let [(^open "io\[0]") io.monad] (_.cover [/.with /.lifted] (|> (: (/.Reader Any (IO Nat)) (do (/.with io.monad) diff --git a/stdlib/source/test/lux/control/region.lux b/stdlib/source/test/lux/control/region.lux index 2e6af0ef9..6b4f5b55c 100644 --- a/stdlib/source/test/lux/control/region.lux +++ b/stdlib/source/test/lux/control/region.lux @@ -7,26 +7,26 @@ [equivalence {"+" [Equivalence]}] [functor {"+" [Functor]}] [apply {"+" [Apply]}] - ["." monad {"+" [Monad do]}] - ["." enum] + ["[0]" monad {"+" [Monad do]}] + ["[0]" enum] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Region]} + ["[0]" / {"+" [Region]} [// - ["." thread {"+" [Thread]}] - ["." exception {"+" [Exception exception:]}]]]]) + ["[0]" thread {"+" [Thread]}] + ["[0]" exception {"+" [Exception exception:]}]]]]) (exception: oops) diff --git a/stdlib/source/test/lux/control/remember.lux b/stdlib/source/test/lux/control/remember.lux index a2ebf0aa7..680238ff9 100644 --- a/stdlib/source/test/lux/control/remember.lux +++ b/stdlib/source/test/lux/control/remember.lux @@ -2,31 +2,31 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." io] - ["." try {"+" [Try]}] - ["." exception] + ["[0]" io] + ["[0]" try {"+" [Try]}] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]]] [math [number {"+" [hex]}] - ["." random {"+" [Random]} ("#\." monad)]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]] [time - ["." date {"+" [Date]}] - ["." instant] - ["." duration]] - ["." macro - ["." code] - ["." syntax {"+" [syntax:]}]]]] + ["[0]" date {"+" [Date]}] + ["[0]" instant] + ["[0]" duration]] + ["[0]" macro + ["[0]" code] + ["[0]" syntax {"+" [syntax:]}]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: deadline (Random Date) random.date) (def: message (Random Text) (random\each %.bit random.bit)) diff --git a/stdlib/source/test/lux/control/security/capability.lux b/stdlib/source/test/lux/control/security/capability.lux index 668f742d7..3d842884e 100644 --- a/stdlib/source/test/lux/control/security/capability.lux +++ b/stdlib/source/test/lux/control/security/capability.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [control - ["." io {"+" [IO]}] + ["[0]" io {"+" [IO]}] [concurrency - ["." async]]] + ["[0]" async]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.capability: (Can_Shift a) (can_shift [a Nat] [a Nat])) diff --git a/stdlib/source/test/lux/control/security/policy.lux b/stdlib/source/test/lux/control/security/policy.lux index c8fdeac47..810020b02 100644 --- a/stdlib/source/test/lux/control/security/policy.lux +++ b/stdlib/source/test/lux/control/security/policy.lux @@ -6,17 +6,17 @@ [hash {"+" [Hash]}] [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Context Privacy Can_Conceal Can_Reveal Privilege Private]}]]) + ["[0]" / {"+" [Context Privacy Can_Conceal Can_Reveal Privilege Private]}]]) (def: (injection can_conceal) (All (_ label) @@ -48,7 +48,7 @@ (Ex (_ %) (-> Any (Policy %))) (/.with_policy (: (Context Privacy Policy) - (function (_ (^@ privilege (^open "%\."))) + (function (_ (^@ privilege (^open "%\[0]"))) (implementation (def: &hash (implementation diff --git a/stdlib/source/test/lux/control/state.lux b/stdlib/source/test/lux/control/state.lux index e96247575..551ce224a 100644 --- a/stdlib/source/test/lux/control/state.lux +++ b/stdlib/source/test/lux/control/state.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control [pipe {"+" [let>]}] - ["." io]] + ["[0]" io]] [data - ["." product]] + ["[0]" product]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [State]}]]) + ["[0]" / {"+" [State]}]]) (def: (with_conditions [state output] computation) (-> [Nat Nat] (State Nat Nat) Bit) @@ -107,7 +107,7 @@ [state random.nat left random.nat right random.nat] - (let [(^open "io\.") io.monad] + (let [(^open "io\[0]") io.monad] (_.cover [/.+State /.with /.lifted /.result'] (|> (: (/.+State io.IO Nat Nat) (do (/.with io.monad) diff --git a/stdlib/source/test/lux/control/thread.lux b/stdlib/source/test/lux/control/thread.lux index 7fea9aa31..c54b019dc 100644 --- a/stdlib/source/test/lux/control/thread.lux +++ b/stdlib/source/test/lux/control/thread.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Thread]} + ["[0]" / {"+" [Thread]} [// - ["." io]]]]) + ["[0]" io]]]]) (def: (injection value) (Injection (All (_ a !) (Thread ! a))) diff --git a/stdlib/source/test/lux/control/try.lux b/stdlib/source/test/lux/control/try.lux index 8c954da6f..80b68423f 100644 --- a/stdlib/source/test/lux/control/try.lux +++ b/stdlib/source/test/lux/control/try.lux @@ -5,21 +5,21 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad] - ["$." equivalence]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad] + ["$[0]" equivalence]]] [control pipe - ["." io]] + ["[0]" io]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Try]}]]) + ["[0]" / {"+" [Try]}]]) (def: injection (Injection Try) @@ -44,7 +44,7 @@ [expected random.nat alternative (|> random.nat (random.only (|>> (n.= expected) not))) error (random.unicode 1) - .let [(^open "io\.") io.monad]]) + .let [(^open "io\[0]") io.monad]]) ($_ _.and (_.for [/.equivalence] ($equivalence.spec (/.equivalence n.equivalence) (..attempt random.nat))) diff --git a/stdlib/source/test/lux/control/writer.lux b/stdlib/source/test/lux/control/writer.lux index 6e4decb75..d8d529e54 100644 --- a/stdlib/source/test/lux/control/writer.lux +++ b/stdlib/source/test/lux/control/writer.lux @@ -7,20 +7,20 @@ [monoid {"+" [Monoid]}] [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." io]] + ["[0]" io]] [data - ["." product] - ["." text ("#\." equivalence)]] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Writer]}]]) + ["[0]" / {"+" [Writer]}]]) (def: (injection monoid value) (All (_ w) (-> (Monoid w) (Injection (Writer w)))) @@ -52,7 +52,7 @@ (product.left (/.write log)))) (_.cover [/.with /.lifted] (let [lifted (/.lifted text.monoid io.monad) - (^open "io\.") io.monad] + (^open "io\[0]") io.monad] (|> (do (/.with text.monoid io.monad) [a (lifted (io\in left)) b (in right)] diff --git a/stdlib/source/test/lux/data.lux b/stdlib/source/test/lux/data.lux index 5750b29f2..eda9b9ee5 100644 --- a/stdlib/source/test/lux/data.lux +++ b/stdlib/source/test/lux/data.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}]] [math - ["." random]]]] - ["." / "_" - ["#." binary] - ["#." bit] - ["#." color - ["#/." named]] - ["#." identity] - ["#." name] - ["#." product] - ["#." sum] - ["#." text] - ["#." format "_" - ["#/." binary] - ["#/." json] - ["#/." tar] - ["#/." xml]] - ["#." collection]]) + ["[0]" random]]]] + ["[0]" / "_" + ["[1][0]" binary] + ["[1][0]" bit] + ["[1][0]" color + ["[1]/[0]" named]] + ["[1][0]" identity] + ["[1][0]" name] + ["[1][0]" product] + ["[1][0]" sum] + ["[1][0]" text] + ["[1][0]" format "_" + ["[1]/[0]" binary] + ["[1]/[0]" json] + ["[1]/[0]" tar] + ["[1]/[0]" xml]] + ["[1][0]" collection]]) ... TODO: Get rid of this ASAP (template: (!bundle body) diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux index a9dbaca2e..1fb97272c 100644 --- a/stdlib/source/test/lux/data/binary.lux +++ b/stdlib/source/test/lux/data/binary.lux @@ -3,24 +3,24 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}] - ["." enum] + ["[0]" monad {"+" [do]}] + ["[0]" enum] [\\specification - ["$." equivalence] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" monoid]]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [Exception]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [Exception]}]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." i64] + ["[0]" i64] ["n" nat]]]]] [\\library - ["." / {"+" [Binary]}]]) + ["[0]" / {"+" [Binary]}]]) (def: (succeed result) (-> (Try Bit) Bit) diff --git a/stdlib/source/test/lux/data/bit.lux b/stdlib/source/test/lux/data/bit.lux index 11ecc92c3..f54892910 100644 --- a/stdlib/source/test/lux/data/bit.lux +++ b/stdlib/source/test/lux/data/bit.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid] + ["$[0]" codec]]] [control - ["." function]] + ["[0]" function]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/data/collection.lux b/stdlib/source/test/lux/data/collection.lux index 5f8047ac4..b6615368b 100644 --- a/stdlib/source/test/lux/data/collection.lux +++ b/stdlib/source/test/lux/data/collection.lux @@ -2,24 +2,24 @@ [library [lux "*" ["_" test {"+" [Test]}]]] - ["." / "_" - ["#." array] - ["#." bits] - ["#." list] - ["#." row] - ["#." sequence] - ["#." stack] - ["#." dictionary - ["#/." ordered] - ["#/." plist]] - ["#." queue - ["#/." priority]] - ["#." set - ["#/." multi] - ["#/." ordered]] - ["#." tree - ["#/." finger] - ["#/." zipper]]]) + ["[0]" / "_" + ["[1][0]" array] + ["[1][0]" bits] + ["[1][0]" list] + ["[1][0]" row] + ["[1][0]" sequence] + ["[1][0]" stack] + ["[1][0]" dictionary + ["[1]/[0]" ordered] + ["[1]/[0]" plist]] + ["[1][0]" queue + ["[1]/[0]" priority]] + ["[1][0]" set + ["[1]/[0]" multi] + ["[1]/[0]" ordered]] + ["[1][0]" tree + ["[1]/[0]" finger] + ["[1]/[0]" zipper]]]) (def: dictionary Test diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux index 102a7a2a5..46783bc56 100644 --- a/stdlib/source/test/lux/data/collection/array.lux +++ b/stdlib/source/test/lux/data/collection/array.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." monoid] - ["$." mix] - ["$." functor {"+" [Injection]}]]] + ["$[0]" equivalence] + ["$[0]" monoid] + ["$[0]" mix] + ["$[0]" functor {"+" [Injection]}]]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." bit] + ["[0]" bit] [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Array]}]]) + ["[0]" / {"+" [Array]}]]) (def: injection (Injection Array) diff --git a/stdlib/source/test/lux/data/collection/bits.lux b/stdlib/source/test/lux/data/collection/bits.lux index a3f877cb1..ea93acfcb 100644 --- a/stdlib/source/test/lux/data/collection/bits.lux +++ b/stdlib/source/test/lux/data/collection/bits.lux @@ -4,15 +4,15 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Bits]}]]) + ["[0]" / {"+" [Bits]}]]) (def: (size min max) (-> Nat Nat (Random Nat)) diff --git a/stdlib/source/test/lux/data/collection/dictionary.lux b/stdlib/source/test/lux/data/collection/dictionary.lux index 60314ca82..788f6c3eb 100644 --- a/stdlib/source/test/lux/data/collection/dictionary.lux +++ b/stdlib/source/test/lux/data/collection/dictionary.lux @@ -6,23 +6,23 @@ [hash {"+" [Hash]}] [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." functor {"+" [Injection]}]]] + ["$[0]" equivalence] + ["$[0]" functor {"+" [Injection]}]]] [control - ["." maybe ("#\." functor)] - ["." try] - ["." exception]] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try] + ["[0]" exception]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: injection (Injection (/.Dictionary Nat)) @@ -109,12 +109,12 @@ (list.size (/.values dict)))) (_.cover [/.merged] - (let [merging_with_oneself (let [(^open ".") (/.equivalence n.equivalence)] + (let [merging_with_oneself (let [(^open "[0]") (/.equivalence n.equivalence)] (= dict (/.merged dict dict))) overwritting_keys (let [dict' (|> dict /.entries (list\each (function (_ [k v]) [k (++ v)])) (/.of_list n.hash)) - (^open ".") (/.equivalence n.equivalence)] + (^open "[0]") (/.equivalence n.equivalence)] (= dict' (/.merged dict' dict)))] (and merging_with_oneself overwritting_keys))) @@ -125,7 +125,7 @@ (/.values (/.merged_with n.+ dict dict))))) (_.cover [/.of_list] - (let [(^open ".") (/.equivalence n.equivalence)] + (let [(^open "[0]") (/.equivalence n.equivalence)] (and (= dict dict) (|> dict /.entries (/.of_list n.hash) (= dict))))) ))) diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux index 9759aa3d4..65bb6226d 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux @@ -7,21 +7,21 @@ [equivalence {"+" [Equivalence]}] [order {"+" [Order]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." product] - ["." bit ("#\." equivalence)] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." set] - ["." list ("#\." functor)]]] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (dictionary order gen_key gen_value size) (All (_ k v) @@ -57,11 +57,11 @@ (n.< left right)) pairs) sorted_values (list\each product.right sorted_pairs) - (^open "list\.") (list.equivalence (: (Equivalence [Nat Nat]) + (^open "list\[0]") (list.equivalence (: (Equivalence [Nat Nat]) (function (_ [kr vr] [ks vs]) (and (n.= kr ks) (n.= vr vs))))) - (^open "/\.") (/.equivalence n.equivalence)]] + (^open "/\[0]") (/.equivalence n.equivalence)]] ($_ _.and (_.for [/.equivalence] ($equivalence.spec (/.equivalence n.equivalence) (..dictionary n.order random.nat random.nat size))) diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux index 56d376740..572f06c31 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux @@ -5,21 +5,21 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data - ["." bit ("#\." equivalence)] - ["." text] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text] [collection - ["." set] - ["." list]]] + ["[0]" set] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (random size gen_key gen_value) (All (_ v) diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux index 639e69400..e4776e1ab 100644 --- a/stdlib/source/test/lux/data/collection/list.lux +++ b/stdlib/source/test/lux/data/collection/list.lux @@ -4,33 +4,33 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." enum] + ["[0]" enum] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid] - ["$." mix] - ["$." functor] - ["$." apply] - ["$." monad]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid] + ["$[0]" mix] + ["$[0]" functor] + ["$[0]" apply] + ["$[0]" monad]]] [control pipe - ["." io] - ["." maybe] - ["." function]] + ["[0]" io] + ["[0]" maybe] + ["[0]" function]] [data - ["." bit] - ["." product] - ["." text ("#\." equivalence)] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." set]]] + ["[0]" set]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." int]]]]] + ["[0]" int]]]]] [\\library - ["." / ("#\." monad)]]) + ["[0]" / ("[1]\[0]" monad)]]) (def: bounded_size (Random Nat) @@ -69,7 +69,7 @@ [parameter random.nat subject random.nat] (let [lifted (/.lifted io.monad) - (^open "io\.") io.monad + (^open "io\[0]") io.monad expected (n.+ parameter subject)] (_.cover [/.with /.lifted] (|> (io.run! (do (/.with io.monad) @@ -87,7 +87,7 @@ Test (do [! random.monad] [size ..bounded_size - .let [(^open "/\.") (/.equivalence n.equivalence)] + .let [(^open "/\[0]") (/.equivalence n.equivalence)] sample (\ ! each set.list (random.set n.hash size random.nat))] ($_ _.and (_.cover [/.size] @@ -129,8 +129,8 @@ (def: indices Test - (let [(^open "/\.") (/.equivalence n.equivalence) - (^open "/\.") /.functor] + (let [(^open "/\[0]") (/.equivalence n.equivalence) + (^open "/\[0]") /.functor] (do [! random.monad] [sample ..random .let [size (/.size sample)]] @@ -178,8 +178,8 @@ (def: slice Test - (let [(^open "/\.") (/.equivalence n.equivalence) - (^open "/\.") /.monoid] + (let [(^open "/\[0]") (/.equivalence n.equivalence) + (^open "/\[0]") /.monoid] (do [! random.monad] [sample (random.only (|>> /.size (n.> 0)) ..random) @@ -227,7 +227,7 @@ (def: member Test - (let [(^open "/\.") (/.equivalence n.equivalence)] + (let [(^open "/\[0]") (/.equivalence n.equivalence)] (do [! random.monad] [sample ..random] (`` ($_ _.and @@ -265,9 +265,9 @@ (def: grouping Test - (let [(^open "/\.") (/.equivalence n.equivalence) - (^open "/\.") /.functor - (^open "/\.") /.monoid + (let [(^open "/\[0]") (/.equivalence n.equivalence) + (^open "/\[0]") /.functor + (^open "/\[0]") /.monoid +/2 (: (-> Nat Nat Nat) (function (_ left right) @@ -350,7 +350,7 @@ (def: search Test - (let [(^open "/\.") /.functor + (let [(^open "/\[0]") /.functor choose (: (-> Nat (Maybe Text)) (function (_ value) @@ -393,8 +393,8 @@ Test (<| (_.covering /._) (_.for [.List]) - (let [(^open "/\.") (/.equivalence n.equivalence) - (^open "/\.") /.functor] + (let [(^open "/\[0]") (/.equivalence n.equivalence) + (^open "/\[0]") /.functor] (do [! random.monad] [sample ..random separator random.nat] @@ -429,7 +429,7 @@ (/.mixes n.+ 0 sample))) (do random.monad [expected random.nat - .let [(^open "/\.") (/.equivalence n.equivalence)]] + .let [(^open "/\[0]") (/.equivalence n.equivalence)]] (_.cover [/.when] (and (/\= (list expected) (/.when true (list expected))) (/\= (list) (/.when false (list expected)))))) diff --git a/stdlib/source/test/lux/data/collection/queue.lux b/stdlib/source/test/lux/data/collection/queue.lux index 7a24ad89d..117617468 100644 --- a/stdlib/source/test/lux/data/collection/queue.lux +++ b/stdlib/source/test/lux/data/collection/queue.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." functor {"+" [Injection]}]]] + ["$[0]" equivalence] + ["$[0]" functor {"+" [Injection]}]]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." set] - ["." list ("#\." monoid)]]] + ["[0]" set] + ["[0]" list ("[1]\[0]" monoid)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: injection (Injection /.Queue) diff --git a/stdlib/source/test/lux/data/collection/queue/priority.lux b/stdlib/source/test/lux/data/collection/queue/priority.lux index 2f61d3e57..0ce7111f6 100644 --- a/stdlib/source/test/lux/data/collection/queue/priority.lux +++ b/stdlib/source/test/lux/data/collection/queue/priority.lux @@ -3,17 +3,17 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Queue]}]]) + ["[0]" / {"+" [Queue]}]]) (def: .public (random size) (-> Nat (Random (Queue Nat))) diff --git a/stdlib/source/test/lux/data/collection/row.lux b/stdlib/source/test/lux/data/collection/row.lux index af3acdb18..fa4f7271f 100644 --- a/stdlib/source/test/lux/data/collection/row.lux +++ b/stdlib/source/test/lux/data/collection/row.lux @@ -5,26 +5,26 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." monoid] - ["$." mix] - ["$." functor {"+" [Injection]}] - ["$." apply] - ["$." monad]]] + ["$[0]" equivalence] + ["$[0]" monoid] + ["$[0]" mix] + ["$[0]" functor {"+" [Injection]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." try {"+" [Try]}] - ["." exception]] + ["[0]" try {"+" [Try]}] + ["[0]" exception]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list ("#\." mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" set]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / ("#\." monad)]]) + ["[0]" / ("[1]\[0]" monad)]]) (def: signatures Test @@ -51,7 +51,7 @@ [size (\ ! each (n.% 100) random.nat) sample (random.set n.hash size random.nat) .let [sample (|> sample set.list /.of_list)] - .let [(^open "/\.") (/.equivalence n.equivalence)]] + .let [(^open "/\[0]") (/.equivalence n.equivalence)]] ($_ _.and (_.cover [/.size] (n.= size (/.size sample))) @@ -145,7 +145,7 @@ non_member (random.only (|>> (set.member? sample) not) random.nat) .let [sample (|> sample set.list /.of_list)] - .let [(^open "/\.") (/.equivalence n.equivalence)]] + .let [(^open "/\[0]") (/.equivalence n.equivalence)]] ($_ _.and (do ! [value/0 random.nat diff --git a/stdlib/source/test/lux/data/collection/sequence.lux b/stdlib/source/test/lux/data/collection/sequence.lux index cd5427b16..0d772e7dd 100644 --- a/stdlib/source/test/lux/data/collection/sequence.lux +++ b/stdlib/source/test/lux/data/collection/sequence.lux @@ -5,21 +5,21 @@ [abstract [monad {"+" [do]}] [equivalence {"+" [Equivalence]}] - ["." enum] + ["[0]" enum] [\\specification - ["$." functor] - ["$." comonad]]] + ["$[0]" functor] + ["$[0]" comonad]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (implementation: (equivalence super) (All (_ a) (-> (Equivalence a) (Equivalence (/.Sequence a)))) @@ -42,7 +42,7 @@ Test (<| (_.covering /._) (_.for [/.Sequence]) - (let [(^open "list\.") (list.equivalence n.equivalence)]) + (let [(^open "list\[0]") (list.equivalence n.equivalence)]) (do [! random.monad] [repeated random.nat index (\ ! each (n.% 100) random.nat) @@ -103,8 +103,8 @@ (n.= (++ (n.* 2 offset)) (/.item offset odds))))) (_.cover [/.iterations] - (let [(^open "/\.") /.functor - (^open "list\.") (list.equivalence text.equivalence)] + (let [(^open "/\[0]") /.functor + (^open "list\[0]") (list.equivalence text.equivalence)] (list\= (/.first size (/\each %.nat (..iterations ++ offset))) (/.first size diff --git a/stdlib/source/test/lux/data/collection/set.lux b/stdlib/source/test/lux/data/collection/set.lux index ec572c03c..3745cf845 100644 --- a/stdlib/source/test/lux/data/collection/set.lux +++ b/stdlib/source/test/lux/data/collection/set.lux @@ -6,19 +6,19 @@ [hash {"+" [Hash]}] [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid]]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / ("\." equivalence)]]) + ["[0]" / ("\[0]" equivalence)]]) (def: gen_nat (Random Nat) diff --git a/stdlib/source/test/lux/data/collection/set/multi.lux b/stdlib/source/test/lux/data/collection/set/multi.lux index c1a5d6fa5..2b614a1a4 100644 --- a/stdlib/source/test/lux/data/collection/set/multi.lux +++ b/stdlib/source/test/lux/data/collection/set/multi.lux @@ -5,21 +5,21 @@ [abstract [hash {"+" [Hash]}] [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence] - ["$." hash]]] + ["$[0]" equivalence] + ["$[0]" hash]]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." set] - ["." list ("#\." mix)]]] + ["[0]" set] + ["[0]" list ("[1]\[0]" mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: count (Random Nat) diff --git a/stdlib/source/test/lux/data/collection/set/ordered.lux b/stdlib/source/test/lux/data/collection/set/ordered.lux index c2133dd11..b89bad1bb 100644 --- a/stdlib/source/test/lux/data/collection/set/ordered.lux +++ b/stdlib/source/test/lux/data/collection/set/ordered.lux @@ -6,18 +6,18 @@ [monad {"+" [do]}] [order {"+" [Order]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." / {"+" [Set]} - ["." //]]]) + ["[0]" / {"+" [Set]} + ["[0]" //]]]) (def: size (random.Random Nat) @@ -48,7 +48,7 @@ random.nat) .let [listL (//.list usetL)] listR (|> (random.set n.hash sizeR random.nat) (\ ! each //.list)) - .let [(^open "/\.") /.equivalence + .let [(^open "/\[0]") /.equivalence setL (/.of_list n.order listL) setR (/.of_list n.order listR) empty (/.empty n.order)]] diff --git a/stdlib/source/test/lux/data/collection/stack.lux b/stdlib/source/test/lux/data/collection/stack.lux index 4fca1cb85..eb05c1e67 100644 --- a/stdlib/source/test/lux/data/collection/stack.lux +++ b/stdlib/source/test/lux/data/collection/stack.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." functor {"+" [Injection]}]]] + ["$[0]" equivalence] + ["$[0]" functor {"+" [Injection]}]]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (injection value) (Injection /.Stack) diff --git a/stdlib/source/test/lux/data/collection/tree.lux b/stdlib/source/test/lux/data/collection/tree.lux index 0aba27125..38320588c 100644 --- a/stdlib/source/test/lux/data/collection/tree.lux +++ b/stdlib/source/test/lux/data/collection/tree.lux @@ -3,21 +3,21 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}] + ["[0]" monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." mix] - ["$." functor]]] + ["$[0]" equivalence] + ["$[0]" mix] + ["$[0]" functor]]] [data - ["." product] + ["[0]" product] [collection - ["." list ("#\." functor mix)]]] + ["[0]" list ("[1]\[0]" functor mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / {"+" [Tree]}]]) + ["[0]" / {"+" [Tree]}]]) (def: .public (tree gen_value) (All (_ a) (-> (Random a) (Random [Nat (Tree a)]))) diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux index 09c9af569..a929dbaa5 100644 --- a/stdlib/source/test/lux/data/collection/tree/finger.lux +++ b/stdlib/source/test/lux/data/collection/tree/finger.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." text ("#\." equivalence monoid)] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [type {"+" [:by_example]}]]] [\\library - ["." /]]) + ["[0]" /]]) (def: builder (/.builder text.monoid)) diff --git a/stdlib/source/test/lux/data/collection/tree/zipper.lux b/stdlib/source/test/lux/data/collection/tree/zipper.lux index 9f780415c..f9308d080 100644 --- a/stdlib/source/test/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/test/lux/data/collection/tree/zipper.lux @@ -5,24 +5,24 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." functor] - ["$." comonad]]] + ["$[0]" equivalence] + ["$[0]" functor] + ["$[0]" comonad]]] [control pipe - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] - ["." //] + ["[0]" //] [\\library - ["." / {"+" [Zipper]} + ["[0]" / {"+" [Zipper]} ["tree" //]]]) (def: move @@ -159,8 +159,8 @@ [[size sample] (//.tree random.nat) expected random.nat dummy (random.only (|>> (n.= expected) not) random.nat) - .let [(^open "tree\.") (tree.equivalence n.equivalence) - (^open "list\.") (list.equivalence n.equivalence)]] + .let [(^open "tree\[0]") (tree.equivalence n.equivalence) + (^open "list\[0]") (list.equivalence n.equivalence)]] ($_ _.and (_.for [/.equivalence] ($equivalence.spec (/.equivalence n.equivalence) (\ ! each (|>> product.right /.zipper) (//.tree random.nat)))) diff --git a/stdlib/source/test/lux/data/color.lux b/stdlib/source/test/lux/data/color.lux index 0628543f6..5069ab31f 100644 --- a/stdlib/source/test/lux/data/color.lux +++ b/stdlib/source/test/lux/data/color.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid]]] [data [collection - ["." list]]] + ["[0]" list]]] [macro - ["." template]] - ["." math - ["." random {"+" [Random]}] + ["[0]" template]] + ["[0]" math + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." int] + ["[0]" int] ["f" frac] ["r" rev]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Color) @@ -195,7 +195,7 @@ (..encoding expected) (_.cover [/.complement] (let [~expected (/.complement expected) - (^open "/\.") /.equivalence] + (^open "/\[0]") /.equivalence] (and (not (/\= expected ~expected)) (/\= expected (/.complement ~expected))))) (_.cover [/.black /.white] diff --git a/stdlib/source/test/lux/data/color/named.lux b/stdlib/source/test/lux/data/color/named.lux index c907a5cae..38b2b730f 100644 --- a/stdlib/source/test/lux/data/color/named.lux +++ b/stdlib/source/test/lux/data/color/named.lux @@ -6,17 +6,17 @@ [monad {"+" [do]}]] [data [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / - ["/#" //]]]) + ["[0]" / + ["/[1]" //]]]) (with_expansions [<colors> (as_is [letter/a [/.alice_blue diff --git a/stdlib/source/test/lux/data/format/binary.lux b/stdlib/source/test/lux/data/format/binary.lux index 6b0242605..f2ace808f 100644 --- a/stdlib/source/test/lux/data/format/binary.lux +++ b/stdlib/source/test/lux/data/format/binary.lux @@ -6,13 +6,13 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}] [\\specification - ["$." monoid]]] + ["$[0]" monoid]]] [data - ["." binary ("#\." equivalence)]] + ["[0]" binary ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) (implementation: equivalence (Equivalence /.Specification) diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 6f9722350..82faaba7f 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -2,34 +2,34 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" codec]]] [control - ["." try ("#\." functor)]] + ["[0]" try ("[1]\[0]" functor)]] [data - ["." product] - ["." bit] - ["." text + ["[0]" product] + ["[0]" bit] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." row] - ["." dictionary] - ["." set] - ["." list ("#\." functor)]]] + ["[0]" row] + ["[0]" dictionary] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." frac]]] - ["." macro - ["." syntax {"+" [syntax:]}] - ["." code]]]] + ["[0]" frac]]] + ["[0]" macro + ["[0]" syntax {"+" [syntax:]}] + ["[0]" code]]]] [\\library - ["." / {"+" [JSON]} ("\." equivalence)]]) + ["[0]" / {"+" [JSON]} ("\[0]" equivalence)]]) (def: .public random (Random /.JSON) diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 5c0fe2659..d595955b1 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -5,36 +5,36 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try] - ["." exception] + ["[0]" maybe] + ["[0]" try] + ["[0]" exception] ["<>" parser ["<b>" binary]]] [data - ["." product] - ["." binary ("#\." equivalence monoid)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" binary ("[1]\[0]" equivalence monoid)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8]] - ["." unicode "_" - ["#" set] - ["#/." block]]] + ["[0]" utf8]] + ["[0]" unicode "_" + ["[1]" set] + ["[1]/[0]" block]]] [collection - ["." row] - ["." list ("#\." mix)]] - ["." format "_" - ["#" binary]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" mix)]] + ["[0]" format "_" + ["[1]" binary]]] [time - ["." instant {"+" [Instant]}] - ["." duration]] + ["[0]" instant {"+" [Instant]}] + ["[0]" duration]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: path Test diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index b81ea46ff..27f2e76a5 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -5,27 +5,27 @@ [abstract [monad {"+" [Monad do]}] [\\specification - ["$." equivalence] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" codec]]] [control pipe - ["." maybe] - ["." try] + ["[0]" maybe] + ["[0]" try] ["p" parser ["</>" xml]]] [data - ["." name] - ["." text ("#\." equivalence) + ["[0]" name] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." dictionary] - ["." list ("#\." functor)]]] + ["[0]" dictionary] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." / {"+" [XML]}]]) + ["[0]" / {"+" [XML]}]]) (def: char_range Text diff --git a/stdlib/source/test/lux/data/identity.lux b/stdlib/source/test/lux/data/identity.lux index 39b385da3..584f7f5e0 100644 --- a/stdlib/source/test/lux/data/identity.lux +++ b/stdlib/source/test/lux/data/identity.lux @@ -5,12 +5,12 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad] - ["$." comonad]]]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad] + ["$[0]" comonad]]]]] [\\library - ["." / {"+" [Identity]}]]) + ["[0]" / {"+" [Identity]}]]) (def: injection (Injection Identity) diff --git a/stdlib/source/test/lux/data/name.lux b/stdlib/source/test/lux/data/name.lux index b772c8e5d..ca5201761 100644 --- a/stdlib/source/test/lux/data/name.lux +++ b/stdlib/source/test/lux/data/name.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" codec]]] [control pipe] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (random module_size short_size) (-> Nat Nat (Random Name)) @@ -49,7 +49,7 @@ ($order.spec /.order (..random sizeM1 sizeS1))) (_.for [/.codec] (_.and ($codec.spec /.equivalence /.codec (..random sizeM1 sizeS1)) - (let [(^open "/\.") /.codec] + (let [(^open "/\[0]") /.codec] (_.test "Encoding an name without a module component results in text equal to the short of the name." (if (text.empty? module1) (text\= short1 (/\encoded name1)) @@ -59,7 +59,7 @@ (and (same? module1 (/.module name1)) (same? short1 (/.short name1)))) (_.for [.name_of] - (let [(^open "/\.") /.equivalence] + (let [(^open "/\[0]") /.equivalence] ($_ _.and (_.test "Can obtain Name from identifier." (and (/\= [.prelude_module "yolo"] (.name_of .yolo)) diff --git a/stdlib/source/test/lux/data/product.lux b/stdlib/source/test/lux/data/product.lux index 636ac785a..38b0dad48 100644 --- a/stdlib/source/test/lux/data/product.lux +++ b/stdlib/source/test/lux/data/product.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/data/sum.lux b/stdlib/source/test/lux/data/sum.lux index d0be3fd0e..c0fae2333 100644 --- a/stdlib/source/test/lux/data/sum.lux +++ b/stdlib/source/test/lux/data/sum.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control pipe] [data - ["." text] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux index b5d8b740e..ea5bfce13 100644 --- a/stdlib/source/test/lux/data/text.lux +++ b/stdlib/source/test/lux/data/text.lux @@ -5,31 +5,31 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" monoid]]] [control pipe - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] - ["." / "_" - ["#." buffer] - ["#." encoding] - ["#." format] - ["#." regex] - ["#." escape] - ["#." unicode "_" - ["#" set]]] + ["[0]" / "_" + ["[1][0]" buffer] + ["[1][0]" encoding] + ["[1][0]" format] + ["[1][0]" regex] + ["[1][0]" escape] + ["[1][0]" unicode "_" + ["[1]" set]]] [\\library - ["." /]]) + ["[0]" /]]) (def: bounded_size (random.Random Nat) @@ -286,7 +286,7 @@ sampleR (random.unicode sizeR) middle (random.unicode 1) .let [sample (/.together (list sampleL sampleR)) - (^open "/\.") /.equivalence]] + (^open "/\[0]") /.equivalence]] ($_ _.and (_.cover [/.split_at] (|> (/.split_at sizeL sample) @@ -325,7 +325,7 @@ parts (random.list sizeL part_gen) .let [sample1 (/.together (list.interposed sep1 parts)) sample2 (/.together (list.interposed sep2 parts)) - (^open "/\.") /.equivalence]] + (^open "/\[0]") /.equivalence]] (_.cover [/.replaced] (/\= sample2 (/.replaced sep1 sep2 sample1)))) diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux index ad98c2f75..72a9c7912 100644 --- a/stdlib/source/test/lux/data/text/buffer.lux +++ b/stdlib/source/test/lux/data/text/buffer.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: part (Random Text) diff --git a/stdlib/source/test/lux/data/text/encoding.lux b/stdlib/source/test/lux/data/text/encoding.lux index 927375cb3..fab8f3c06 100644 --- a/stdlib/source/test/lux/data/text/encoding.lux +++ b/stdlib/source/test/lux/data/text/encoding.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." codec]]] + ["$[0]" codec]]] [control - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list ("#\." mix)] - ["." set]]] + ["[0]" list ("[1]\[0]" mix)] + ["[0]" set]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]] - ["." / "_" - ["#." utf8]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" utf8]]) (with_expansions [<encodings> (as_is [all/a [/.ascii]] diff --git a/stdlib/source/test/lux/data/text/encoding/utf8.lux b/stdlib/source/test/lux/data/text/encoding/utf8.lux index b046a0dff..aa9b9f93b 100644 --- a/stdlib/source/test/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/test/lux/data/text/encoding/utf8.lux @@ -4,13 +4,13 @@ ["_" test {"+" [Test]}] [abstract [\\specification - ["$." codec]]] + ["$[0]" codec]]] [data - ["." text]] + ["[0]" text]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index 4f1b8ed75..43242b1cf 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -2,34 +2,34 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." debug] - ["." meta] + ["[0]" debug] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." bit ("#\." equivalence)] - ["." text {"+" [Char]} ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text {"+" [Char]} ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." set {"+" [Set]}]]] + ["[0]" set {"+" [Set]}]]] [macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number {"+" [hex]} ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// - ["." unicode "_" - ["#" set]]]]]) + ["[0]" unicode "_" + ["[1]" set]]]]]) (def: (range max min) (-> Char Char (Random Char)) diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux index e5f13ad69..141705e33 100644 --- a/stdlib/source/test/lux/data/text/format.lux +++ b/stdlib/source/test/lux/data/text/format.lux @@ -7,50 +7,50 @@ [equivalence {"+" [Equivalence]}] [functor [\\specification - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [control - ["." try]] + ["[0]" try]] [data - ["." text ("#\." equivalence)] - ["." bit] - ["." name] + ["[0]" text ("[1]\[0]" equivalence)] + ["[0]" bit] + ["[0]" name] [format - ["." xml] - ["." json]] + ["[0]" xml] + ["[0]" json]] [collection - ["." list ("#\." functor)]]] - ["." time - ["." day] - ["." month] - ["." instant] - ["." duration] - ["." date]] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" time + ["[0]" day] + ["[0]" month] + ["[0]" instant] + ["[0]" duration] + ["[0]" date]] [math - ["." random {"+" [Random]} ("#\." monad)] - ["." modulus] - ["." modular] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] + ["[0]" modulus] + ["[0]" modular] [number - ["." nat] - ["." int] - ["." rev] - ["." frac] - ["." ratio]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac] + ["[0]" ratio]]] [macro - ["." code]] + ["[0]" code]] [meta - ["." location]] - ["." type]]] - ["$." /// "_" + ["[0]" location]] + ["[0]" type]]] + ["$[0]" /// "_" [format - ["#." xml] - ["#." json]] - ["#." name] + ["[1][0]" xml] + ["[1][0]" json]] + ["[1][0]" name] [// - ["#." type] + ["[1][0]" type] [macro - ["#." code]]]] + ["[1][0]" code]]]] [\\library - ["." /]]) + ["[0]" /]]) (implementation: (equivalence example) (All (_ a) (-> a (Equivalence (/.Format a)))) diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index 26ce416ff..b77909f5a 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -6,21 +6,21 @@ [monad {"+" [do]}]] [control pipe - ["." try] + ["[0]" try] [parser - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number {"+" [hex]}] - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (should_pass regex input) (-> (Parser Text) Text Bit) diff --git a/stdlib/source/test/lux/data/text/unicode/block.lux b/stdlib/source/test/lux/data/text/unicode/block.lux index d127651e7..e0325be7b 100644 --- a/stdlib/source/test/lux/data/text/unicode/block.lux +++ b/stdlib/source/test/lux/data/text/unicode/block.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid]]] [data - ["." text] + ["[0]" text] [collection - ["." set] - ["." list]]] + ["[0]" set] + ["[0]" list]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number {"+" [hex]} ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Block) diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux index ef5b66720..ae3fbed65 100644 --- a/stdlib/source/test/lux/data/text/unicode/set.lux +++ b/stdlib/source/test/lux/data/text/unicode/set.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [data - ["." product] - ["." bit ("#\." equivalence)] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." set ("#\." equivalence)]]] + ["[0]" set ("[1]\[0]" equivalence)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] - ["." / "_" - ["/#" // "_" - ["#." block]]] + ["[0]" / "_" + ["/[1]" // "_" + ["[1][0]" block]]] [\\library - ["." / + ["[0]" / [// - ["." block]]]]) + ["[0]" block]]]]) (def: .public random (Random /.Set) diff --git a/stdlib/source/test/lux/debug.lux b/stdlib/source/test/lux/debug.lux index a8ecab6c1..5eb6e8e69 100644 --- a/stdlib/source/test/lux/debug.lux +++ b/stdlib/source/test/lux/debug.lux @@ -6,23 +6,23 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] - ["." exception] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor)]] + ["[0]" list ("[1]\[0]" functor)]] [format [json {"+" [JSON]}] [xml {"+" [XML]}]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number [ratio {"+" [Ratio]}]]] [time {"+" [Time]} @@ -32,21 +32,21 @@ [month {"+" [Month]}] [day {"+" [Day]}]]]] [\\library - ["." /]] - ["$." // "_" - ["#." type] + ["[0]" /]] + ["$[0]" // "_" + ["[1][0]" type] [data - ["#." name] + ["[1][0]" name] [format - ["#." json] - ["#." xml]]] + ["[1][0]" json] + ["[1][0]" xml]]] [macro - ["#." code]] + ["[1][0]" code]] [math [number - ["#." ratio]]] + ["[1][0]" ratio]]] [meta - ["#." location]]]) + ["[1][0]" location]]]) (def: can_represent_simple_types (Random Bit) diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux index 9a266e2d7..0fd8ffff1 100644 --- a/stdlib/source/test/lux/documentation.lux +++ b/stdlib/source/test/lux/documentation.lux @@ -2,23 +2,23 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format]] [format ["md" markdown]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." template] - ["." code]]]] + ["[0]" template] + ["[0]" code]]]] [\\library - ["." /]]) + ["[0]" /]]) (syntax: (macro_error [macro <code>.any]) (function (_ compiler) diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux index 3421ba12e..983ac2c3d 100644 --- a/stdlib/source/test/lux/extension.lux +++ b/stdlib/source/test/lux/extension.lux @@ -1,48 +1,48 @@ (.module: [library [lux "*" - ["." debug] + ["[0]" debug] ["@" target - ["." jvm] - ["." js] - ["." python] - ["." lua] - ["." ruby] - ["." php] - ["." scheme]] + ["[0]" jvm] + ["[0]" js] + ["[0]" python] + ["[0]" lua] + ["[0]" ruby] + ["[0]" php] + ["[0]" scheme]] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code] - ["<.>" analysis] - ["<.>" synthesis]]] + ["<[0]>" code] + ["<[0]>" analysis] + ["<[0]>" synthesis]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." row] - ["." list ("#\." functor)]]] + ["[0]" row] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [tool [compiler - ["." phase] + ["[0]" phase] [language [lux - ["." analysis] - ["." synthesis] - ["." directive] + ["[0]" analysis] + ["[0]" synthesis] + ["[0]" directive] [phase [analysis - ["." type]]]]]]] + ["[0]" type]]]]]]] ["_" test {"+" [Test]}]]] [\\library - ["." / {"+" [analysis: synthesis: generation: directive:]}]]) + ["[0]" / {"+" [analysis: synthesis: generation: directive:]}]]) (def: my_analysis "my analysis") (def: my_synthesis "my synthesis") diff --git a/stdlib/source/test/lux/ffi.js.lux b/stdlib/source/test/lux/ffi.js.lux index e193e6df8..15b278176 100644 --- a/stdlib/source/test/lux/ffi.js.lux +++ b/stdlib/source/test/lux/ffi.js.lux @@ -5,40 +5,40 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." frac]]]]] + ["[0]" nat] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: Uint8Array) ... On Nashorn (/.import: java/lang/String - ["#::." + ["[1]::[0]" (new [Uint8Array /.String]) (getBytes [/.String] Uint8Array)]) ... On Node (/.import: Buffer - ["#::." + ["[1]::[0]" ("static" from [/.String /.String] Buffer) (toString [/.String] /.String)]) ... On the browser (/.import: TextEncoder - ["#::." + ["[1]::[0]" (new [/.String]) (encode [/.String] Uint8Array)]) (/.import: TextDecoder - ["#::." + ["[1]::[0]" (new [/.String]) (decode [Uint8Array] /.String)]) diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux index 5a16902a7..606bd8a23 100644 --- a/stdlib/source/test/lux/ffi.jvm.lux +++ b/stdlib/source/test/lux/ffi.jvm.lux @@ -2,34 +2,34 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." type ("#\." equivalence)] - ["." meta] + ["[0]" type ("[1]\[0]" equivalence)] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." array {"+" [Array]}]]] - ["." macro + ["[0]" array {"+" [Array]}]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] + ["[0]" code] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["i" int ("#\." equivalence)] - ["f" frac ("#\." equivalence)]]]]] + ["i" int ("[1]\[0]" equivalence)] + ["f" frac ("[1]\[0]" equivalence)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: java/lang/Boolean) (/.import: java/lang/Long) @@ -39,7 +39,7 @@ (/.import: java/lang/Object) (/.import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getName [] java/lang/String)]) (template [<name> <type> <conversion> <lux> <=>] @@ -227,35 +227,35 @@ ([] actual0 [] java/lang/Long)) (/.import: test/TestInterface0 - ["#::." + ["[1]::[0]" (actual0 [] java/lang/Long)]) (/.interface: test/TestInterface1 ([] actual1 [java/lang/Boolean] java/lang/Long "throws" [java/lang/Throwable])) (/.import: test/TestInterface1 - ["#::." + ["[1]::[0]" (actual1 [java/lang/Boolean] "try" java/lang/Long)]) (/.interface: test/TestInterface2 ([a] actual2 [a] a)) (/.import: test/TestInterface2 - ["#::." + ["[1]::[0]" ([a] actual2 [a] a)]) (/.interface: (test/TestInterface3 a) ([] actual3 [] a)) (/.import: (test/TestInterface3 a) - ["#::." + ["[1]::[0]" (actual3 [] a)]) (/.interface: test/TestInterface4 ([] actual4 [long long long] long)) (/.import: test/TestInterface4 - ["#::." + ["[1]::[0]" (actual4 [long long long] long)]) (def: for_interface @@ -351,7 +351,7 @@ ::value)) (/.import: test/TestClass0 - ["#::." + ["[1]::[0]" (new [java/lang/Long])]) (/.class: "final" test/TestClass1 [test/TestInterface1] @@ -367,7 +367,7 @@ ::value))) (/.import: test/TestClass1 - ["#::." + ["[1]::[0]" (new [java/lang/Long])]) (/.class: "final" test/TestClass2 [test/TestInterface2] @@ -381,7 +381,7 @@ input)) (/.import: test/TestClass2 - ["#::." + ["[1]::[0]" (new [])]) (/.class: "final" (test/TestClass3 a) [(test/TestInterface3 a)] @@ -397,7 +397,7 @@ ::value)) (/.import: (test/TestClass3 a) - ["#::." + ["[1]::[0]" (new [a])]) (/.class: "final" test/TestClass4 [] @@ -409,7 +409,7 @@ value)) (/.import: test/TestClass4 - ["#::." + ["[1]::[0]" (new []) (actual4 [java/lang/Long] java/lang/Long)]) @@ -423,7 +423,7 @@ value)) (/.import: test/TestClass5 - ["#::." + ["[1]::[0]" ("static" actual5 [java/lang/Long] java/lang/Long)]) (/.class: "abstract" test/TestClass6 [] @@ -435,7 +435,7 @@ java/lang/Long)) (/.import: test/TestClass6 - ["#::." + ["[1]::[0]" (actual6 [java/lang/Long] java/lang/Long)]) (/.class: "final" test/TestClass7 test/TestClass6 [] @@ -449,7 +449,7 @@ input)) (/.import: test/TestClass7 - ["#::." + ["[1]::[0]" (new [])]) (/.class: "final" test/TestClass8 [test/TestInterface4] @@ -465,7 +465,7 @@ (:as Int actual_right))))) (/.import: test/TestClass8 - ["#::." + ["[1]::[0]" (new [])]) (/.class: "final" (test/TestClass9 a) [] @@ -481,7 +481,7 @@ ::value9)) (/.import: (test/TestClass9 a) - ["#::." + ["[1]::[0]" (new [a]) (set_actual9 [a] void) (get_actual9 [] a)]) @@ -597,10 +597,10 @@ (not (expands? (/.import: <class>))))) (_.cover [/.class_name_cannot_be_a_type_variable] (and (not (expands? (/.import: (java/lang/Double a) - ["#::." + ["[1]::[0]" (invalid [] (a java/lang/String))]))) (not (expands? (/.import: java/lang/Double - ["#::." + ["[1]::[0]" ([a] invalid [] (a java/lang/String))]))))) )) diff --git a/stdlib/source/test/lux/ffi.lua.lux b/stdlib/source/test/lux/ffi.lua.lux index de067a372..96e4b7ec8 100644 --- a/stdlib/source/test/lux/ffi.lua.lux +++ b/stdlib/source/test/lux/ffi.lua.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [control - ["." io]] + ["[0]" io]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: (os/getenv [/.String] "io" "?" /.String)) diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux index fe1fdef65..56f97a962 100644 --- a/stdlib/source/test/lux/ffi.old.lux +++ b/stdlib/source/test/lux/ffi.old.lux @@ -8,29 +8,29 @@ [control [pipe {"+" [case>]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int] ["f" frac]]] - ["." type ("#\." equivalence)]]] + ["[0]" type ("[1]\[0]" equivalence)]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: java/lang/Object) (/.import: java/lang/String) (/.import: java/lang/Exception - ["#::." + ["[1]::[0]" (new [java/lang/String])]) (/.import: (java/lang/Class a) - ["#::." + ["[1]::[0]" (getName [] java/lang/String)]) (/.class: "final" (TestClass A) [] @@ -51,7 +51,7 @@ (:= ::counter (i.- ::increase ::counter)))) (/.import: (test/lux/ffi/TestClass a) - ["#::." + ["[1]::[0]" (new [java/lang/Long java/lang/Long]) (currentC [] java/lang/Long) (upC [] void) @@ -63,7 +63,7 @@ ([] down [] test/lux/ffi/TestInterface "throws" [java/lang/Exception])) (/.import: test/lux/ffi/TestInterface - ["#::." + ["[1]::[0]" (current [] java/lang/Long) (up [] java/lang/Long) (down [] java/lang/Long)]) diff --git a/stdlib/source/test/lux/ffi.php.lux b/stdlib/source/test/lux/ffi.php.lux index 4db2d70c0..a63bdcfea 100644 --- a/stdlib/source/test/lux/ffi.php.lux +++ b/stdlib/source/test/lux/ffi.php.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." frac]]]]] + ["[0]" nat] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/ffi.py.lux b/stdlib/source/test/lux/ffi.py.lux index 024220863..33463f0dc 100644 --- a/stdlib/source/test/lux/ffi.py.lux +++ b/stdlib/source/test/lux/ffi.py.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}]] [math - ["." random] + ["[0]" random] [number ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: os - ["#::." + ["[1]::[0]" ("static" R_OK /.Integer) ("static" W_OK /.Integer)]) diff --git a/stdlib/source/test/lux/ffi.rb.lux b/stdlib/source/test/lux/ffi.rb.lux index 82423fe92..166733346 100644 --- a/stdlib/source/test/lux/ffi.rb.lux +++ b/stdlib/source/test/lux/ffi.rb.lux @@ -5,12 +5,12 @@ [abstract [monad {"+" [do]}]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.import: File - ["#::." + ["[1]::[0]" ("static" SEPARATOR /.String)]) (def: .public test diff --git a/stdlib/source/test/lux/ffi.scm.lux b/stdlib/source/test/lux/ffi.scm.lux index 4db2d70c0..a63bdcfea 100644 --- a/stdlib/source/test/lux/ffi.scm.lux +++ b/stdlib/source/test/lux/ffi.scm.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." text ("#\." equivalence)]] + ["[0]" text ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." frac]]]]] + ["[0]" nat] + ["[0]" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/locale.lux b/stdlib/source/test/lux/locale.lux index 3066230f4..ed9bb4970 100644 --- a/stdlib/source/test/lux/locale.lux +++ b/stdlib/source/test/lux/locale.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash]]] + ["$[0]" equivalence] + ["$[0]" hash]]] [math - ["." random {"+" [Random]} ("#\." monad)]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]] [data - ["." text ("#\." equivalence) - ["." encoding {"+" [Encoding]}]] + ["[0]" text ("[1]\[0]" equivalence) + ["[0]" encoding {"+" [Encoding]}]] [collection - ["." list]]]]] - ["." / "_" - ["#." language] - ["#." territory]] + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" language] + ["[1][0]" territory]] [\\library - ["." / - ["." language {"+" [Language]}] - ["." territory {"+" [Territory]}]]]) + ["[0]" / + ["[0]" language {"+" [Language]}] + ["[0]" territory {"+" [Territory]}]]]) (def: random_language (Random Language) diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index 4abf74207..ba19738dc 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -6,22 +6,22 @@ [monad {"+" [do]}] [hash {"+" [Hash]}] [\\specification - ["$." hash]]] + ["$[0]" hash]]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text] + ["[0]" text] [collection - ["." set {"+" [Set]}] - ["." list ("#\." functor mix)]]] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (type: Bundle (Record diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux index 50b282e10..825d54f7e 100644 --- a/stdlib/source/test/lux/locale/territory.lux +++ b/stdlib/source/test/lux/locale/territory.lux @@ -6,22 +6,22 @@ [monad {"+" [do]}] [hash {"+" [Hash]}] [\\specification - ["$." hash]]] + ["$[0]" hash]]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." text] + ["[0]" text] [collection - ["." set {"+" [Set]}] - ["." list ("#\." functor mix)]]] + ["[0]" set {"+" [Set]}] + ["[0]" list ("[1]\[0]" functor mix)]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (type: Bundle (Record diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux index 96d1c2b18..f465b34a6 100644 --- a/stdlib/source/test/lux/macro.lux +++ b/stdlib/source/test/lux/macro.lux @@ -5,32 +5,32 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." bit ("#\." equivalence)] - ["." name] - ["." text + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" name] + ["[0]" text ["%" format {"+" [format]}]] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat]]] - ["." meta - ["." location]]]] + ["[0]" nat]]] + ["[0]" meta + ["[0]" location]]]] [\\library - ["." / + ["[0]" / [syntax {"+" [syntax:]}] - ["." code ("#\." equivalence)] - ["." template]]] - ["." / "_" - ["#." code] - ["#." local] - ["#." syntax] - ["#." template]]) + ["[0]" code ("[1]\[0]" equivalence)] + ["[0]" template]]] + ["[0]" / "_" + ["[1][0]" code] + ["[1][0]" local] + ["[1][0]" syntax] + ["[1][0]" template]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index 76af72b41..69a2f5ab0 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -5,27 +5,27 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." text] + ["[0]" product] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]] [meta - ["." location]] + ["[0]" location]] [tool [compiler [language [lux - ["." syntax]]]]]]] + ["[0]" syntax]]]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: random_text (Random Text) diff --git a/stdlib/source/test/lux/macro/local.lux b/stdlib/source/test/lux/macro/local.lux index 305256e5b..1016ccdef 100644 --- a/stdlib/source/test/lux/macro/local.lux +++ b/stdlib/source/test/lux/macro/local.lux @@ -2,30 +2,30 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [data [text ["%" format]] [collection - ["." list] + ["[0]" list] [dictionary - ["." plist]]]] - ["." macro + ["[0]" plist]]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (syntax: (macro_error [macro <code>.any]) (function (_ compiler) diff --git a/stdlib/source/test/lux/macro/syntax.lux b/stdlib/source/test/lux/macro/syntax.lux index 968ea1001..236a6106f 100644 --- a/stdlib/source/test/lux/macro/syntax.lux +++ b/stdlib/source/test/lux/macro/syntax.lux @@ -6,22 +6,22 @@ [monad {"+" [do]}]] [control [parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]] - ["." / "_" - ["#." annotations] - ["#." check] - ["#." declaration] - ["#." definition] - ["#." export] - ["#." input] - ["#." type "_" - ["#/." variable]]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" annotations] + ["[1][0]" check] + ["[1][0]" declaration] + ["[1][0]" definition] + ["[1][0]" export] + ["[1][0]" input] + ["[1][0]" type "_" + ["[1]/[0]" variable]]]) (/.syntax: (+/3 [a <code>.any b <code>.any diff --git a/stdlib/source/test/lux/macro/syntax/annotations.lux b/stdlib/source/test/lux/macro/syntax/annotations.lux index 34293515e..0fe02da13 100644 --- a/stdlib/source/test/lux/macro/syntax/annotations.lux +++ b/stdlib/source/test/lux/macro/syntax/annotations.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] + ["[0]" try] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]] - ["$." /// "_" - ["#." code]]) + ["[0]" /]] + ["$[0]" /// "_" + ["[1][0]" code]]) (def: .public random (Random /.Annotations) diff --git a/stdlib/source/test/lux/macro/syntax/check.lux b/stdlib/source/test/lux/macro/syntax/check.lux index 3fc41678a..8ea3f25e5 100644 --- a/stdlib/source/test/lux/macro/syntax/check.lux +++ b/stdlib/source/test/lux/macro/syntax/check.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] + ["[0]" try] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [macro - ["." code ("#\." equivalence)]]]] + ["[0]" code ("[1]\[0]" equivalence)]]]] [\\library - ["." /]] - ["$." /// "_" - ["#." code]]) + ["[0]" /]] + ["$[0]" /// "_" + ["[1][0]" code]]) (def: .public random (Random /.Check) diff --git a/stdlib/source/test/lux/macro/syntax/declaration.lux b/stdlib/source/test/lux/macro/syntax/declaration.lux index 81d2529a5..e87028628 100644 --- a/stdlib/source/test/lux/macro/syntax/declaration.lux +++ b/stdlib/source/test/lux/macro/syntax/declaration.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] + ["[0]" try] [parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Declaration) diff --git a/stdlib/source/test/lux/macro/syntax/definition.lux b/stdlib/source/test/lux/macro/syntax/definition.lux index f1f85adbe..d3a480dc2 100644 --- a/stdlib/source/test/lux/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/macro/syntax/definition.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] ["<>" parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [meta - ["." location]]]] + ["[0]" location]]]] [\\library - ["." /]] - ["$."// "_" - ["#." check] - ["#." annotations] - ["#/" // "_" - ["#." code]]]) + ["[0]" /]] + ["$[0]"// "_" + ["[1][0]" check] + ["[1][0]" annotations] + ["[1]/" // "_" + ["[1][0]" code]]]) (def: .public random (Random /.Definition) diff --git a/stdlib/source/test/lux/macro/syntax/export.lux b/stdlib/source/test/lux/macro/syntax/export.lux index 8b7c80c9a..17396ad9c 100644 --- a/stdlib/source/test/lux/macro/syntax/export.lux +++ b/stdlib/source/test/lux/macro/syntax/export.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe] - ["." try ("#\." functor)] + ["[0]" maybe] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" code]]] + ["<[0]>" code]]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: export (Random [(Maybe Code) Nat]) diff --git a/stdlib/source/test/lux/macro/syntax/input.lux b/stdlib/source/test/lux/macro/syntax/input.lux index 20cca7398..0f4060cdc 100644 --- a/stdlib/source/test/lux/macro/syntax/input.lux +++ b/stdlib/source/test/lux/macro/syntax/input.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try] + ["[0]" try] [parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]] - ["$." /// "_" - ["#." code]]) + ["[0]" /]] + ["$[0]" /// "_" + ["[1][0]" code]]) (def: .public random (Random /.Input) diff --git a/stdlib/source/test/lux/macro/syntax/type/variable.lux b/stdlib/source/test/lux/macro/syntax/type/variable.lux index 0a7b1586f..f08398725 100644 --- a/stdlib/source/test/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/test/lux/macro/syntax/type/variable.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [parser - ["<.>" code]]] + ["<[0]>" code]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Variable) diff --git a/stdlib/source/test/lux/macro/template.lux b/stdlib/source/test/lux/macro/template.lux index e86b8a702..8a79d62a5 100644 --- a/stdlib/source/test/lux/macro/template.lux +++ b/stdlib/source/test/lux/macro/template.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data [collection - ["." list]]] - ["." macro + ["[0]" list]]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat]]]]] + ["[0]" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.let [(!pow/2 <scalar>) [(nat.* <scalar> <scalar>)]] diff --git a/stdlib/source/test/lux/math.lux b/stdlib/source/test/lux/math.lux index b83d89d4e..02eac6b3e 100644 --- a/stdlib/source/test/lux/math.lux +++ b/stdlib/source/test/lux/math.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int] ["f" frac]]]]] [\\library - ["." /]] - ["." / "_" - ["#." infix] - ["#." modulus] - ["#." modular] - ["#." number] - ["#." logic "_" - ["#/." continuous] - ["#/." fuzzy]]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" infix] + ["[1][0]" modulus] + ["[1][0]" modular] + ["[1][0]" number] + ["[1][0]" logic "_" + ["[1]/[0]" continuous] + ["[1]/[0]" fuzzy]]]) (def: margin_of_error +0.0000001) diff --git a/stdlib/source/test/lux/math/infix.lux b/stdlib/source/test/lux/math/infix.lux index a0c7b0088..158135874 100644 --- a/stdlib/source/test/lux/math/infix.lux +++ b/stdlib/source/test/lux/math/infix.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["f" frac]]]]] [\\library - ["." / - ["." //]]]) + ["[0]" / + ["[0]" //]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/math/logic/continuous.lux b/stdlib/source/test/lux/math/logic/continuous.lux index 667039e0e..e741a4411 100644 --- a/stdlib/source/test/lux/math/logic/continuous.lux +++ b/stdlib/source/test/lux/math/logic/continuous.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." monoid]]] + ["$[0]" monoid]]] [math - ["." random] + ["[0]" random] [number ["r" rev]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/math/logic/fuzzy.lux b/stdlib/source/test/lux/math/logic/fuzzy.lux index 1fbf47636..d7e6d1000 100644 --- a/stdlib/source/test/lux/math/logic/fuzzy.lux +++ b/stdlib/source/test/lux/math/logic/fuzzy.lux @@ -7,21 +7,21 @@ [monad {"+" [do]}] [\\specification [functor - ["$." contravariant]]]] + ["$[0]" contravariant]]]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["r" rev]]]]] [\\library - ["." / {"+" [Fuzzy]} - ["/#" // "_" - ["#" continuous]]]]) + ["[0]" / {"+" [Fuzzy]} + ["/[1]" // "_" + ["[1]" continuous]]]]) (def: trivial Test diff --git a/stdlib/source/test/lux/math/modular.lux b/stdlib/source/test/lux/math/modular.lux index db6e4cbc2..0cb8a6456 100644 --- a/stdlib/source/test/lux/math/modular.lux +++ b/stdlib/source/test/lux/math/modular.lux @@ -2,31 +2,31 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence] - ["$." order] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" monoid] + ["$[0]" codec]]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." product] - ["." bit ("#\." equivalence)]] + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["i" int]]]]] - ["$." // "_" - ["#" modulus]] + ["$[0]" // "_" + ["[1]" modulus]] [\\library - ["." / - ["/#" // "_" - ["#" modulus]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1]" modulus]]]]) (def: .public (random modulus) (All (_ %) (-> (//.Modulus %) (Random (/.Mod %)))) diff --git a/stdlib/source/test/lux/math/modulus.lux b/stdlib/source/test/lux/math/modulus.lux index dfd4c25bd..74a61ff8c 100644 --- a/stdlib/source/test/lux/math/modulus.lux +++ b/stdlib/source/test/lux/math/modulus.lux @@ -2,21 +2,21 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["i" int]]] [macro [syntax {"+" [syntax:]}] - ["." code]]]] + ["[0]" code]]]] [\\library - ["." /]]) + ["[0]" /]]) (syntax: (|divisor| []) (do meta.monad diff --git a/stdlib/source/test/lux/math/number.lux b/stdlib/source/test/lux/math/number.lux index 432b2c10e..861a8bfdb 100644 --- a/stdlib/source/test/lux/math/number.lux +++ b/stdlib/source/test/lux/math/number.lux @@ -3,26 +3,26 @@ [lux "*" ["_" test {"+" [Test]}] [control - ["." try]] + ["[0]" try]] [data - ["." text]]]] + ["[0]" text]]]] [\\library - ["." / + ["[0]" / ["n" nat] ["i" int] ["r" rev] ["f" frac]]] - ["." / "_" - ["#." i8] - ["#." i16] - ["#." i32] - ["#." i64] - ["#." nat] - ["#." int] - ["#." rev] - ["#." frac] - ["#." ratio] - ["#." complex]]) + ["[0]" / "_" + ["[1][0]" i8] + ["[1][0]" i16] + ["[1][0]" i32] + ["[1][0]" i64] + ["[1][0]" nat] + ["[1][0]" int] + ["[1][0]" rev] + ["[1][0]" frac] + ["[1][0]" ratio] + ["[1][0]" complex]]) (def: clean_commas (-> Text Text) diff --git a/stdlib/source/test/lux/math/number/complex.lux b/stdlib/source/test/lux/math/number/complex.lux index 94a903f79..9e002f43a 100644 --- a/stdlib/source/test/lux/math/number/complex.lux +++ b/stdlib/source/test/lux/math/number/complex.lux @@ -6,20 +6,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" codec]]] [data [collection - ["." list ("#\." functor)]]] - ["." math - ["." random {"+" [Random]}]]]] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" math + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// ["n" nat] ["f" frac] - ["." int]]]]) + ["[0]" int]]]]) ... This margin of error is necessary because floating-point arithmetic is not exact. (def: margin_of_error diff --git a/stdlib/source/test/lux/math/number/frac.lux b/stdlib/source/test/lux/math/number/frac.lux index baedf891a..df89b033a 100644 --- a/stdlib/source/test/lux/math/number/frac.lux +++ b/stdlib/source/test/lux/math/number/frac.lux @@ -3,26 +3,26 @@ [lux "*" ["_" test {"+" [Test]}] ["@" target] - ["." ffi] + ["[0]" ffi] [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" monoid] + ["$[0]" codec]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// "*" ["n" nat] ["i" int] ["r" rev] - ["." i64]]]]) + ["[0]" i64]]]]) (def: random (Random Frac) @@ -119,7 +119,7 @@ ))) (with_expansions [<jvm> (as_is (ffi.import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" doubleToRawLongBits [double] long) ("static" longBitsToDouble [long] double)]))] (for {@.old (as_is <jvm>) diff --git a/stdlib/source/test/lux/math/number/i16.lux b/stdlib/source/test/lux/math/number/i16.lux index 6f35f015c..bd767dcc5 100644 --- a/stdlib/source/test/lux/math/number/i16.lux +++ b/stdlib/source/test/lux/math/number/i16.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / - ["/#" // "_" + ["[0]" / + ["/[1]" // "_" ["i" int] - ["#." i64]]]]) + ["[1][0]" i64]]]]) (def: .public random (Random /.I16) diff --git a/stdlib/source/test/lux/math/number/i32.lux b/stdlib/source/test/lux/math/number/i32.lux index 0548c3c86..b9af4c673 100644 --- a/stdlib/source/test/lux/math/number/i32.lux +++ b/stdlib/source/test/lux/math/number/i32.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / - ["/#" // "_" + ["[0]" / + ["/[1]" // "_" ["i" int] - ["#." i64]]]]) + ["[1][0]" i64]]]]) (def: .public random (Random /.I32) diff --git a/stdlib/source/test/lux/math/number/i64.lux b/stdlib/source/test/lux/math/number/i64.lux index 3a32cdd3b..fd8d55789 100644 --- a/stdlib/source/test/lux/math/number/i64.lux +++ b/stdlib/source/test/lux/math/number/i64.lux @@ -3,17 +3,17 @@ [lux "*" ["_" test {"+" [Test]}] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." monoid]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" monoid]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / ("\." equivalence) + ["[0]" / ("\[0]" equivalence) [// {"+" [hex]} ["n" nat] ["i" int]]]]) diff --git a/stdlib/source/test/lux/math/number/i8.lux b/stdlib/source/test/lux/math/number/i8.lux index 8eb7517f1..f56137631 100644 --- a/stdlib/source/test/lux/math/number/i8.lux +++ b/stdlib/source/test/lux/math/number/i8.lux @@ -5,14 +5,14 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / - ["/#" // "_" + ["[0]" / + ["/[1]" // "_" ["i" int] - ["#." i64]]]]) + ["[1][0]" i64]]]]) (def: .public random (Random /.I8) diff --git a/stdlib/source/test/lux/math/number/int.lux b/stdlib/source/test/lux/math/number/int.lux index 3313c5c0a..6cb8f0bfc 100644 --- a/stdlib/source/test/lux/math/number/int.lux +++ b/stdlib/source/test/lux/math/number/int.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." enum] - ["$." interval] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" interval] + ["$[0]" monoid] + ["$[0]" codec]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// ["n" nat] ["f" frac] - ["." i64]]]]) + ["[0]" i64]]]]) (def: signature Test diff --git a/stdlib/source/test/lux/math/number/nat.lux b/stdlib/source/test/lux/math/number/nat.lux index 2084821f7..2acfa18f1 100644 --- a/stdlib/source/test/lux/math/number/nat.lux +++ b/stdlib/source/test/lux/math/number/nat.lux @@ -5,19 +5,19 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." enum] - ["$." interval] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" interval] + ["$[0]" monoid] + ["$[0]" codec]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." / + ["[0]" / [// ["f" frac]]]]) diff --git a/stdlib/source/test/lux/math/number/ratio.lux b/stdlib/source/test/lux/math/number/ratio.lux index d7510c97a..332345387 100644 --- a/stdlib/source/test/lux/math/number/ratio.lux +++ b/stdlib/source/test/lux/math/number/ratio.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" monoid] + ["$[0]" codec]]] [control - ["." maybe ("#\." functor)]] + ["[0]" maybe ("[1]\[0]" functor)]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// - ["n" nat ("#\." equivalence)]]]]) + ["n" nat ("[1]\[0]" equivalence)]]]]) (def: part (Random Nat) @@ -54,7 +54,7 @@ ($codec.spec /.equivalence /.codec ..random)) (do random.monad - [.let [(^open "\.") /.equivalence] + [.let [(^open "\[0]") /.equivalence] denom/0 ..part denom/1 ..part] (_.cover [/.ratio] diff --git a/stdlib/source/test/lux/math/number/rev.lux b/stdlib/source/test/lux/math/number/rev.lux index bb379d597..a15b3f3f5 100644 --- a/stdlib/source/test/lux/math/number/rev.lux +++ b/stdlib/source/test/lux/math/number/rev.lux @@ -5,23 +5,23 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." enum] - ["$." interval] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" interval] + ["$[0]" monoid] + ["$[0]" codec]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." / + ["[0]" / [// {"+" [hex]} ["n" nat] ["f" frac] - ["." i64 ("#\." hash)]]]]) + ["[0]" i64 ("[1]\[0]" hash)]]]]) (def: signature Test diff --git a/stdlib/source/test/lux/meta.lux b/stdlib/source/test/lux/meta.lux index 5dac54f18..eaa0ff4d6 100644 --- a/stdlib/source/test/lux/meta.lux +++ b/stdlib/source/test/lux/meta.lux @@ -2,37 +2,37 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract [equivalence {"+" [Equivalence]}] [monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control - ["." maybe] - ["." try {"+" [Try]} ("#\." functor)]] + ["[0]" maybe] + ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]] [data - ["." product] - ["." bit ("#\." equivalence)] - ["." name ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" name ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor monoid)] + ["[0]" set]]] [meta - ["." location]] + ["[0]" location]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]] - ["." / "_" - ["#." annotation] - ["#." location]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" annotation] + ["[1][0]" location]]) (template: (!expect <pattern> <value>) [(case <value> diff --git a/stdlib/source/test/lux/meta/annotation.lux b/stdlib/source/test/lux/meta/annotation.lux index 362fe1102..350d3656e 100644 --- a/stdlib/source/test/lux/meta/annotation.lux +++ b/stdlib/source/test/lux/meta/annotation.lux @@ -5,28 +5,28 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." product] - ["." bit] - ["." name ("#\." equivalence)] - ["." text] + ["[0]" product] + ["[0]" bit] + ["[0]" name ("[1]\[0]" equivalence)] + ["[0]" text] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat] - ["." int] - ["." rev] - ["." frac]]]]] + ["[0]" nat] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]]]]] [/// [macro - ["_." code]]] + ["_[0]" code]]] [\\library - ["." /]]) + ["[0]" /]]) (def: random_key (Random Name) diff --git a/stdlib/source/test/lux/meta/location.lux b/stdlib/source/test/lux/meta/location.lux index 729ae2ec3..a01518d3b 100644 --- a/stdlib/source/test/lux/meta/location.lux +++ b/stdlib/source/test/lux/meta/location.lux @@ -5,16 +5,16 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [data - ["." text]] + ["[0]" text]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]] - ["$." /// "_" + ["[0]" /]] + ["$[0]" /// "_" [macro - ["#." code]]]) + ["[1][0]" code]]]) (def: .public random (Random Location) diff --git a/stdlib/source/test/lux/program.lux b/stdlib/source/test/lux/program.lux index 3f813b6ce..6dc3667c2 100644 --- a/stdlib/source/test/lux/program.lux +++ b/stdlib/source/test/lux/program.lux @@ -5,21 +5,21 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." try] + ["[0]" io] + ["[0]" try] ["<>" parser - ["<.>" code] - ["<.>" cli]]] + ["<[0]>" code] + ["<[0]>" cli]]] [data - ["." text] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [macro [syntax {"+" [syntax:]}]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (syntax: (actual_program [actual_program (<| <code>.form (<>.after (<code>.text! "lux def program")) @@ -32,7 +32,7 @@ (do random.monad [inputs (random.list 5 (random.ascii/upper 5))] (_.cover [/.program:] - (let [(^open "list\.") (list.equivalence text.equivalence)] + (let [(^open "list\[0]") (list.equivalence text.equivalence)] (and (with_expansions [<program> (/.program: all_arguments (io.io all_arguments))] (let [outcome ((: (-> (List Text) (io.IO Any)) diff --git a/stdlib/source/test/lux/static.lux b/stdlib/source/test/lux/static.lux index 059cbebc6..cc63a2913 100644 --- a/stdlib/source/test/lux/static.lux +++ b/stdlib/source/test/lux/static.lux @@ -3,21 +3,21 @@ [lux "*" ["_" test {"+" [Test]}] ["@" target] - ["." meta] + ["[0]" meta] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [macro - ["." code]] + ["[0]" code]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int] ["r" rev] ["f" frac]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/target.lux b/stdlib/source/test/lux/target.lux index 2ff923b9e..b031ba476 100644 --- a/stdlib/source/test/lux/target.lux +++ b/stdlib/source/test/lux/target.lux @@ -3,15 +3,15 @@ [lux "*" ["_" test {"+" [Test]}] [data - ["." text] + ["[0]" text] [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (with_expansions [<targets> (as_is /.old /.js diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 82ae1e665..190c2f65e 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -1,58 +1,58 @@ (.module: [library [lux {"-" [Type Label type primitive int]} - ["." ffi {"+" [import:]}] + ["[0]" ffi {"+" [import:]}] ["@" target] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." function] - ["." io] - ["." maybe] - ["." try] + ["[0]" function] + ["[0]" io] + ["[0]" maybe] + ["[0]" try] [concurrency - ["." atom]]] + ["[0]" atom]]] [data - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] - ["." format "_" - ["#" binary]] + ["[0]" format "_" + ["[1]" binary]] [collection - ["." array] - ["." dictionary] - ["." row] - ["." set] - ["." list ("#\." functor)]]] + ["[0]" array] + ["[0]" dictionary] + ["[0]" row] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat] ["i" int] ["f" frac] - ["." i32 {"+" [I32]}] - ["." i64]]] + ["[0]" i32 {"+" [I32]}] + ["[0]" i64]]] ["_" test {"+" [Test]}]]] [\\library - ["." / "_" - ["#." loader {"+" [Library]}] - ["#." version] - ["#." modifier ("#\." monoid)] - ["#." field] - ["#." method {"+" [Method]}] - ["#." class] - ["#." attribute - ["#/." code]] - ["#." constant - ["#/." pool {"+" [Resource]}]] + ["[0]" / "_" + ["[1][0]" loader {"+" [Library]}] + ["[1][0]" version] + ["[1][0]" modifier ("[1]\[0]" monoid)] + ["[1][0]" field] + ["[1][0]" method {"+" [Method]}] + ["[1][0]" class] + ["[1][0]" attribute + ["[1]/[0]" code]] + ["[1][0]" constant + ["[1]/[0]" pool {"+" [Resource]}]] [encoding - ["#." name] - ["#." signed] - ["#." unsigned]] - ["#" bytecode {"+" [Label Bytecode]} - ["#." instruction]] - ["#." type {"+" [Type]} - ["." category {"+" [Value Object Class]}]]]]) + ["[1][0]" name] + ["[1][0]" signed] + ["[1][0]" unsigned]] + ["[1]" bytecode {"+" [Label Bytecode]} + ["[1][0]" instruction]] + ["[1][0]" type {"+" [Type]} + ["[0]" category {"+" [Value Object Class]}]]]]) (def: method_modifier ($_ /modifier\composite @@ -66,21 +66,21 @@ (import: java/lang/Long) (import: java/lang/Float) (import: java/lang/Double - ["#::." + ["[1]::[0]" ("static" compare [double double] int)]) (import: java/lang/Character) (import: java/lang/String) (import: java/lang/reflect/Method - ["#::." + ["[1]::[0]" (invoke [java/lang/Object [java/lang/Object]] "try" java/lang/Object)]) (import: (java/lang/Class c) - ["#::." + ["[1]::[0]" (getDeclaredMethod [java/lang/String [(java/lang/Class [? < java/lang/Object])]] java/lang/reflect/Method)]) (import: java/lang/Object - ["#::." + ["[1]::[0]" (getClass [] (java/lang/Class java/lang/Object)) (toString [] java/lang/String)]) diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux index f4f9477eb..60176aadc 100644 --- a/stdlib/source/test/lux/test.lux +++ b/stdlib/source/test/lux/test.lux @@ -4,22 +4,22 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." exception] + ["[0]" io] + ["[0]" exception] [concurrency - ["." async] - ["." atom {"+" [Atom]}]]] + ["[0]" async] + ["[0]" atom {"+" [Atom]}]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (verify expected_message/0 expected_message/1 successes failures [tally message]) (-> Text Text Nat Nat [/.Tally Text] Bit) diff --git a/stdlib/source/test/lux/time.lux b/stdlib/source/test/lux/time.lux index 70e3204e6..178818c3e 100644 --- a/stdlib/source/test/lux/time.lux +++ b/stdlib/source/test/lux/time.lux @@ -5,33 +5,33 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." enum] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" codec]]] [control [pipe {"+" [case>]}] - ["." try ("#\." functor)] - ["." exception] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [parser - ["<.>" text]]] + ["<[0]>" text]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] - ["." / "_" - ["#." date] - ["#." day] - ["#." duration] - ["#." instant] - ["#." month] - ["#." year]] + ["[0]" / "_" + ["[1][0]" date] + ["[1][0]" day] + ["[1][0]" duration] + ["[1][0]" instant] + ["[1][0]" month] + ["[1][0]" year]] [\\library - ["." / - ["." duration]]]) + ["[0]" / + ["[0]" duration]]]) (def: for_implementation Test diff --git a/stdlib/source/test/lux/time/date.lux b/stdlib/source/test/lux/time/date.lux index 3cf3750e7..5862b2ea5 100644 --- a/stdlib/source/test/lux/time/date.lux +++ b/stdlib/source/test/lux/time/date.lux @@ -5,25 +5,25 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." enum] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" codec]]] [control - ["." try ("#\." functor)] - ["." exception] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [parser - ["<.>" text]]] + ["<[0]>" text]]] [data [text ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/time/day.lux b/stdlib/source/test/lux/time/day.lux index eee8109ed..f1bcc932d 100644 --- a/stdlib/source/test/lux/time/day.lux +++ b/stdlib/source/test/lux/time/day.lux @@ -4,26 +4,26 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." enum] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" codec]]] [control - ["." try ("#\." functor)] - ["." exception]] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception]] [data [collection - ["." list] - ["." set]]] + ["[0]" list] + ["[0]" set]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public random (Random /.Day) diff --git a/stdlib/source/test/lux/time/duration.lux b/stdlib/source/test/lux/time/duration.lux index f0caba5e0..da6d73296 100644 --- a/stdlib/source/test/lux/time/duration.lux +++ b/stdlib/source/test/lux/time/duration.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." enum] - ["$." monoid] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" monoid] + ["$[0]" codec]]] [data - ["." bit ("#\." equivalence)]] + ["[0]" bit ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test @@ -41,7 +41,7 @@ (_.cover [/.of_millis /.millis] (|> duration /.millis /.of_millis (\ /.equivalence = duration)))) (do random.monad - [.let [(^open "\.") /.equivalence] + [.let [(^open "\[0]") /.equivalence] expected random.duration parameter random.duration] ($_ _.and @@ -59,12 +59,12 @@ (/.neutral? (/.inverse expected))))) )) (do random.monad - [.let [(^open "\.") /.equivalence] + [.let [(^open "\[0]") /.equivalence] factor random.nat] (_.cover [/.up /.down] (|> /.milli_second (/.up factor) (/.down factor) (\= /.milli_second)))) (do [! random.monad] - [.let [(^open "\.") /.order + [.let [(^open "\[0]") /.order positive (|> random.duration (random.only (|>> (\= /.empty) not)) (\ ! each (function (_ duration) diff --git a/stdlib/source/test/lux/time/instant.lux b/stdlib/source/test/lux/time/instant.lux index 1dc2583af..f25348f9a 100644 --- a/stdlib/source/test/lux/time/instant.lux +++ b/stdlib/source/test/lux/time/instant.lux @@ -5,24 +5,24 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." enum] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" codec]]] [control - ["." function] - ["." try] - ["." io]] + ["[0]" function] + ["[0]" try] + ["[0]" io]] [data [collection - ["." list ("#\." mix)]]] + ["[0]" list ("[1]\[0]" mix)]]] [math - ["." random]] + ["[0]" random]] [time - ["." duration {"+" [Duration]}] - ["." day {"+" [Day]} ("#\." enum)]]]] + ["[0]" duration {"+" [Duration]}] + ["[0]" day {"+" [Day]} ("[1]\[0]" enum)]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test @@ -39,7 +39,7 @@ ($codec.spec /.equivalence /.codec random.instant)) (do random.monad - [.let [(^open "\.") /.equivalence] + [.let [(^open "\[0]") /.equivalence] expected random.instant] ($_ _.and (_.cover [/.millis /.of_millis] @@ -52,8 +52,8 @@ (/.time expected)))) )) (do random.monad - [.let [(^open "\.") /.equivalence - (^open "duration\.") duration.equivalence] + [.let [(^open "\[0]") /.equivalence + (^open "duration\[0]") duration.equivalence] from random.instant to random.instant] ($_ _.and diff --git a/stdlib/source/test/lux/time/month.lux b/stdlib/source/test/lux/time/month.lux index a8d5a1125..7e4ad8433 100644 --- a/stdlib/source/test/lux/time/month.lux +++ b/stdlib/source/test/lux/time/month.lux @@ -4,28 +4,28 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate] + ["[0]" predicate] [\\specification - ["$." equivalence] - ["$." hash] - ["$." order] - ["$." enum] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" hash] + ["$[0]" order] + ["$[0]" enum] + ["$[0]" codec]]] [control - ["." try ("#\." functor)] - ["." exception]] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception]] [data [collection - ["." set] - ["." list ("#\." functor mix)]]] + ["[0]" set] + ["[0]" list ("[1]\[0]" functor mix)]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// - ["." duration]]]]) + ["[0]" duration]]]]) (def: .public random (Random /.Month) diff --git a/stdlib/source/test/lux/time/year.lux b/stdlib/source/test/lux/time/year.lux index 0edb57701..121d74822 100644 --- a/stdlib/source/test/lux/time/year.lux +++ b/stdlib/source/test/lux/time/year.lux @@ -5,27 +5,27 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" codec]]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [text ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]]]] [\\library - ["." / - ["/#" // - ["#." duration] - ["#." instant] - ["#." date]]]]) + ["[0]" / + ["/[1]" // + ["[1][0]" duration] + ["[1][0]" instant] + ["[1][0]" date]]]]) (def: .public random (Random /.Year) diff --git a/stdlib/source/test/lux/tool.lux b/stdlib/source/test/lux/tool.lux index ef8463b1a..05a724bf8 100644 --- a/stdlib/source/test/lux/tool.lux +++ b/stdlib/source/test/lux/tool.lux @@ -2,14 +2,14 @@ [library [lux "*" ["_" test {"+" [Test]}]]] - ["." / "_" + ["[0]" / "_" [compiler [language [lux - ["#." syntax] + ["[1][0]" syntax] [phase - ["#." analysis] - ["#." synthesis]]]]]]) + ["[1][0]" analysis] + ["[1][0]" synthesis]]]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux index ce6f5cd65..164931430 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux @@ -1,16 +1,16 @@ (.module: [lux "*" ["_" test {"+" [Test]}]] - ["." / "_" - ["#." primitive] - ["#." structure] - ["#." reference] - ["#." case] - ["#." function] - ["/#" // "_" + ["[0]" / "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" reference] + ["[1][0]" case] + ["[1][0]" function] + ["/[1]" // "_" [extension [analysis - ["#." lux]]]]]) + ["[1][0]" lux]]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux index 64aa4c58f..4f87450ba 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux @@ -1,42 +1,42 @@ (.module: [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] - ["r" math/random {"+" [Random]} ("#\." monad)] + ["[0]" name]] + ["r" math/random {"+" [Random]} ("[1]\[0]" monad)] ["_" test {"+" [Test]}] [control pipe - ["." maybe]] + ["[0]" maybe]] [data - ["." product] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [number ["n" nat]] [collection - ["." list ("#\." monad)] - ["." set]]] - ["." type - ["." check]] + ["[0]" list ("[1]\[0]" monad)] + ["[0]" set]]] + ["[0]" type + ["[0]" check]] [macro - ["." code]]] + ["[0]" code]]] [// - ["_." primitive] - ["_." structure]] + ["_[0]" primitive] + ["_[0]" structure]] [\\ - ["." / - ["/#" // - ["#." module] - ["#." type] - ["/#" // "_" - ["/#" // - ["#." analysis {"+" [Analysis Variant Tag Operation]}] + ["[0]" / + ["/[1]" // + ["[1][0]" module] + ["[1][0]" type] + ["/[1]" // "_" + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis Variant Tag Operation]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: (exhaustive_weaving branchings) (-> (List (List Code)) (List (List Code))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux index 229e27bee..afd5276d4 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux @@ -1,42 +1,42 @@ (.module: [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] + ["[0]" name]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control pipe - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data - ["." product] - ["." text ("#\." equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence)] [number ["n" nat]] [collection - ["." list ("#\." functor)]]] - ["." type] - ["." macro - ["." code]]] + ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" type] + ["[0]" macro + ["[0]" code]]] [// - ["_." primitive] - ["_." structure]] + ["_[0]" primitive] + ["_[0]" structure]] [\\ - ["." / - ["/#" // - ["#." module] - ["#." type] - ["/#" // "_" - ["/#" // - ["#." analysis {"+" [Analysis Operation]}] + ["[0]" / + ["/[1]" // + ["[1][0]" module] + ["[1][0]" type] + ["/[1]" // "_" + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis Operation]}] [/// - ["#." reference] - ["." phase] + ["[1][0]" reference] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: (check_apply expectedT num_args analysis) (-> Type Nat (Operation Analysis) Bit) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/primitive.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/primitive.lux index 82fbbc04f..da4112798 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/primitive.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/primitive.lux @@ -2,35 +2,35 @@ [lux {"-" [primitive]} ["@" target] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] - ["r" math/random {"+" [Random]} ("#\." monad)] + ["[0]" name]] + ["r" math/random {"+" [Random]} ("[1]\[0]" monad)] ["_" test {"+" [Test]}] [control pipe - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [macro - ["." code]]] + ["[0]" code]]] [\\ - ["." / - ["/#" // - ["#." type] - ["/#" // "_" + ["[0]" / + ["/[1]" // + ["[1][0]" type] + ["/[1]" // "_" [extension - ["." bundle] - ["#." analysis]] - ["/#" // "_" - ["." version] - ["#." analysis {"+" [Analysis Operation]} + ["[0]" bundle] + ["[1][0]" analysis]] + ["/[1]" // "_" + ["[0]" version] + ["[1][0]" analysis {"+" [Analysis Operation]} [macro {"+" [Expander]}] [evaluation {"+" [Eval]}]] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: .public (expander macro inputs state) Expander diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux index d33dcef00..1d3960ab8 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux @@ -1,37 +1,37 @@ (.module: [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data - ["." name ("#\." equivalence)]] + ["[0]" name ("[1]\[0]" equivalence)]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control pipe - ["." try {"+" [Try]}]] + ["[0]" try {"+" [Try]}]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [number ["n" nat]]] - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [macro - ["." code]]] + ["[0]" code]]] [// - ["_." primitive]] + ["_[0]" primitive]] [\\ - ["." / - ["/#" // - ["#." scope] - ["#." module] - ["#." type] - ["/#" // "_" - ["/#" // - ["#." analysis {"+" [Analysis Variant Tag Operation]}] + ["[0]" / + ["/[1]" // + ["[1][0]" scope] + ["[1][0]" module] + ["[1][0]" type] + ["/[1]" // "_" + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis Variant Tag Operation]}] [/// - ["#." reference] - ["." phase] + ["[1][0]" reference] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (type: Check (-> (Try Any) Bit)) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/structure.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/structure.lux index 27fc4ac73..4ad22a9fe 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/structure.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/structure.lux @@ -1,43 +1,43 @@ (.module: [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] + ["[0]" name]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control pipe - ["." maybe] - ["." try]] + ["[0]" maybe] + ["[0]" try]] [data - ["." bit ("#\." equivalence)] - ["." product] - ["." text] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" product] + ["[0]" text] [number ["n" nat]] [collection - ["." list ("#\." functor)] - ["." set]]] - ["." type - ["." check]] + ["[0]" list ("[1]\[0]" functor)] + ["[0]" set]]] + ["[0]" type + ["[0]" check]] [macro - ["." code]]] + ["[0]" code]]] [// - ["_." primitive]] + ["_[0]" primitive]] [\\ - ["." / - ["/#" // - ["#." module] - ["#." type] - ["/#" // "_" - ["/#" // - ["#." analysis {"+" [Analysis Variant Tag Operation]}] + ["[0]" / + ["/[1]" // + ["[1][0]" module] + ["[1][0]" type] + ["/[1]" // "_" + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis Variant Tag Operation]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (template [<name> <on_success> <on_error>] [(def: .public <name> diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux index 7e1c56eb0..2528ff9c1 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux @@ -1,36 +1,36 @@ (.module: [lux {"-" [i64 int primitive]} [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] + ["[0]" name]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control pipe [io {"+" [IO]}] - ["." try] + ["[0]" try] [concurrency - ["." atom]]] + ["[0]" atom]]] [data - ["." product]] - ["." type ("#\." equivalence)] + ["[0]" product]] + ["[0]" type ("[1]\[0]" equivalence)] [macro - ["." code]]] + ["[0]" code]]] [//// [analysis - ["_." primitive]]] + ["_[0]" primitive]]] [\\ - ["." / - ["///#" //// "_" + ["[0]" / + ["///[1]" //// "_" [analysis - ["#." scope] - ["#." type]] + ["[1][0]" scope] + ["[1][0]" type]] [//// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]) + ["[0]" archive]]]]]]) (template [<name> <success> <failure>] [(def: (<name> procedure params output_type) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux index da993c0fc..2c9954765 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux @@ -1,13 +1,13 @@ (.module: [lux "*" ["_" test {"+" [Test]}]] - ["." / "_" - ["#." primitive] - ["#." structure] - ["#." case] - ["#." function] - ["#." loop] - ["#." variable]]) + ["[0]" / "_" + ["[1][0]" primitive] + ["[1][0]" structure] + ["[1][0]" case] + ["[1][0]" function] + ["[1][0]" loop] + ["[1][0]" variable]]) (def: .public test Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux index 7b2b5de92..af22d952d 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux @@ -3,41 +3,41 @@ ["_" test {"+" [Test]}] [abstract [hash {"+" [Hash]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try ("#\." functor)]] + ["[0]" try ("[1]\[0]" functor)]] [data - ["." sum] - ["." text + ["[0]" sum] + ["[0]" text ["%" format {"+" [format]}]] [number ["n" nat] - ["." int] - ["." rev] - ["." frac]] + ["[0]" int] + ["[0]" rev] + ["[0]" frac]] [collection - ["." list ("#\." functor mix monoid)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" set]]] [math - ["." random {"+" [Random]}]]] - ["." // "_" - ["#." primitive]] + ["[0]" random {"+" [Random]}]]] + ["[0]" // "_" + ["[1][0]" primitive]] [\\ - ["." / - ["/#" // - ["/#" // "_" + ["[0]" / + ["/[1]" // + ["/[1]" // "_" [extension - ["#." bundle]] - ["/#" // - ["." analysis {"+" [Branch Match Analysis]}] - ["." synthesis {"+" [Path Synthesis]}] + ["[1][0]" bundle]] + ["/[1]" // + ["[0]" analysis {"+" [Branch Match Analysis]}] + ["[0]" synthesis {"+" [Path Synthesis]}] [/// - ["#." reference + ["[1][0]" reference [variable {"+" [Register]}]] - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: masking_test Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux index 5cfa2b66e..8c8b6c4a5 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux @@ -2,39 +2,39 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [number ["n" nat]] [collection - ["." list ("#\." functor mix monoid)] - ["." dictionary {"+" [Dictionary]}] - ["." set]]] + ["[0]" list ("[1]\[0]" functor mix monoid)] + ["[0]" dictionary {"+" [Dictionary]}] + ["[0]" set]]] [math - ["." random {"+" [Random]}]]] - ["." // "_" - ["#." primitive]] + ["[0]" random {"+" [Random]}]]] + ["[0]" // "_" + ["[1][0]" primitive]] [\\ - ["." / - ["/#" // - ["/#" // "_" + ["[0]" / + ["/[1]" // + ["/[1]" // "_" [extension - ["#." bundle]] - ["/#" // - ["." analysis {"+" [Analysis]}] - ["." synthesis {"+" [Synthesis]}] + ["[1][0]" bundle]] + ["/[1]" // + ["[0]" analysis {"+" [Analysis]}] + ["[0]" synthesis {"+" [Synthesis]}] [/// [arity {"+" [Arity]}] - ["." reference - ["." variable {"+" [Variable]}]] - ["." phase] + ["[0]" reference + ["[0]" variable {"+" [Variable]}]] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: (n_function loop? arity body) (-> Bit Arity Synthesis Synthesis) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux index 486dfa570..63a6f2546 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux @@ -4,24 +4,24 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data [number ["n" nat]] [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random {"+" [Random]} ("#\." monad)]]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]] [\\ - ["." / + ["[0]" / [//// - ["." analysis {"+" [Environment]}] - ["/#" synthesis {"+" [Member Path Synthesis]}] + ["[0]" analysis {"+" [Environment]}] + ["/[1]" synthesis {"+" [Member Path Synthesis]}] [/// [arity {"+" [Arity]}] - ["." reference {"+" [Constant]} - ["." variable {"+" [Register Variable]}]]]]]]) + ["[0]" reference {"+" [Constant]} + ["[0]" variable {"+" [Register Variable]}]]]]]]) (type: (Scenario a) (-> Register Arity Register (Random [Register [a a]]))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux index d0d0449f9..4b37cbb5a 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux @@ -1,31 +1,31 @@ (.module: [lux {"-" [primitive]} - [abstract ["." monad {"+" [do]}]] + [abstract ["[0]" monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data ["%" text/format {"+" [format]}] - ["." name] + ["[0]" name] [number ["n" nat]] [collection - ["." list]]] - ["r" math/random {"+" [Random]} ("#\." monad)] + ["[0]" list]]] + ["r" math/random {"+" [Random]} ("[1]\[0]" monad)] ["_" test {"+" [Test]}]] [\\ - ["." / "_" - ["/#" // - ["/#" // "_" + ["[0]" / "_" + ["/[1]" // + ["/[1]" // "_" [extension - ["#." bundle]] - ["/#" // - ["#." analysis {"+" [Analysis]}] - ["#." synthesis {"+" [Synthesis]}] + ["[1][0]" bundle]] + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis]}] + ["[1][0]" synthesis {"+" [Synthesis]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: .public primitive (Random Analysis) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux index b132e1027..60a4bdeec 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux @@ -1,37 +1,37 @@ (.module: [lux "*" [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [data ["%" text/format {"+" [format]}] - ["." name]] + ["[0]" name]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control pipe - ["." try]] + ["[0]" try]] [data - ["." bit ("#\." equivalence)] - ["." product] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" product] [number ["n" nat]] [collection - ["." list]]]] - ["." // "_" - ["#." primitive]] + ["[0]" list]]]] + ["[0]" // "_" + ["[1][0]" primitive]] [\\ - ["." / "_" - ["/#" // - ["/#" // "_" + ["[0]" / "_" + ["/[1]" // + ["/[1]" // "_" [extension - ["#." bundle]] - ["/#" // - ["#." analysis {"+" [Analysis]}] - ["#." synthesis {"+" [Synthesis]}] + ["[1][0]" bundle]] + ["/[1]" // + ["[1][0]" analysis {"+" [Analysis]}] + ["[1][0]" synthesis {"+" [Synthesis]}] [/// - ["." phase] + ["[0]" phase] [meta - ["." archive]]]]]]]]) + ["[0]" archive]]]]]]]]) (def: variant Test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux index 7f6ed6bc5..7ba708602 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux @@ -2,29 +2,29 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [math - ["." random {"+" [Random]}]] + ["[0]" random {"+" [Random]}]] [control [pipe {"+" [case>]}] - ["." try]] + ["[0]" try]] [data - ["." product] - ["." text + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}]] [number ["n" nat]] [collection - ["." list ("#\." functor mix)] - ["." dictionary {"+" [Dictionary]}]]]] + ["[0]" list ("[1]\[0]" functor mix)] + ["[0]" dictionary {"+" [Dictionary]}]]]] [\\ - ["." / + ["[0]" / [//// - ["." analysis] - ["." synthesis {"+" [Side Member Path Synthesis]}] + ["[0]" analysis] + ["[0]" synthesis {"+" [Side Member Path Synthesis]}] [/// [reference - ["." variable]]]]]]) + ["[0]" variable]]]]]]) (template: (!expect <pattern> <value>) (case <value> diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux index 36cd99322..32dcae9de 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux @@ -3,26 +3,26 @@ [abstract/monad {"+" [do]}] [data ["%" text/format {"+" [format]}] - ["." name] + ["[0]" name] [number ["n" nat]]] - ["r" math/random {"+" [Random]} ("#\." monad)] + ["r" math/random {"+" [Random]} ("[1]\[0]" monad)] ["_" test {"+" [Test]}] [control - ["." try] + ["[0]" try] [parser ["l" text]]] [data - ["." text] + ["[0]" text] [collection - ["." list] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro - ["." code]] + ["[0]" code]] [meta - ["." location]]] + ["[0]" location]]] [\\ - ["." /]]) + ["[0]" /]]) (def: name_part^ (Random Text) diff --git a/stdlib/source/test/lux/type.lux b/stdlib/source/test/lux/type.lux index 0ffd8ca7f..94f7b92fd 100644 --- a/stdlib/source/test/lux/type.lux +++ b/stdlib/source/test/lux/type.lux @@ -3,37 +3,37 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}] + ["[0]" monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control [pipe {"+" [case>]}] - ["." maybe]] + ["[0]" maybe]] [data - ["." bit ("#\." equivalence)] - ["." text ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list] - ["." array]]] + ["[0]" list] + ["[0]" array]]] [macro - ["." code ("#\." equivalence)]] + ["[0]" code ("[1]\[0]" equivalence)]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." / ("#\." equivalence)]] - ["." / "_" - ["#." abstract] - ["#." check] - ["#." dynamic] - ["#." implicit] - ["#." poly] - ["#." quotient] - ["#." refinement] - ["#." resource] - ["#." unit] - ["#." variance]]) + ["[0]" / ("[1]\[0]" equivalence)]] + ["[0]" / "_" + ["[1][0]" abstract] + ["[1][0]" check] + ["[1][0]" dynamic] + ["[1][0]" implicit] + ["[1][0]" poly] + ["[1][0]" quotient] + ["[1][0]" refinement] + ["[1][0]" resource] + ["[1][0]" unit] + ["[1][0]" variance]]) (def: short (Random Text) @@ -104,8 +104,8 @@ #1))) (list.repeated size) (monad.all !)) - .let [(^open "/\.") /.equivalence - (^open "list\.") (list.equivalence /.equivalence)]] + .let [(^open "/\[0]") /.equivalence + (^open "list\[0]") (list.equivalence /.equivalence)]] (`` ($_ _.and (~~ (template [<ctor> <dtor> <unit>] [(_.cover [<ctor> <dtor>] @@ -137,8 +137,8 @@ _ #1)))) - .let [(^open "/\.") /.equivalence - (^open "list\.") (list.equivalence /.equivalence)]] + .let [(^open "/\[0]") /.equivalence + (^open "list\[0]") (list.equivalence /.equivalence)]] ($_ _.and (_.cover [/.function /.flat_function] (let [[inputs output] (|> (/.function members extra) /.flat_function)] @@ -158,7 +158,7 @@ _ #1)))) - .let [(^open "/\.") /.equivalence]] + .let [(^open "/\[0]") /.equivalence]] (`` ($_ _.and (~~ (template [<ctor> <dtor>] [(_.cover [<ctor> <dtor>] @@ -184,7 +184,7 @@ _ #1)))) - .let [(^open "/\.") /.equivalence]] + .let [(^open "/\[0]") /.equivalence]] ($_ _.and (_.cover [/.array /.flat_array] (let [[flat_depth flat_element] (|> element_type (/.array depth) /.flat_array)] @@ -229,7 +229,7 @@ (I64 a) (.i64 expected))))) (do random.monad - [.let [(^open "/\.") /.equivalence] + [.let [(^open "/\[0]") /.equivalence] left (..random 0) right (..random 0)] ($_ _.and diff --git a/stdlib/source/test/lux/type/abstract.lux b/stdlib/source/test/lux/type/abstract.lux index cd7387d3d..66bee2f43 100644 --- a/stdlib/source/test/lux/type/abstract.lux +++ b/stdlib/source/test/lux/type/abstract.lux @@ -2,26 +2,26 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception] + ["[0]" try] + ["[0]" exception] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." text ("#\." equivalence)]] - ["." macro + ["[0]" text ("[1]\[0]" equivalence)]] + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code] - ["." template]] - ["." math - ["." random] + ["[0]" code] + ["[0]" template]] + ["[0]" math + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template.with_locals [g!Foo g!Bar] (as_is (template [<syntax> <meta>] diff --git a/stdlib/source/test/lux/type/check.lux b/stdlib/source/test/lux/type/check.lux index 1a3d50373..d3825ef80 100644 --- a/stdlib/source/test/lux/type/check.lux +++ b/stdlib/source/test/lux/type/check.lux @@ -2,32 +2,32 @@ [library [lux {"-" [type]} ["_" test {"+" [Test]}] - ["." type ("#\." equivalence)] + ["[0]" type ("[1]\[0]" equivalence)] [abstract - ["." monad {"+" [do]}] + ["[0]" monad {"+" [do]}] [\\specification - ["$." functor {"+" [Injection Comparison]}] - ["$." apply] - ["$." monad]]] + ["$[0]" functor {"+" [Injection Comparison]}] + ["$[0]" apply] + ["$[0]" monad]]] [control [pipe {"+" [case>]}] - ["." function] - ["." try] - ["." exception {"+" [exception:]}]] + ["[0]" function] + ["[0]" try] + ["[0]" exception {"+" [exception:]}]] [data - ["." bit ("#\." equivalence)] - ["." product] - ["." text ("#\." equivalence) + ["[0]" bit ("[1]\[0]" equivalence)] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list ("#\." functor monoid)] - ["." set]]] + ["[0]" list ("[1]\[0]" functor monoid)] + ["[0]" set]]] [math - ["." random {"+" [Random]} ("#\." monad)] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) ... TODO: Remove the following 3 definitions ASAP. //.type already exists... (def: short diff --git a/stdlib/source/test/lux/type/dynamic.lux b/stdlib/source/test/lux/type/dynamic.lux index 72896124e..b9787f8bf 100644 --- a/stdlib/source/test/lux/type/dynamic.lux +++ b/stdlib/source/test/lux/type/dynamic.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}]] [control - ["." try] - ["." exception]] + ["[0]" try] + ["[0]" exception]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/type/implicit.lux b/stdlib/source/test/lux/type/implicit.lux index ba60470c7..dd5d5ea72 100644 --- a/stdlib/source/test/lux/type/implicit.lux +++ b/stdlib/source/test/lux/type/implicit.lux @@ -7,17 +7,17 @@ [functor {"+" []}] [monoid {"+" []}] [monad {"+" [do]}] - ["." enum]] + ["[0]" enum]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (/.implicit: [n.multiplication]) @@ -36,7 +36,7 @@ ($_ _.and (_.cover [/.\\] (let [first_order! - (let [(^open "list\.") (list.equivalence n.equivalence)] + (let [(^open "list\[0]") (list.equivalence n.equivalence)] (and (bit\= (\ n.equivalence = left right) (/.\\ = left right)) (list\= (\ list.functor each ++ (enum.range n.enum start end)) diff --git a/stdlib/source/test/lux/type/poly.lux b/stdlib/source/test/lux/type/poly.lux index 31dbc7cc0..eb4efeb9c 100644 --- a/stdlib/source/test/lux/type/poly.lux +++ b/stdlib/source/test/lux/type/poly.lux @@ -3,11 +3,11 @@ [lux "*" ["_" test {"+" [Test]}]]] [\\library - ["." /]] - ["." / "_" - ["#." equivalence] - ["#." functor] - ["#." json]]) + ["[0]" /]] + ["[0]" / "_" + ["[1][0]" equivalence] + ["[1][0]" functor] + ["[1][0]" json]]) (def: .public test Test diff --git a/stdlib/source/test/lux/type/poly/equivalence.lux b/stdlib/source/test/lux/type/poly/equivalence.lux index 8e03475f4..ae73c44a7 100644 --- a/stdlib/source/test/lux/type/poly/equivalence.lux +++ b/stdlib/source/test/lux/type/poly/equivalence.lux @@ -6,18 +6,18 @@ [monad {"+" [do]}] [equivalence {"+" [Equivalence]} [\\poly - ["." /]]] + ["[0]" /]]] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." bit] - ["." text] + ["[0]" bit] + ["[0]" text] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] ["i" int]]] diff --git a/stdlib/source/test/lux/type/poly/functor.lux b/stdlib/source/test/lux/type/poly/functor.lux index d717d1548..e2cd1ad21 100644 --- a/stdlib/source/test/lux/type/poly/functor.lux +++ b/stdlib/source/test/lux/type/poly/functor.lux @@ -5,13 +5,13 @@ [monad {"+" [do]}] [functor [\\poly - ["." /]]]] + ["[0]" /]]]] ["r" math/random {"+" [Random]}] ["_" test {"+" [Test]}] [control - ["." state]] + ["[0]" state]] [data - ["." identity]] + ["[0]" identity]] [type [poly {"+" [derived:]}]]]]) diff --git a/stdlib/source/test/lux/type/poly/json.lux b/stdlib/source/test/lux/type/poly/json.lux index 970a9bc46..6abaa47f1 100644 --- a/stdlib/source/test/lux/type/poly/json.lux +++ b/stdlib/source/test/lux/type/poly/json.lux @@ -2,40 +2,40 @@ [library [lux {"-" [Variant Record]} ["_" test {"+" [Test]}] - ["." debug] + ["[0]" debug] [abstract codec [monad {"+" [do]}] - ["." equivalence {"+" [Equivalence]} - ["poly/#" \\poly]] + ["[0]" equivalence {"+" [Equivalence]} + ["poly/[1]" \\poly]] [\\specification - ["$." equivalence] - ["$." codec]]] + ["$[0]" equivalence] + ["$[0]" codec]]] [control pipe - ["." try] + ["[0]" try] ["p" parser ... TODO: Get rid of this import ASAP [json {"+" []}]]] [data - ["." bit] - ["." text] + ["[0]" bit] + ["[0]" text] [format [json {"+" []} [\\poly - ["." /]]]] + ["[0]" /]]]] [collection [row {"+" [row]}] ["d" dictionary] - ["." list]]] + ["[0]" list]]] [type [poly {"+" [derived:]}] - ["." unit]] + ["[0]" unit]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat] - ["." frac]]] + ["[0]" frac]]] [time ["ti" instant] ["tda" date] @@ -44,8 +44,8 @@ [test [lux [time - ["_." instant] - ... ["_." duration] + ["_[0]" instant] + ... ["_[0]" duration] ]]]) (type: Variant diff --git a/stdlib/source/test/lux/type/quotient.lux b/stdlib/source/test/lux/type/quotient.lux index 54c5f2aa3..f0ed3b638 100644 --- a/stdlib/source/test/lux/type/quotient.lux +++ b/stdlib/source/test/lux/type/quotient.lux @@ -3,18 +3,18 @@ [lux "*" ["_" test {"+" [Test]}] [abstract - ["." monad {"+" [do]}] + ["[0]" monad {"+" [do]}] [\\specification - ["$." equivalence]]] + ["$[0]" equivalence]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["n" nat ("#\." equivalence)]]]]] + ["n" nat ("[1]\[0]" equivalence)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (random class super) (All (_ t c %) (-> (/.Class t c %) (Random t) (Random (/.Quotient t c %)))) diff --git a/stdlib/source/test/lux/type/refinement.lux b/stdlib/source/test/lux/type/refinement.lux index 1f44a90cf..1b2c17e36 100644 --- a/stdlib/source/test/lux/type/refinement.lux +++ b/stdlib/source/test/lux/type/refinement.lux @@ -6,16 +6,16 @@ [predicate {"+" [Predicate]}] [monad {"+" [do]}]] [control - ["." maybe ("#\." monad)]] + ["[0]" maybe ("[1]\[0]" monad)]] [data [collection - ["." list ("#\." functor)]]] + ["[0]" list ("[1]\[0]" functor)]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: _refiner (/.refiner (n.> 123))) diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index 3e51c9964..8d0015452 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -2,29 +2,29 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." meta] + ["[0]" meta] [abstract - ["." monad + ["[0]" monad [indexed {"+" [do]}]]] [control - ["." io {"+" [IO]}] - ["." try] - ["." exception {"+" [Exception]}] + ["[0]" io {"+" [IO]}] + ["[0]" try] + ["[0]" exception {"+" [Exception]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["<.>" code]]] + ["<[0]>" code]]] [data - ["." identity {"+" [Identity]}] - ["." text ("#\." equivalence) + ["[0]" identity {"+" [Identity]}] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] - ["." macro + ["[0]" macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." / {"+" [Res]}]]) + ["[0]" / {"+" [Res]}]]) (def: pure Test diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index cf3ed5705..eaea8af2d 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -2,25 +2,25 @@ [library [lux "*" ["_" test {"+" [Test]}] - ["." debug] - ["." meta] + ["[0]" debug] + ["[0]" meta] [abstract [monad {"+" [do]}] [equivalence {"+" [Equivalence]}] [\\specification - ["$." equivalence] - ["$." order] - ["$." enum]]] + ["$[0]" equivalence] + ["$[0]" order] + ["$[0]" enum]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["i" int] - ["." ratio ("#\." equivalence)]]]]] + ["[0]" ratio ("[1]\[0]" equivalence)]]]]] [\\library - ["." /]]) + ["[0]" /]]) (template [<name> <type> <unit>] [(def: (<name> range) @@ -101,8 +101,8 @@ (\ ! each (i.% +1,000)) (\ ! each (i.* +1,000,000,000)) (\ ! each (\ /.meter in))) - .let [(^open "meter\.") (: (Equivalence (/.Qty /.Meter)) - /.equivalence)] + .let [(^open "meter\[0]") (: (Equivalence (/.Qty /.Meter)) + /.equivalence)] unscaled (|> random.int (\ ! each (i.% +1,000)) (\ ! each (i.* (.int how::to))) @@ -156,8 +156,8 @@ Test (do random.monad [.let [zero (\ /.meter in +0) - (^open "meter\.") (: (Equivalence (/.Qty /.Meter)) - /.equivalence)] + (^open "meter\[0]") (: (Equivalence (/.Qty /.Meter)) + /.equivalence)] left (random.only (|>> (meter\= zero) not) (..meter 1,000)) right (..meter 1,000) extra (..second 1,000)] diff --git a/stdlib/source/test/lux/type/variance.lux b/stdlib/source/test/lux/type/variance.lux index 7196f89ee..d223fa976 100644 --- a/stdlib/source/test/lux/type/variance.lux +++ b/stdlib/source/test/lux/type/variance.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / - ["/#" // "_" - ["#." check]]]]) + ["[0]" / + ["/[1]" // "_" + ["[1][0]" check]]]]) (type: Super (Ex (_ sub) [Text sub])) diff --git a/stdlib/source/test/lux/world.lux b/stdlib/source/test/lux/world.lux index a0146a709..5c348cb1e 100644 --- a/stdlib/source/test/lux/world.lux +++ b/stdlib/source/test/lux/world.lux @@ -2,20 +2,20 @@ [library [lux "*" ["_" test {"+" [Test]}]]] - ["." / "_" - ["#." file] - ["#." shell] - ["#." console] - ["#." program] - ["#." input "_" - ["#/." keyboard]] - ["#." output "_" - ["#/." video "_" - ["#/." resolution]]] - ["#." net "_" - ["#/." http "_" - ["#/." client] - ["#/." status]]]]) + ["[0]" / "_" + ["[1][0]" file] + ["[1][0]" shell] + ["[1][0]" console] + ["[1][0]" program] + ["[1][0]" input "_" + ["[1]/[0]" keyboard]] + ["[1][0]" output "_" + ["[1]/[0]" video "_" + ["[1]/[0]" resolution]]] + ["[1][0]" net "_" + ["[1]/[0]" http "_" + ["[1]/[0]" client] + ["[1]/[0]" status]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index 37704c0e8..3f54d54a7 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." io] - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}]] + ["[0]" io] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]] + ["[0]" /]] [\\specification - ["$." /]]) + ["$[0]" /]]) (exception: dead) diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index d2c4703d3..304116241 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [control - ["." io]] + ["[0]" io]] [math - ["." random]]]] - ["." / "_" - ["#." watch]] + ["[0]" random]]]] + ["[0]" / "_" + ["[1][0]" watch]] [\\library - ["." /]] + ["[0]" /]] [\\specification - ["$." /]]) + ["$[0]" /]]) (def: .public test Test diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux index 52fa06325..aee4f4922 100644 --- a/stdlib/source/test/lux/world/file/watch.lux +++ b/stdlib/source/test/lux/world/file/watch.lux @@ -6,24 +6,24 @@ [predicate {"+" [Predicate]}] [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception] + ["[0]" try {"+" [Try]}] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." binary {"+" [Binary]} ("#\." equivalence)] - ["." text ("#\." equivalence) + ["[0]" binary {"+" [Binary]} ("[1]\[0]" equivalence)] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random {"+" [Random]} ("#\." monad)]]]] + ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]]] [\\library - ["." / - ["/#" //]]] + ["[0]" / + ["/[1]" //]]] [//// [data - ["$." binary]]]) + ["$[0]" binary]]]) (def: concern (Random [/.Concern (Predicate /.Concern)]) diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index 9abbbb7cd..7da4c9c34 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}]] [control - ["." maybe]] + ["[0]" maybe]] [data - ["." bit ("#\." equivalence)] + ["[0]" bit ("[1]\[0]" equivalence)] [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [macro - ["." template]] + ["[0]" template]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (with_expansions [<groups> (as_is [keys/commands [/.back_space diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux index b2999b74d..1f80ba26b 100644 --- a/stdlib/source/test/lux/world/net/http/client.lux +++ b/stdlib/source/test/lux/world/net/http/client.lux @@ -6,26 +6,26 @@ [monad {"+" [do]}]] [control [pipe {"+" [do>]}] - ["." io {"+" [IO]}] - ["." try] - ["." function]] + ["[0]" io {"+" [IO]}] + ["[0]" try] + ["[0]" function]] [data - ["." binary] - ["." product] - ["." text + ["[0]" binary] + ["[0]" product] + ["[0]" text ["%" format {"+" [format]}] [encoding - ["." utf8]]] + ["[0]" utf8]]] [collection - ["." dictionary]]] + ["[0]" dictionary]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number - ["." nat]]]]] + ["[0]" nat]]]]] [\\library - ["." / - ["/#" // - ["#." status]]]]) + ["[0]" / + ["/[1]" // + ["[1][0]" status]]]]) (def: .public test Test diff --git a/stdlib/source/test/lux/world/net/http/status.lux b/stdlib/source/test/lux/world/net/http/status.lux index ab11270c8..fb987aad6 100644 --- a/stdlib/source/test/lux/world/net/http/status.lux +++ b/stdlib/source/test/lux/world/net/http/status.lux @@ -4,16 +4,16 @@ ["_" test {"+" [Test]}] [data [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [macro - ["." template]] + ["[0]" template]] [math [number ["n" nat]]]]] [\\library - ["." / - ["/#" //]]]) + ["[0]" / + ["/[1]" //]]]) (with_expansions [<categories> (as_is [informational [/.continue diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux index 59a46f103..5c4990479 100644 --- a/stdlib/source/test/lux/world/output/video/resolution.lux +++ b/stdlib/source/test/lux/world/output/video/resolution.lux @@ -5,20 +5,20 @@ [abstract [monad {"+" [do]}] [\\specification - ["$." equivalence] - ["$." hash]]] + ["$[0]" equivalence] + ["$[0]" hash]]] [control - ["." maybe]] + ["[0]" maybe]] [data [collection - ["." list] - ["." set {"+" [Set]}]]] + ["[0]" list] + ["[0]" set {"+" [Set]}]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) (with_expansions [<resolutions> (as_is /.svga /.wsvga diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux index 4b1c4ba22..eafafecaa 100644 --- a/stdlib/source/test/lux/world/program.lux +++ b/stdlib/source/test/lux/world/program.lux @@ -6,27 +6,27 @@ [monad {"+" [do]}]] [control [pipe {"+" [case>]}] - ["." io] - ["." maybe ("#\." functor)] - ["." try] - ["." exception] + ["[0]" io] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try] + ["[0]" exception] [parser [environment {"+" [Environment]}]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." / + ["[0]" / [// [file {"+" [Path]}]]]] [\\specification - ["$." /]]) + ["$[0]" /]]) (def: (environment env_size) (-> Nat (Random Environment)) diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux index 250f7f9b2..8d98b5f1f 100644 --- a/stdlib/source/test/lux/world/shell.lux +++ b/stdlib/source/test/lux/world/shell.lux @@ -5,28 +5,28 @@ [abstract [monad {"+" [do]}]] [control - ["." try {"+" [Try]}] - ["." exception {"+" [exception:]}] - ["." io {"+" [IO]}] + ["[0]" try {"+" [Try]}] + ["[0]" exception {"+" [exception:]}] + ["[0]" io {"+" [IO]}] [concurrency - ["." async {"+" [Async]}]] + ["[0]" async {"+" [Async]}]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data - ["." text ("#\." equivalence)] + ["[0]" text ("[1]\[0]" equivalence)] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." / + ["[0]" / [// [file {"+" [Path]}]]]] [\\specification - ["$." /]]) + ["$[0]" /]]) (exception: dead) |