chickadee » input-parse » assert-curr-char

assert-curr-char CHAR-LIST STRING #!optional PORTprocedure

Reads a character from the PORT and looks it up in the CHAR-LIST of expected characters. If the read character was found among expected, it is returned Otherwise, the procedure writes a nasty message using STRING as a comment, and quits.

The optional argument PORT defaults to the current input port.