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:
parent
90c1641841
commit
714ef7a560
@ -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),
|
||||||
|
Reference in New Issue
Block a user