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

fixes to modules and debugger

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@220 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-12-10 05:37:39 +00:00
parent 2ea16c2512
commit 373a5439fa
10 changed files with 50 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
pl/debug.yap
View File

@@ -723,24 +723,13 @@ debugging :-
'$creep_call'([A|B],Module,_) :- !,
'$direct_spy'([Module|[A|B]]).
'$creep_call'(A,Module,CP) :-
'$undefined'(A,Module), !,
'$creep_call_undefined'(A,Module,CP).
'$undefined'(A,Module),
functor(A,F,N),
'$recorded'('$import','$import'(S,Module,F,N),_), !,
'$creep_call'(A,S,CP).
'$creep_call'(A,Module,_) :-
'$direct_spy'([Module|A]).
'$creep_call_undefined'(A,M,CP) :-
functor(A,F,N),
'$recorded'('$import','$import'(S,M,F,N),_), !,
'$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'(NG,NM,CP) ;
'$is_dynamic'(G, M) -> fail ;
'$recorded'('$unknown','$unknown'(M:G,US),_),
'$creep_call'(US,M,CP)
).
%'$creep'(G) :- $current_module(M),write(user_error,[creep,M,G]),nl(user_error),fail.
'$creep'(G) :-
'$get_value'('$alarm', true), !,