unicode.case: slightly faster >title.

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index e68bf656afce4e0e88d7287b5c113e7d97657b79..d14c765f4cf10a937c70320f7f8118bb72b2ce95 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -107,10 +107,11 @@ HINTS: >upper string ;
 PRIVATE>
 
 : capitalize ( string -- title )
-    unclip 1string [ >lower ] [ (>title) ] bi* prepend ; inline
+    unclip-slice 1string [ >lower ] [ (>title) ] bi*
+    "" prepend-as ; inline
 
 : >title ( string -- title )
-    final-sigma >words [ capitalize ] map concat ;
+    final-sigma >words [ capitalize ] map! concat ;
 
 HINTS: >title string ;