From 08ad853ac5abd364c3274f88439f55bec357b4d3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 23 Apr 1987 15:20:41 +0000
Subject: [PATCH] sleep sometimes hangs. This is corrected

---
 lang/cem/libcc/gen/sleep.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lang/cem/libcc/gen/sleep.c b/lang/cem/libcc/gen/sleep.c
index ca9a3fa99..180ae7cec 100644
--- a/lang/cem/libcc/gen/sleep.c
+++ b/lang/cem/libcc/gen/sleep.c
@@ -26,9 +26,9 @@ sleep(n)
 				   enough
 				*/
   if (oldalarm > n) oldalarm -= n;
-  else {
-	n = oldalarm;
-	oldalarm = 1;
+  else if (oldalarm) {
+		n = oldalarm;
+		oldalarm = 1;
   }
   oldsig = signal(SIGALRM, alfun);
   alarm(n);
-- 
2.34.1