fix syntax error handling.

This commit is contained in:
Vítor Santos Costa 2011-11-08 15:30:06 +00:00
parent 64dded4a53
commit a90eaa4937
1 changed files with 2 additions and 0 deletions

View File

@ -281,6 +281,8 @@ system_message(error(signal(SIG,_), _)) -->
[ 'UNEXPECTED SIGNAL: ~a' - [SIG] ].
system_message(error(syntax_error(G,_,Msg,[],_,0,File), _)) -->
[ 'SYNTAX ERROR at "~a", goal ~q: ~a' - [File,G,Msg] ].
system_message(error(syntax_error(end_of_clause), stream(Stream, Line, _, _))) -->
[ 'SYNTAX ERROR ~a, stream ~w, near line ~d.' - ['Unexpected end of clause',Stream,Line] ].
system_message(error(syntax_error(read(_),_,_,Term,Pos,Start,File), Where)) -->
{ Term = [_|_] },
['~w' - [Where]],