do not spy hidden predicates
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@134 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
8fd1bc92f3
commit
6f9edf13a4
@ -249,8 +249,11 @@ debugging :-
|
|||||||
'$wake_up_goal'(G, LG).
|
'$wake_up_goal'(G, LG).
|
||||||
'$spy'([Module|G]) :-
|
'$spy'([Module|G]) :-
|
||||||
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
|
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
|
||||||
|
( '$hidden'(G)
|
||||||
|
;
|
||||||
'$system_predicate'(G),
|
'$system_predicate'(G),
|
||||||
'$parent_pred'(0,_,_),
|
'$parent_pred'(0,_,_)
|
||||||
|
),
|
||||||
!,
|
!,
|
||||||
/* called from prolog module */
|
/* called from prolog module */
|
||||||
'$creep',
|
'$creep',
|
||||||
|
Reference in New Issue
Block a user