unicode.breaks: removing unused word.

2012-08-24 14:58:05 -07:00 · 2012-08-24 14:58:05 -07:00 · 17008536a6
parent eef5aea9a7
commit 17008536a6
1 changed files with 0 additions and 5 deletions
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@ -256,11 +256,6 @@ PRIVATE>
    1 swap dup '[ _ word-break-next ] find-index-from
    drop nip swap or ;

-: first-word2 ( str -- i )
-    [ unclip-slice word-break-prop over ] keep
-    '[ _ word-break-next ] find-index drop
-    nip swap length or 1 + ;
-
 : >words ( str -- words )
    [ first-word ] >pieces ;