diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/format.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux index 95b4bf30a..31471fa83 100644 --- a/stdlib/source/program/aedifex/format.lux +++ b/stdlib/source/program/aedifex/format.lux @@ -2,10 +2,10 @@ [library [lux "*" [data - ["[0]" text ("[1]\[0]" equivalence)] + ["[0]" text ("[1]#[0]" equivalence)] [collection ["[0]" dictionary {"+" [Dictionary]}] - ["[0]" list ("[1]\[0]" monad)] + ["[0]" list ("[1]#[0]" monad)] ["[0]" set {"+" [Set]}]]] [macro ["[0]" code] @@ -59,9 +59,9 @@ (def: aggregate (Format Aggregate) (|>> dictionary.entries - (list\each (function (_ [key value]) + (list#each (function (_ [key value]) (list (code.text key) value))) - list\conjoint + list#conjoint code.tuple)) (def: empty @@ -86,7 +86,7 @@ aggregate value - (dictionary.has field (` [(~+ (list\each format value))]) aggregate))) + (dictionary.has field (` [(~+ (list#each format value))]) aggregate))) (def: (on_set field value format aggregate) (All (_ a) @@ -101,9 +101,9 @@ (dictionary.has field (|> value dictionary.entries - (list\each (function (_ [key value]) + (list#each (function (_ [key value]) (list (key_format key) (value_format value)))) - list\conjoint + list#conjoint code.tuple) aggregate))) @@ -131,7 +131,7 @@ (def: (dependency [artifact type]) (Format Dependency) - (if (text\= //artifact/type.lux_library type) + (if (text#= //artifact/type.lux_library type) (` [(~+ (..artifact' artifact))]) (` [(~+ (..artifact' artifact)) (~ (code.text type))]))) @@ -139,7 +139,7 @@ (def: (runtime [program parameters]) (Format Runtime) (` [(~ (code.text program)) - (~+ (list\each code.text parameters))])) + (~+ (list#each code.text parameters))])) (def: (profile value) (Format /.Profile) @@ -168,7 +168,7 @@ (def: .public project (Format Project) (|>> dictionary.entries - (list\each (function (_ [key value]) + (list#each (function (_ [key value]) (list (code.text key) (..profile value)))) - list\conjoint + list#conjoint code.tuple)) |