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

expand meta-predicates before trying to debug them.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-17 00:09:23 +00:00
parent 0d23db6b6d
commit 3f30a2bf18
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pl/debug.yap
View File

@ -384,8 +384,15 @@ debugging :-
fail. fail.
% if we are in % if we are in
'$loop_spy2'(GoalNumber, G, Module, CalledFromDebugger, CP) :- '$loop_spy2'(GoalNumber, G0, Module, CalledFromDebugger, CP) :-
/* the following choice point is where the predicate is called */ /* the following choice point is where the predicate is called */
(
'$is_metapredicate'(G0, Module)
->
'$meta_expansion'(G0,Module,Module,Module,G,[])
;
G = G0
),
b_getval('$spy_glist',[info(_,_,_,Retry,Det)|_]), /* get goal list */ b_getval('$spy_glist',[info(_,_,_,Retry,Det)|_]), /* get goal list */
( (
/* call port */ /* call port */