steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "unicode.breaks: use find-index-from instead of slices." 

This reverts commit 0aeb2174fb.
db4
John Benediktsson 2012-08-24 14:10:19 -07:00
parent 8a872a25b5
commit 29a11cc21a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/unicode/breaks/breaks.factor
View File

@ -252,9 +252,9 @@ word-table set-global
PRIVATE> PRIVATE>
: first-word ( str -- i ) : first-word ( str -- i )
[ [ length ] [ first word-break-prop ] bi ] keep [ unclip-slice word-break-prop over ] keep
1 swap dup '[ _ word-break-next ] find-index-from '[ _ word-break-next ] find-index drop
drop nip swap or ; nip swap length or 1 + ;
: >words ( str -- words ) : >words ( str -- words )
[ first-word ] >pieces ; [ first-word ] >pieces ;