fix debugger

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@706 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-11-26 22:16:30 +00:00
parent 2130f41f44
commit 8264bfeb9e

View File

@ -766,7 +766,7 @@ debugging :-
'$clean_module_for_creep'(G,Mod,TrueMod,TrueG), '$clean_module_for_creep'(G,Mod,TrueMod,TrueG),
'$creep'([TrueMod|TrueG]). '$creep'([TrueMod|TrueG]).
'$creep'([M|'$execute_within'(G)]) :- !, '$creep'([M|'$execute_within'(G)]) :- !,
'$clean_module_for_creep'(G,M,TrueMod), '$clean_module_for_creep'(G,M,TrueMod,TrueG),
'$creep'([TrueMod|TrueG]). '$creep'([TrueMod|TrueG]).
'$creep'([M|'$last_execute_within'(G)]) :- !, '$creep'([M|'$last_execute_within'(G)]) :- !,
'$clean_module_for_creep'(G,M,TrueMod,TrueG), '$clean_module_for_creep'(G,M,TrueMod,TrueG),