[racket] color partial lexemes

How do I deal with partial lexemes when using the color:text colorer? It
seems that if my lexer cannot produce a valid token then it will throw
an error and the color thread will keep calling `get-token' in a busy loop.

Is there some magic thing I can return from `get-token' to tell the
colorer that it should not progress to the next position?