From 625da0328242557553ac2e32fc0a022c0f0c7925 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 24 Aug 2012 15:14:48 -0700
Subject: [PATCH] unicode.case: slightly faster >title.

---
 basis/unicode/case/case.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index e68bf656af..d14c765f4c 100644
--- 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 ;