fix presentation of syntax error.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@442 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
be3a996d1e
commit
8202b025ab
|
@ -386,20 +386,20 @@ print_message(Level, Mss) :-
|
|||
'$dump_syntax_error_term'(I1,J1,R).
|
||||
|
||||
'$dump_error_token'(atom(A)) :- !,
|
||||
'$format'(user_error,"~a", [A]).
|
||||
'$format'(user_error," ~a", [A]).
|
||||
'$dump_error_token'(number(N)) :- !,
|
||||
'$format'(user_error,"~w", [N]).
|
||||
'$format'(user_error," ~w", [N]).
|
||||
'$dump_error_token'(var(_,S,_)) :- !,
|
||||
'$format'(user_error,"~s ", [S]).
|
||||
'$format'(user_error," ~s ", [S]).
|
||||
'$dump_error_token'(string(S)) :- !,
|
||||
'$format'(user_error,"""~s""", [S]).
|
||||
'$format'(user_error," ""~s""", [S]).
|
||||
'$dump_error_token'('(') :-
|
||||
'$format'(user_error,"(", []).
|
||||
'$dump_error_token'(')') :-
|
||||
'$format'(user_error," )", []).
|
||||
'$dump_error_token'(',') :-
|
||||
'$format'(user_error," , ", []).
|
||||
'$format'(user_error," ,", []).
|
||||
'$dump_error_token'(A) :-
|
||||
'$format'(user_error," ~a ", [A]).
|
||||
'$format'(user_error," ~a", [A]).
|
||||
|
||||
|
||||
|
|
Reference in New Issue