fix the way undefined errors are processed if we have stack info.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@801 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-03-20 14:22:08 +00:00
parent af6ac94451
commit 5ab43f8afc
1 changed files with 1 additions and 1 deletions

View File

@ -56,7 +56,7 @@ print_message(Level, Mss) :-
'$format'(user_error,"[ No handler for error ~w ]~n", [error(Msg,Info)]).
'$print_message'(error,error(syntax_error(A,B,C,D,E,F),_)) :- !,
'$output_error_message'(syntax_error(A,B,C,D,E,F), 'SYNTAX ERROR').
'$print_message'(error,error(Msg,[Info|local_sp(Where,Envs,CPs)])) :- !,
'$print_message'(error,error(Msg,[Info|local_sp(Where,Envs,CPs)])) :-
'$prepare_loc'(Info,Where,Location),
'$output_error_message'(Msg, Location), !,
'$do_stack_dump'(Envs, CPs).