do not spy hidden predicates

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@134 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-08-09 14:00:13 +00:00 · 2001-08-09 14:00:13 +00:00 · 6f9edf13a4
commit 6f9edf13a4
parent 8fd1bc92f3
1 changed files with 4 additions and 1 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@ -249,8 +249,11 @@ debugging :-
 	'$wake_up_goal'(G, LG).
 '$spy'([Module|G]) :-
 %    '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
+         ( '$hidden'(G)
+	 ;
        '$system_predicate'(G),
-	'$parent_pred'(0,_,_),
+	'$parent_pred'(0,_,_)
+	 ),
         !,
 	 /* called from prolog module   */
 	 '$creep',