USING: kernel locals sequences ;

IN: unicode.breaks.private

:: word-break-next
( old-class new-char i str -- next-class ? )
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 ;