unicode.data: inline category#.

db4
John Benediktsson 2012-09-11 20:21:31 -07:00
parent ce63288c07
commit 61707f1e5c
1 changed files with 1 additions and 1 deletions

View File

@ -71,7 +71,7 @@ PRIVATE>
[ drop 26 ] [ [ drop 26 ] [
0xE0100 0xE01EF between? 5 29 ? 0xE0100 0xE01EF between? 5 29 ?
] if ] if
] ?if ; ] ?if ; inline
: category ( char -- category ) : category ( char -- category )
category# categories nth ; category# categories nth ;