diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-20 00:39:15 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-20 00:39:15 +0000 |
commit | 2c4e1a3484a5a4ed45894187ef55ef3dec7404f3 (patch) | |
tree | 2e48e1ab7e9c7684c4913f68028a80d3e290f9d7 | |
parent | 64e121dca3e38af5588e67650ce3e3f56dcffe68 (diff) | |
download | guile-2c4e1a3484a5a4ed45894187ef55ef3dec7404f3.tar.gz |
* coop.c: Changed return type of usleep to int.
-rw-r--r-- | libguile/coop.c | 6 |
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 |