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

Placating Slava (2)

db4
Daniel Ehrenberg 2009-01-15 16:46:57 -06:00
parent 79d4bb04e9
commit 11b9dbfcd5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -199,8 +199,8 @@ to: word-table
: walk-down ( str i -- j ) : walk-down ( str i -- j )
dupd (walk-down) [ 1- (walk-down) ] [ drop f ] if* ; dupd (walk-down) [ 1- (walk-down) ] [ drop f ] if* ;
: word-break? ( table-entry i str -- ? ) : word-break? ( str i table-entry -- ? )
spin { {
{ t [ 2drop f ] } { t [ 2drop f ] }
{ f [ 2drop t ] } { f [ 2drop t ] }
{ check-letter-after { check-letter-after
@ -214,10 +214,10 @@ to: word-table
} case ; } case ;
:: word-break-next ( old-class new-char i str -- next-class ? ) :: word-break-next ( old-class new-char i str -- next-class ? )
new-char dup format/extended? new-char format/extended?
[ drop old-class dup { 1 2 3 } member? ] [ [ old-class dup { 1 2 3 } member? ] [
word-break-prop old-class over word-table-nth new-char word-break-prop old-class over word-table-nth
i str word-break? [ str i ] dip word-break?
] if ; ] if ;
PRIVATE> PRIVATE>