X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=error.c;h=4f65cc42c50abc9601a051d688b508d51a99553e;hp=300a07e9daabcb3851381ea568e0fe5fa91701ba;hb=75969398d9b8a9f82ea76fc4e4cbfb97b11160a4;hpb=b10167d55798ea184f97fafda075255c0852f3b6;ds=sidebyside diff --git a/error.c b/error.c index 300a07e..4f65cc4 100644 --- a/error.c +++ b/error.c @@ -22,8 +22,14 @@ static long unused; // For supressing 'write' warnings // int at_eol(void) { + char msg[256]; + if (*tok != EOL) - error("syntax error"); + { +// error("syntax error"); + sprintf(msg, "syntax error. expected EOL, found $%X ('%c')", *tok, *tok); + error(msg); + } return 0; }