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

fix debugging in the presence of goal_expansion

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@432 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-04-06 05:33:44 +00:00
parent ec120bccac
commit 3ef0b143b0
4 changed files with 34 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
pl/debug.yap
View File

@@ -249,6 +249,10 @@ debugging :-
'$wake_up_goal'(G, LG).
'$spy'([_|Mod:G]) :- !,
'$spy'([Mod|G]).
'$spy'([Module|'$call'(G)]) :- !,
'fetch_goal_module'(G, Module, G1, Mod),
'$expand_goal'(G1, Mod, Module, NG, NM),
'$do_spy'(NG, NM).
'$spy'([Module|G]) :-
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
'$hidden'(G),
@@ -259,7 +263,12 @@ debugging :-
'$spy'([Mod|G]) :-
'$do_spy'(G,Mod).
'fetch_goal_module'(V, M, V, M) :- var(V), !.
'fetch_goal_module'(M:G, _, NG, Mod) :- !,
'fetch_goal_module'(G, M, NG, Mod).
'fetch_goal_module'(G, M, G, M).
'$direct_spy'(G) :-
'$awoken_goals'(LG), !,
'$creep',