2008-06-12 06:13:31 -04:00
|
|
|
USING: parser kernel namespaces ;
|
|
|
|
|
|
|
|
|
|
USE: unicode.breaks
|
|
|
|
|
USE: unicode.case
|
|
|
|
|
USE: unicode.categories
|
|
|
|
|
USE: unicode.collation
|
2008-06-12 06:49:46 -04:00
|
|
|
USE: unicode.data
|
2008-06-12 06:13:31 -04:00
|
|
|
USE: unicode.normalize
|
|
|
|
|
USE: unicode.script
|
|
|
|
|
|
|
|
|
|
[ name>char [ "Invalid character" throw ] unless* ]
|
|
|
|
|
name>char-hook set-global
|
