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

fix leap over meta-predicates.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-12-19 21:57:40 +00:00
parent 168a6366f8
commit 95281f78ee
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

@ -191,11 +191,21 @@
Run \= off, Run \= off,
'$zip'(-1, G, Mod), !, '$zip'(-1, G, Mod), !,
'$signal_creep', '$signal_creep',
'$execute_nonstop'(G,Mod). '$execute_goal'(G, Mod).
'$start_creep'([Mod|G]) :- '$start_creep'([Mod|G]) :-
CP is '$last_choice_pt', CP is '$last_choice_pt',
'$do_spy'(G, Mod, CP, no). '$do_spy'(G, Mod, CP, no).
'$execute_goal'(G, Mod) :-
(
'$is_metapredicate'(G, Mod)
->
'$meta_call'(G,Mod)
;
'$execute_nonstop'(G,Mod)
).
'$signal_do'(Sig, Goal) :- '$signal_do'(Sig, Goal) :-
recorded('$signal_handler', action(Sig,Goal), _), !. recorded('$signal_handler', action(Sig,Goal), _), !.
'$signal_do'(Sig, Goal) :- '$signal_do'(Sig, Goal) :-