Function Expect-Token

Part of:

package org.rl-community.rl-glue-utils
( expect-token < expected-token > )
Checks whether the EXPECTED-TOKEN and the FOUND tokens are equal,
and emits a restartable parse error if not.