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

unicode.breaks: Rename words to unicode-words

db4
Doug Coleman 2015-06-08 11:48:13 -07:00
parent 1cc9b00b42
commit a318ec1eb0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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
>>