From 28f593f0a830313fdaca565646dc3d5f3d5fd5d2 Mon Sep 17 00:00:00 2001
From: Ulrich Neumerkel <ulrich@complang.tuwien.ac.at>
Date: Sat, 30 May 2009 20:04:24 +0200
Subject: [PATCH] alarm(0,Any1,Any2) steadfast: Always disables alarm.

---
 pl/signals.yap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pl/signals.yap b/pl/signals.yap
index cdd121ce0..cfc9ca572 100644
--- a/pl/signals.yap
+++ b/pl/signals.yap
@@ -240,8 +240,9 @@ on_signal(Signal,OldAction,Action) :-
 
 alarm(Interval, Goal, Left) :-
 	Interval == 0, !,
+	'$alarm'(0, 0, Left0, _),
 	on_signal(sig_alarm, _, Goal),
-	'$alarm'(Interval, 0, Left, _).
+	Left = Left0.
 alarm(Interval, Goal, Left) :-
 	integer(Interval), !,
 	on_signal(sig_alarm, _, Goal),