//
// Report error if not at EOL
+// N.B.: Since this should *never* happen, we can feel free to add whatever
+// diagnostics that will help in tracking down a problem to this function.
//
int at_eol(void)
{
if (*tok != EOL)
+ {
error("syntax error. expected EOL, found $%X ('%c')", *tok, *tok);
+ printf("Token = ");
+ DumpToken(*tok);
+ printf("\n");
+ DumpTokenBuffer();
+ }
return 0;
}