From 40543746f60cce848d4add2db58b5f34d58018d8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 24 Aug 2012 14:58:05 -0700
Subject: [PATCH] unicode.breaks: removing unused word.

---
 basis/unicode/breaks/breaks.factor | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index 69ba8641ec..539ebc1218 100644
--- 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 ;