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

Another cleanup

db4
Slava Pestov 2008-05-22 17:43:51 -05:00
parent e22bc69461
commit eee90b69c4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/strings/lib/lib.factor
View File

@ -3,9 +3,7 @@ strings unicode.case ;
IN: strings.lib IN: strings.lib
: >Upper ( str -- str ) : >Upper ( str -- str )
dup empty? [ dup empty? [ unclip ch>upper prefix ] unless ;
unclip ch>upper 1string prepend
] unless ;
: >Upper-dashes ( str -- str ) : >Upper-dashes ( str -- str )
"-" split [ >Upper ] map "-" join ; "-" split [ >Upper ] map "-" join ;