diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor index 8d8f7c0130..c6460c8edd 100644 --- a/basis/unicode/breaks/breaks.factor +++ b/basis/unicode/breaks/breaks.factor @@ -153,7 +153,7 @@ CONSTANT: wMidNum 9 CONSTANT: wMidNumLet 10 CONSTANT: wNumeric 11 CONSTANT: wExtendNumLet 12 -CONSTANT: words 13 +CONSTANT: unicode-words 13 ! Is there a way to avoid this? CONSTANT: word-break-classes H{ @@ -182,8 +182,8 @@ SYMBOL: check-number-after : make-word-table ( -- ) { wCR } { wLF } connect - { wNewline wCR wLF } words iota disconnect - words iota { wNewline wCR wLF } disconnect + { wNewline wCR wLF } unicode-words iota disconnect + unicode-words iota { wNewline wCR wLF } disconnect { wALetter } { wMidLetter wMidNumLet } check-letter-after set-table { wMidLetter wMidNumLet } { wALetter } check-letter-before set-table { wNumeric wALetter } { wNumeric wALetter } connect @@ -199,7 +199,7 @@ SYMBOL: check-number-after ] map ; "word-table" create-in -words init-table table +unicode-words init-table table [ make-word-table finish-word-table ] with-variable define-constant >>