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

when I call from $spy I am not under debugger control.

This commit is contained in:
Vítor Santos de Costa 2008-10-13 15:40:05 +01:00
parent 6692a5888c
commit 45e8b6fc8f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/debug.yap
View File

@ -286,7 +286,7 @@ debugging :-
'$execute'(G,Mod).
'$spy'([Mod|G]) :-
CP is '$last_choice_pt',
'$do_spy'(G, Mod, CP, yes).
'$do_spy'(G, Mod, CP, no).
% last argument to do_spy says that we are at the end of a context. It
% is required to know whether we are controlled by the debugger.
@ -558,8 +558,8 @@ debugging :-
'$debugger_write'(Stream, G) :-
writeq(Stream, G).
'$action'(10,_,_,_,_,on) :-
nb_setval('$debug_jump',false) % newline creep
'$action'(10,_,_,_,_,on) :- % newline creep
nb_setval('$debug_jump',false).
'$action'(0'!,_,_,_,_,_) :- !, % ! 'g execute
read(user,G),
% don't allow yourself to be caught by creep.