tokenCond :: HandleTeXIO m => Bool -> LexerT m [Token]
tokenCond expandMode = parseUntilNonEmpty $ anyWhite <|>
  (if expandMode then ctrlseq else count 1 ctrlseqNoExpand) <|>
  count 1 (charcc Bgroup <|> charcc Egroup <|> param <|> someChar)
tokenCond :: HandleTeXIO m => Bool -> LexerT m [Token]
tokenCond expandMode = parseUntilNonEmpty $ anyWhite <|>
  (if expandMode then ctrlseq else count 1 ctrlseqNoExpand) <|>
  count 1 (charcc Bgroup <|> charcc Egroup <|> param <|> someChar)
tokenCond expandMode = parseUntilNonEmpty $ anyWhite <|>
  (if expandMode then ctrlseq else count 1 ctrlseqNoExpand) <|>
  count 1 (charcc Bgroup <|> charcc Egroup <|> param <|> someChar)