diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix presentation of syntax error.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@442 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-13 04:44:20 +00:00
parent be3a996d1e
commit 8202b025ab
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/errors.yap
View File

@ -386,20 +386,20 @@ print_message(Level, Mss) :-
'$dump_syntax_error_term'(I1,J1,R). '$dump_syntax_error_term'(I1,J1,R).
'$dump_error_token'(atom(A)) :- !, '$dump_error_token'(atom(A)) :- !,
'$format'(user_error,"~a", [A]). '$format'(user_error," ~a", [A]).
'$dump_error_token'(number(N)) :- !, '$dump_error_token'(number(N)) :- !,
'$format'(user_error,"~w", [N]). '$format'(user_error," ~w", [N]).
'$dump_error_token'(var(_,S,_)) :- !, '$dump_error_token'(var(_,S,_)) :- !,
'$format'(user_error,"~s ", [S]). '$format'(user_error," ~s ", [S]).
'$dump_error_token'(string(S)) :- !, '$dump_error_token'(string(S)) :- !,
'$format'(user_error,"""~s""", [S]). '$format'(user_error," ""~s""", [S]).
'$dump_error_token'('(') :- '$dump_error_token'('(') :-
'$format'(user_error,"(", []). '$format'(user_error,"(", []).
'$dump_error_token'(')') :- '$dump_error_token'(')') :-
'$format'(user_error," )", []). '$format'(user_error," )", []).
'$dump_error_token'(',') :- '$dump_error_token'(',') :-
'$format'(user_error," , ", []). '$format'(user_error," ,", []).
'$dump_error_token'(A) :- '$dump_error_token'(A) :-
'$format'(user_error," ~a ", [A]). '$format'(user_error," ~a", [A]).