mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-27 14:22:57 +00:00
Code Issues 1 Releases Wiki Activity

Sleep can take non integer times in seconds.

Browse Source
This commit is contained in:
Calvin Rose 2018-07-05 12:55:11 -04:00
parent 944ee5a9fb
commit bfd0c08c8f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/os.c
View File

@ -98,16 +98,16 @@ static int os_clock(DstArgs args) {
} }
static int os_sleep(DstArgs args) { static int os_sleep(DstArgs args) {
int32_t delay; double delay;
DST_FIXARITY(args, 1); DST_FIXARITY(args, 1);
DST_ARG_INTEGER(delay, args, 0); DST_ARG_NUMBER(delay, args, 0);
if (delay < 0) { if (delay < 0) {
DST_THROW(args, "invalid argument to sleep"); DST_THROW(args, "invalid argument to sleep");
} }
#ifdef DST_WINDOWS #ifdef DST_WINDOWS
Sleep(delay); Sleep((DWORD) (delay * 1000));
#else #else
sleep((unsigned int) delay); usleep((useconds_t)(delay * 1000000));
#endif #endif
return 0; return 0;
} }