when I call from $spy I am not under debugger control.
This commit is contained in:
parent
6692a5888c
commit
45e8b6fc8f
|
@ -286,7 +286,7 @@ debugging :-
|
||||||
'$execute'(G,Mod).
|
'$execute'(G,Mod).
|
||||||
'$spy'([Mod|G]) :-
|
'$spy'([Mod|G]) :-
|
||||||
CP is '$last_choice_pt',
|
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
|
% 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.
|
% is required to know whether we are controlled by the debugger.
|
||||||
|
@ -558,8 +558,8 @@ debugging :-
|
||||||
'$debugger_write'(Stream, G) :-
|
'$debugger_write'(Stream, G) :-
|
||||||
writeq(Stream, G).
|
writeq(Stream, G).
|
||||||
|
|
||||||
'$action'(10,_,_,_,_,on) :-
|
'$action'(10,_,_,_,_,on) :- % newline creep
|
||||||
nb_setval('$debug_jump',false) % newline creep
|
nb_setval('$debug_jump',false).
|
||||||
'$action'(0'!,_,_,_,_,_) :- !, % ! 'g execute
|
'$action'(0'!,_,_,_,_,_) :- !, % ! 'g execute
|
||||||
read(user,G),
|
read(user,G),
|
||||||
% don't allow yourself to be caught by creep.
|
% don't allow yourself to be caught by creep.
|
||||||
|
|
Reference in New Issue