classify-position in color:text<%>
( -> symbol
send a-color:text classify-position position)
position : natural-number?
Return a symbol for the lexer-determined token type for the token that
contains the item after position.
Must only be called while the tokenizer is started.