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

fixes for notrace predicates.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-05 10:24:44 +01:00
parent 98a471b9d7
commit d1242028d2
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/signals.yap
View File

@ -219,7 +219,17 @@ order of dispatch.
% we may be creeping outside and coming back to system mode. % we may be creeping outside and coming back to system mode.
'$start_creep'([M|G], _) :- '$start_creep'([M|G], _) :-
'$is_no_trace'(G, M), !, '$is_no_trace'(G, M), !,
'$execute0'(G, M). (
'$$save_by'(CP),
'$enable_debugging',
'$execute_nonstop'(G, M),
'$$save_by'(CP2),
'$disable_debugging',
(CP == CP2 -> ! ; ( true ; '$enable_debugging', fail ) )
;
'$disable_debugging',
fail
).
'$start_creep'([Mod|G], WhereFrom) :- '$start_creep'([Mod|G], WhereFrom) :-
CP is '$last_choice_pt', CP is '$last_choice_pt',
'$do_spy'(G, Mod, CP, WhereFrom). '$do_spy'(G, Mod, CP, WhereFrom).