new debugger code would get lost in meta-calls

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@310 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-18 15:55:33 +00:00
parent 2a156ddf33
commit d70b5be256
3 changed files with 20 additions and 12 deletions

View File

@@ -710,6 +710,14 @@ debugging :-
'$direct_spy'([Module|A]).
%'$creep'(G) :- $current_module(M),write(user_error,[creep,M,G]),nl(user_error),fail.
% skip calls to assembly versions of execute.
'$creep'([_|'$execute_in_mod'(G,ModNum)]) :- !,
'$module_number'(Mod,ModNum),
'$creep'([Mod|G]).
'$creep'([M|'$execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'([M|'$last_execute_within'(G)]) :- !,
'$creep'([M|G]).
'$creep'(G) :-
'$get_value'('$alarm', true), !,
'$set_value'('$alarm', []),