From 29a11cc21a1fd56fdf03f8a0ed1b8f58dc9cfc0c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 24 Aug 2012 14:10:19 -0700
Subject: [PATCH] Revert "unicode.breaks: use find-index-from instead of
 slices."

This reverts commit 0aeb2174fb9cd0e91b774cf212507d3274693f99.
---
 basis/unicode/breaks/breaks.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index ed16295649..914e3f2f86 100644
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -252,9 +252,9 @@ word-table set-global
 PRIVATE>
 
 : first-word ( str -- i )
-    [ [ length ] [ first word-break-prop ] bi ] keep
-    1 swap dup '[ _ word-break-next ] find-index-from
-    drop nip swap or ;
+    [ unclip-slice word-break-prop over ] keep
+    '[ _ word-break-next ] find-index drop
+    nip swap length or 1 + ;
 
 : >words ( str -- words )
     [ first-word ] >pieces ;