fixed error reported by pdewacht: with -l option voc hung if error was

at the last line, and no eol followed. ; -- noch
This commit is contained in:
norayr 2015-11-10 19:52:51 +04:00
parent 815795588b
commit fff1337578

View file

@ -453,7 +453,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
Console.Char(ch); Console.Ln;
*)
UNTIL (j >= linenum) OR (i >= 1022);
UNTIL (j >= linenum) OR (i >= 1022) OR r.eof;
Console.Ln; Console.String(" "); Console.String(line); Console.Ln;