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

Add ch-upper? and ch-lower? words

db4
Doug Coleman 2010-10-03 10:33:52 -05:00
parent 24abb667fe
commit 78cb1140f4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/unicode/case/case.factor
View File

@ -122,6 +122,10 @@ HINTS: >title string ;
: >case-fold ( string -- fold ) : >case-fold ( string -- fold )
>upper >lower ; >upper >lower ;
: ch-lower? ( ch -- ? ) dup ch>lower = ;
: ch-upper? ( ch -- ? ) dup ch>upper = ;
: lower? ( string -- ? ) dup >lower = ; : lower? ( string -- ? ) dup >lower = ;
: upper? ( string -- ? ) dup >upper = ; : upper? ( string -- ? ) dup >upper = ;