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

unicode.case: rename title-word to capitalize and make it public

db4
Joe Groff 2010-01-22 15:06:04 -08:00
parent 77385e8715
commit f0f3252113
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/case/case.factor
View File

@ -109,13 +109,13 @@ HINTS: >upper string ;
lt? [ lithuanian>upper ] when lt? [ lithuanian>upper ] when
[ title>> ] [ ch>title ] map-case ; inline [ title>> ] [ ch>title ] map-case ; inline
: title-word ( string -- title )
unclip 1string [ >lower ] [ (>title) ] bi* prepend ; inline
PRIVATE> PRIVATE>
: capitalize ( string -- title )
unclip 1string [ >lower ] [ (>title) ] bi* prepend ; inline
: >title ( string -- title ) : >title ( string -- title )
final-sigma >words [ title-word ] map concat ; final-sigma >words [ capitalize ] map concat ;
HINTS: >title string ; HINTS: >title string ;