diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debugger fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@218 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-12-07 20:27:03 +00:00
parent 2945f1cafa
commit 43550a67a8
5 changed files with 23 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
pl/debug.yap
View File

@@ -247,6 +247,8 @@ debugging :-
'$awoken_goals'(LG), !,
'$creep',
'$wake_up_goal'(G, LG).
'$spy'([_|Mod:G]) :- !,
'$spy'([Mod|G]).
'$spy'([Module|G]) :-
% '$format'(user_error,"$spym(~w,~w)~n",[Module,G]),
( '$hidden'(G)
@@ -729,14 +731,14 @@ debugging :-
'$creep_call_undefined'(A,M,CP) :-
functor(A,F,N),
'$recorded'('$import','$import'(S,M,F,N),_), !,
'$creep_call'(S:A,CP).
'$creep_call_undefined'(G, M, _) :-
'$creep_call'(A,S,CP).
'$creep_call_undefined'(G, M, CP) :-
( \+ '$undefined'(unknown_predicate_handler(_,_,_), user),
user:unknown_predicate_handler(G,NM,NG) ->
'$creep_call'(NM:NG) ;
'$creep_call'(NG,NM,CP) ;
'$is_dynamic'(G, M) -> fail ;
'$recorded'('$unknown','$unknown'(M:G,US),_),
'$creep_call'(user:US,_)
'$creep_call'(US,M,CP)
).
%'$creep'(G) :- $current_module(M),write(user_error,[creep,M,G]),nl(user_error),fail.