From 2c4e1a3484a5a4ed45894187ef55ef3dec7404f3 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 20 Apr 1998 00:39:15 +0000
Subject: [PATCH] * coop.c: Changed return type of usleep to int.

---
 libguile/coop.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/libguile/coop.c b/libguile/coop.c
index 2dacf2206..8f1202dd2 100644
--- a/libguile/coop.c
+++ b/libguile/coop.c
@@ -40,7 +40,7 @@
  * If you do not wish that, delete this exception notice.  */
 
 
-/* $Id: coop.c,v 1.8 1998-04-12 23:34:40 mdj Exp $ */
+/* $Id: coop.c,v 1.9 1998-04-20 00:39:15 mdj Exp $ */
 
 /* Cooperative thread library, based on QuickThreads */
 
@@ -652,13 +652,15 @@ coop_sleephelp (sp, old, bolckq)
 
 #ifdef GUILE_ISELECT
 
-void
+int
 usleep (unsigned usec)
 {
   struct timeval timeout;
   timeout.tv_sec = 0;
   timeout.tv_usec = usec;
   scm_internal_select (0, NULL, NULL, NULL, &timeout);
+  return 0;  /* Maybe we should calculate actual time slept,
+		but this is faster... :) */
 }
 
 unsigned