steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unicode: Let upper? lower? etc work with slices by using sequence= instead of =.

locals-and-roots
Doug Coleman 2016-04-10 11:39:18 -07:00
parent 627f8603bd
commit 534c8f1d4d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/unicode/unicode.factor
View File

@ -137,13 +137,13 @@ HINTS: >title string ;
: >case-fold ( string -- fold )
>upper >lower ;
: lower? ( string -- ? ) dup >lower = ;
: lower? ( string -- ? ) dup >lower sequence= ;
: upper? ( string -- ? ) dup >upper = ;
: upper? ( string -- ? ) dup >upper sequence= ;
: title? ( string -- ? ) dup >title = ;
: title? ( string -- ? ) dup >title sequence= ;
: case-fold? ( string -- ? ) dup >case-fold = ;
: case-fold? ( string -- ? ) dup >case-fold sequence= ;
: nfd ( string -- nfd )
[ (nfd) ] with-string ;