diff options
Diffstat (limited to '')
11 files changed, 39 insertions, 39 deletions
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux index cbbc587c7..df39b6b61 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/data/format/css.lux @@ -24,10 +24,10 @@ ["[1][0]" style] ["[1][0]" query (.only Query)]]) -(primitive: .public Common Any) -(primitive: .public Special Any) +(primitive .public Common Any) +(primitive .public Special Any) -(primitive: .public (CSS brand) +(primitive .public (CSS brand) Text (def: .public css diff --git a/stdlib/source/library/lux/data/format/css/class.lux b/stdlib/source/library/lux/data/format/css/class.lux index 13fec00a4..1fb58b4d7 100644 --- a/stdlib/source/library/lux/data/format/css/class.lux +++ b/stdlib/source/library/lux/data/format/css/class.lux @@ -13,7 +13,7 @@ [type [primitive (.except)]]]]) -(primitive: .public Class +(primitive .public Class Text (def: .public class diff --git a/stdlib/source/library/lux/data/format/css/id.lux b/stdlib/source/library/lux/data/format/css/id.lux index 00f094c1a..2ba540356 100644 --- a/stdlib/source/library/lux/data/format/css/id.lux +++ b/stdlib/source/library/lux/data/format/css/id.lux @@ -13,7 +13,7 @@ [type [primitive (.except)]]]]) -(primitive: .public ID +(primitive .public ID Text (def: .public id diff --git a/stdlib/source/library/lux/data/format/css/property.lux b/stdlib/source/library/lux/data/format/css/property.lux index 9361d2d4a..21348e82d 100644 --- a/stdlib/source/library/lux/data/format/css/property.lux +++ b/stdlib/source/library/lux/data/format/css/property.lux @@ -58,7 +58,7 @@ (syntax (_ [symbol s.text]) (in (list (code.local (text.replaced "-" "_" symbol)))))) -(primitive: .public (Property brand) +(primitive .public (Property brand) Text (def: .public name diff --git a/stdlib/source/library/lux/data/format/css/query.lux b/stdlib/source/library/lux/data/format/css/query.lux index ea280933c..f4d2fccd5 100644 --- a/stdlib/source/library/lux/data/format/css/query.lux +++ b/stdlib/source/library/lux/data/format/css/query.lux @@ -25,7 +25,7 @@ (syntax (_ [symbol s.text]) (in (list (code.local (text.replaced "-" "_" symbol)))))) -(primitive: .public Media +(primitive .public Media Text (def: .public media @@ -43,7 +43,7 @@ ["speech"] )) -(primitive: .public Feature +(primitive .public Feature Text (def: .public feature @@ -103,7 +103,7 @@ ) ) -(primitive: .public Query +(primitive .public Query Text (def: .public query diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index ad025e3e9..2fe5ae11e 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -21,21 +21,21 @@ (type: .public Tag Label) (type: .public Attribute Label) -(primitive: .public (Generic brand) Any) +(primitive .public (Generic brand) Any) (with_template [<generic> <brand>] - [(primitive: <brand> Any) + [(primitive <brand> Any) (type: .public <generic> (Generic <brand>))] [Can_Chain Can_Chain'] [Cannot_Chain Cannot_Chain'] ) -(primitive: .public Unique Any) -(primitive: .public Specific Any) -(primitive: .public Composite Any) +(primitive .public Unique Any) +(primitive .public Specific Any) +(primitive .public Composite Any) -(primitive: .public (Selector kind) +(primitive .public (Selector kind) Text (def: .public selector @@ -167,7 +167,7 @@ (format ":not") abstraction)) - (primitive: .public Index + (primitive .public Index Text (def: .public index diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/data/format/css/style.lux index 35348d5e7..eba1e112d 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/data/format/css/style.lux @@ -12,7 +12,7 @@ ["[1][0]" value (.only Value)] ["[1][0]" property (.only Property)]]) -(primitive: .public Style +(primitive .public Style Text (def: .public empty diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index e2bf08a20..66c82fe50 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -35,7 +35,7 @@ (def: enumeration (template (_ <abstraction> <representation> <out> <sample>+ <definition>+) - [(primitive: .public <abstraction> + [(primitive .public <abstraction> <representation> (def: .public <out> @@ -57,7 +57,7 @@ raw (|> raw (text.split_at 1) maybe.trusted product.right)))) -(primitive: .public (Value brand) +(primitive .public (Value brand) Text (def: .public value @@ -72,11 +72,11 @@ [unset "unset"] ) - (primitive: .public (Numeric kind) Any) + (primitive .public (Numeric kind) Any) (with_template [<name>] [(with_expansions [<name>' (template.symbol [<name> "'"])] - (primitive: .public <name>' Any) + (primitive .public <name>' Any) (type: .public <name> (Numeric <name>')))] @@ -87,7 +87,7 @@ ) (with_template [<brand> <alias>+ <value>+] - [(primitive: .public <brand> Any) + [(primitive .public <brand> Any) (`` (with_template [<name> <value>] [(def: .public <name> @@ -889,7 +889,7 @@ (abstraction (format (%.nat horizontal) ..slice_separator (%.nat vertical)))) - (primitive: .public Stop + (primitive .public Stop Text (def: .public stop @@ -909,7 +909,7 @@ (representation Value start) ..stop_separator (representation Value end)))) - (primitive: .public Hint + (primitive .public Hint Text (def: .public hint @@ -928,7 +928,7 @@ (type: .public (List/1 a) [a (List a)]) - (primitive: .public Angle + (primitive .public Angle Text (def: .public angle diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux index 50b4d8de5..3a8bcd5c6 100644 --- a/stdlib/source/library/lux/data/format/html.lux +++ b/stdlib/source/library/lux/data/format/html.lux @@ -79,11 +79,11 @@ (-> Tag Text) (text.enclosed ["</" ">"])) -(primitive: .public (HTML brand) +(primitive .public (HTML brand) Text (.with_template [<name> <brand>] - [(primitive: <brand> Any) + [(primitive <brand> Any) (type: .public <name> (HTML <brand>))] [Meta Meta'] @@ -101,11 +101,11 @@ ) (.with_template [<super> <super_raw> <sub>+] - [(primitive: (<super_raw> brand) Any) + [(primitive (<super_raw> brand) Any) (type: .public <super> (HTML (<super_raw> Any))) (`` (.with_template [<sub> <sub_raw>] - [(primitive: <sub_raw> Any) + [(primitive <sub_raw> Any) (type: .public <sub> (HTML (<super_raw> <sub_raw>)))] (~~ (template.spliced <sub>+))))] diff --git a/stdlib/source/library/lux/data/format/markdown.lux b/stdlib/source/library/lux/data/format/markdown.lux index 1e2673a85..d65c5e6f6 100644 --- a/stdlib/source/library/lux/data/format/markdown.lux +++ b/stdlib/source/library/lux/data/format/markdown.lux @@ -31,10 +31,10 @@ (text.replaced "." "\.") (text.replaced "!" "\!"))) -(primitive: .public Span Any) -(primitive: .public Block Any) +(primitive .public Span Any) +(primitive .public Block Any) -(primitive: .public (Markdown brand) +(primitive .public (Markdown brand) Text (def: .public empty diff --git a/stdlib/source/library/lux/data/format/tar.lux b/stdlib/source/library/lux/data/format/tar.lux index 1c75474cf..272d666de 100644 --- a/stdlib/source/library/lux/data/format/tar.lux +++ b/stdlib/source/library/lux/data/format/tar.lux @@ -75,7 +75,7 @@ "Value" (%.nat value) "Maximum" (%.nat (-- <limit>)))) - (primitive: .public <type> + (primitive .public <type> Nat (def: .public (<in> value) @@ -160,7 +160,7 @@ [value (at n.octal decoded digits)] (..big value))))) -(primitive: Checksum +(primitive Checksum Text (def: from_checksum @@ -249,7 +249,7 @@ (binary!.slice 0 (++ end) string)))))))) (with_template [<type> <representation> <size> <exception> <in> <out> <writer> <parser> <none>] - [(primitive: .public <type> + [(primitive .public <type> <representation> (exception: .public (<exception> [value Text]) @@ -306,7 +306,7 @@ (def: magic_size Size 7) -(primitive: Magic +(primitive Magic Text (def: ustar @@ -393,7 +393,7 @@ ... devminor (..small_number ..device_size))) -(primitive: Link_Flag +(primitive Link_Flag Char (def: link_flag @@ -441,7 +441,7 @@ (exception.except ..invalid_link_flag [(.nat it)])))))) ) -(primitive: .public Mode +(primitive .public Mode Nat (def: .public mode @@ -529,7 +529,7 @@ (list.repeated ..content_size) (list#mix n.* 1))) -(primitive: .public Content +(primitive .public Content [Big Binary] (def: .public (content content) |