do not creep in k and t

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1733 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-12-14 09:15:18 +00:00
parent 90c1641841
commit 714ef7a560

View File

@ -448,6 +448,11 @@ debugging :-
% %
'$spycall'(G, M, _) :-
nb_getval('$debug_run',StopPoint),
StopPoint \= off,
!,
'$execute_nonstop'(G, M).
'$spycall'(G, M, _) :- '$spycall'(G, M, _) :-
'$system_predicate'(G,M), '$system_predicate'(G,M),
\+ '$is_metapredicate'(G,M), \+ '$is_metapredicate'(G,M),