avoid creeping

This commit is contained in:
Vítor Santos Costa 2016-01-31 10:46:14 +00:00
parent c40899d8ec
commit c428e2256d

View File

@ -541,7 +541,7 @@ be lost.
G10 = NM:NG,
'$do_spy'(NG, NM, CP, spy).
'$spycall'(G, M, _, _) :-
'$tabled_predicate'(G,M),
( '$is_system_predicate'(G,M) ; '$tabled_predicate'(G,M) ),
!,
'$continue_debugging_goal'(no, '$execute_nonstop'(G,M)).
'$spycall'(G, M, CalledFromDebugger, InRedo) :-