From 95427488d6ef4a3d1512a8fd8f79e0314a6b1c26 Mon Sep 17 00:00:00 2001
From: Theofrastos Mantadelis <theo@herbie.cs.kuleuven.be>
Date: Tue, 1 Feb 2011 18:11:36 +0100
Subject: [PATCH] ...

---
 library/c_alarms.yap | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/library/c_alarms.yap b/library/c_alarms.yap
index 5c442aa7b..e34dd9eaf 100644
--- a/library/c_alarms.yap
+++ b/library/c_alarms.yap
@@ -275,10 +275,13 @@ unset_alarm(ID):-
 unset_alarm(ID):-
   alarm(0, true, Remaining),
   bb_get(alarms, Alarms),
+  [alarm(Seconds, _, _)|_] = Alarms,
+  Elapsed is Seconds - Remaining - 1,
   delete_alarm(Alarms, ID, NewAlarms),
   bb_put(alarms, NewAlarms),
-  (NewAlarms = [alarm(Seconds, _, _)|_] ->
-    alarm(Seconds, alarm_handler, _)
+  (NewAlarms = [alarm(NewSeconds, _, _)|_] ->
+    RemainingSeconds is NewSeconds - Elapsed,
+    alarm(RemainingSeconds, alarm_handler, _)
   ;
     true
   ).