sleep sometimes hangs. This is corrected

diff --git a/lang/cem/libcc/gen/sleep.c b/lang/cem/libcc/gen/sleep.c
index ca9a3fa..180ae7c 100644 (file)
--- 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);