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

unicode.breaks: removing unused word.

db4
John Benediktsson 2012-08-24 14:58:05 -07:00
parent eef5aea9a7
commit 17008536a6
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -256,11 +256,6 @@ PRIVATE>
1 swap dup '[ _ word-break-next ] find-index-from 1 swap dup '[ _ word-break-next ] find-index-from
drop nip swap or ; 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 ) : >words ( str -- words )
[ first-word ] >pieces ; [ first-word ] >pieces ;