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

View File

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