mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +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
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) {
int32_t delay;
double delay;
DST_FIXARITY(args, 1);
DST_ARG_INTEGER(delay, args, 0);
DST_ARG_NUMBER(delay, args, 0);
if (delay < 0) {
DST_THROW(args, "invalid argument to sleep");
}
#ifdef DST_WINDOWS
Sleep(delay);
Sleep((DWORD) (delay * 1000));
#else
sleep((unsigned int) delay);
usleep((useconds_t)(delay * 1000000));
#endif
return 0;
}