12 lines
242 B
Factor
12 lines
242 B
Factor
|
USING: parser kernel namespaces ;
|
||
|
|
|
||
|
|
USE: unicode.breaks
|
||
|
|
USE: unicode.case
|
||
|
|
USE: unicode.categories
|
||
|
|
USE: unicode.collation
|
||
|
|
USE: unicode.normalize
|
||
|
|
USE: unicode.script
|
||
|
|
|
||
|
|
[ name>char [ "Invalid character" throw ] unless* ]
|
||
|
|
name>char-hook set-global
|