summaryrefslogtreecommitdiff
path: root/libguile/coop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/coop.c')
-rw-r--r--libguile/coop.c6
1 files 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