From aae01edde213b0fb9f1092688b7190ed30e6ea06 Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 8 Oct 2002 14:44:44 +0000 Subject: [PATCH] keep on improving stack dumps. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@629 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/errors.yap | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/pl/errors.yap b/pl/errors.yap index 6e8591d1e..da95b0d68 100644 --- a/pl/errors.yap +++ b/pl/errors.yap @@ -168,6 +168,20 @@ print_message(Level, Mss) :- '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$continue_with_command',_,prolog,ClNo,Gs,NGs) :- !, '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$spycall_stdpred',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$spycalls',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$spycall',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$do_spy',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$do_creep_execute',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$creep_execute',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$direct_spy',_,prolog,ClNo,Gs,NGs) :- !, + '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$system_catch',_,prolog,ClNo,Gs,NGs) :- !, '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$execute_command',_,prolog,ClNo,Gs,NGs) :- !, @@ -186,6 +200,12 @@ print_message(Level, Mss) :- '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$consult',2,prolog,ClNo,Gs,[cl(consult,1,prolog,ClNo)|NGs]) :- !, '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$findall_with_common_vars',_,prolog,ClNo,Gs,[cl(findall,4,prolog,ClNo)|NGs]) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$findall',_,prolog,ClNo,Gs,[cl(findall,4,prolog,ClNo)|NGs]) :- !, + '$preprocess_stack'(Gs, NGs). +'$beautify_hidden_goal'('$bagof',_,prolog,ClNo,Gs,[cl(bagof,3,prolog,ClNo)|NGs]) :- !, + '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$listing',_,prolog,ClNo,Gs,[cl(listing,1,prolog,ClNo)|NGs]) :- !, '$preprocess_stack'(Gs, NGs). '$beautify_hidden_goal'('$call',Args,prolog,ClNo,Gs,[cl(call,Args,prolog,ClNo)|NGs]) :- !,