diff options
Diffstat (limited to 'stdlib/source/library/lux/data/text/unicode/set.lux')
-rw-r--r-- | stdlib/source/library/lux/data/text/unicode/set.lux | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/data/text/unicode/set.lux b/stdlib/source/library/lux/data/text/unicode/set.lux index 0a5aa6ce8..ab5d978b6 100644 --- a/stdlib/source/library/lux/data/text/unicode/set.lux +++ b/stdlib/source/library/lux/data/text/unicode/set.lux @@ -26,10 +26,12 @@ @)) -(abstract: #export Set +(abstract: .public Set + {} + (Tree :@: Block []) - (def: #export (compose left right) + (def: .public (compose left right) (-> Set Set Set) (:abstraction (\ builder branch @@ -41,7 +43,7 @@ (:abstraction (\ builder leaf block []))) - (def: #export (set [head tail]) + (def: .public (set [head tail]) (-> [Block (List Block)] Set) (list\fold (: (-> Block Set Set) (function (_ block set) @@ -150,7 +152,7 @@ //block.hangul_syllables )])) - (def: #export character + (def: .public character Set ($_ ..compose ..character/0 @@ -158,7 +160,7 @@ ..character/2 )) - (def: #export non_character + (def: .public non_character Set (..set [//block.high_surrogates (list //block.high_private_use_surrogates @@ -193,26 +195,26 @@ ## //block.tags )])) - (def: #export full + (def: .public full Set ($_ ..compose ..character ..non_character )) - (def: #export start + (def: .public start (-> Set Char) (|>> :representation tree.tag //block.start)) - (def: #export end + (def: .public end (-> Set Char) (|>> :representation tree.tag //block.end)) - (def: #export (member? set character) + (def: .public (member? set character) (-> Set Char Bit) (loop [tree (:representation set)] (if (//block.within? (tree.tag tree) character) @@ -225,7 +227,7 @@ (recur right))) false))) - (implementation: #export equivalence + (implementation: .public equivalence (Equivalence Set) (def: (= reference subject) @@ -234,7 +236,7 @@ ) (template [<name> <blocks>] - [(def: #export <name> + [(def: .public <name> Set (..set <blocks>))] |