From ed618cc9c1f0018889323f9fc7d5e3e7a7b6cd1c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 2 Nov 2001 00:16:57 +0000 Subject: Made `usleep()' avalable on MinGW. --- libguile/scmsigs.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'libguile/scmsigs.c') diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index 93f806a33..55439f2e5 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -81,6 +81,7 @@ int usleep (); #define alarm(sec) (0) /* This weird comma expression is because Sleep is void under Windows. */ #define sleep(sec) (Sleep ((sec) * 1000), 0) +#define usleep(usec) (Sleep ((usec) / 1000), 0) #define kill(pid, sig) raise (sig) #endif @@ -534,7 +535,7 @@ SCM_DEFINE (scm_sleep, "sleep", 1, 0, 0, } #undef FUNC_NAME -#if defined(USE_THREADS) || defined(HAVE_USLEEP) +#if defined(USE_THREADS) || defined(HAVE_USLEEP) || defined(__MINGW32__) SCM_DEFINE (scm_usleep, "usleep", 1, 0, 0, (SCM i), "Sleep for I microseconds. @code{usleep} is not available on\n" @@ -562,7 +563,7 @@ SCM_DEFINE (scm_usleep, "usleep", 1, 0, 0, #endif } #undef FUNC_NAME -#endif /* GUILE_ISELECT || HAVE_USLEEP */ +#endif /* USE_THREADS || HAVE_USLEEP || __MINGW32__ */ SCM_DEFINE (scm_raise, "raise", 1, 0, 0, (SCM sig), -- cgit v1.2.3