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

alarm(0,Any1,Any2) steadfast: Always disables alarm.

Browse Source
This commit is contained in:
Ulrich Neumerkel 2009-05-30 20:04:24 +02:00 committed by Costa Vitor
parent 98fef199bd
commit 28f593f0a8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/signals.yap
View File

@ -240,8 +240,9 @@ on_signal(Signal,OldAction,Action) :-
alarm(Interval, Goal, Left) :- alarm(Interval, Goal, Left) :-
Interval == 0, !, Interval == 0, !,
'$alarm'(0, 0, Left0, _),
on_signal(sig_alarm, _, Goal), on_signal(sig_alarm, _, Goal),
'$alarm'(Interval, 0, Left, _). Left = Left0.
alarm(Interval, Goal, Left) :- alarm(Interval, Goal, Left) :-
integer(Interval), !, integer(Interval), !,
on_signal(sig_alarm, _, Goal), on_signal(sig_alarm, _, Goal),