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

more fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2176 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-03-31 22:56:22 +00:00
parent 407b94d5b6
commit 5b6e8e742b
9 changed files with 50 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/debug.yap
View File

@@ -122,16 +122,22 @@
'$pred_being_spied'(G, M) :-
recorded('$spy','$spy'(G,M),_), !.
spy Spec :-
prolog:debug_action_hook(spy(Spec)), !.
spy L :-
'$current_module'(M),
'$suspy'(L, spy, M), fail.
spy _ :- debug.
nospy Spec :-
prolog:debug_action_hook(nospy(Spec)), !.
nospy L :-
'$current_module'(M),
'$suspy'(L, nospy, M), fail.
nospy _.
nospyall :-
prolog:debug_action_hook(nospyall), !.
nospyall :-
recorded('$spy','$spy'(T,M),_), functor(T,F,N), '$suspy'(F/N,nospy,M), fail.
nospyall.
@@ -222,6 +228,8 @@ leash(X) :-
-----------------------------------------------------------------------------*/
debugging :-
prolog:debug_action_hook(nospyall), !.
debugging :-
( nb_getval('$debug',on) ->
print_message(help,debug(debug))