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

FIX: '$execute0' should be invisible to creep processing

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-09-22 18:07:50 +01:00
parent bcb6edfb8a
commit 895e29d444
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/signals.yap
View File

@ -17,6 +17,10 @@
:- meta_predicate on_signal(+,?,:), alarm(+,:,-). :- meta_predicate on_signal(+,?,:), alarm(+,:,-).
% '$execute0' should be ignored.
'$creep'([_|'$execute0'(G,M)]) :-
!,
'$creep'([M|G]).
'$creep'(G) :- '$creep'(G) :-
% get the first signal from the mask % get the first signal from the mask
'$first_signal'(Sig), !, '$first_signal'(Sig), !,
@ -32,6 +36,7 @@
'$continue_signals', '$continue_signals',
'$wake_up_goal'(G, LG). '$wake_up_goal'(G, LG).
% never creep on entering system mode!!! % never creep on entering system mode!!!
% don't creep on meta-call.
'$do_signal'(sig_creep, [M|G]) :- '$do_signal'(sig_creep, [M|G]) :-
'$creep_allowed', !, '$creep_allowed', !,
'$start_creep'([M|G]). '$start_creep'([M|G]).