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

fix bad call to $execute in $spy

Browse Source
This commit is contained in:
Vítor Santos de Costa 2008-10-24 14:26:44 +01:00
parent 0028072865
commit 1b399e3433
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/debug.yap
View File

@ -280,10 +280,10 @@ debugging :-
% $spy may be called from user code, so be careful. % $spy may be called from user code, so be careful.
'$spy'([Mod|G]) :- '$spy'([Mod|G]) :-
'$debug_on'(F), F = false, !, '$debug_on'(F), F = false, !,
'$execute'(G,Mod). '$execute_nonstop'(G,Mod).
'$spy'([Mod|G]) :- '$spy'([Mod|G]) :-
nb_getval('$system_mode',on), !, nb_getval('$system_mode',on), !,
'$execute'(G,Mod). '$execute_nonstop'(G,Mod).
'$spy'([Mod|G]) :- '$spy'([Mod|G]) :-
CP is '$last_choice_pt', CP is '$last_choice_pt',
'$do_spy'(G, Mod, CP, no). '$do_spy'(G, Mod, CP, no).