Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 13:49:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #233 from 0-8-15/patch-1

Browse source 
Update runtime.c
This commit is contained in:
Justin Ethier 2017-11-13 22:21:15 -05:00 • committed by GitHub
commit 2911c88a7b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -5688,15 +5688,15 @@ void Cyc_exit_thread(gc_thread_data * thd)
pthread_exit(NULL); // For now, just a proof of concept pthread_exit(NULL); // For now, just a proof of concept
} }
// For now, accept a number of milliseconds to sleep // Accept a number of seconds to sleep according to SRFI-18
object Cyc_thread_sleep(void *data, object timeout) object Cyc_thread_sleep(void *data, object timeout)
{ {
struct timespec tim; struct timespec tim;
long value; long value;
Cyc_check_num(data, timeout); Cyc_check_num(data, timeout);
value = unbox_number(timeout); value = unbox_number(timeout);
tim.tv_sec = value / 1000; tim.tv_sec = value;
tim.tv_nsec = (value % 1000) * NANOSECONDS_PER_MILLISECOND; tim.tv_nsec = (value % 1000000) * NANOSECONDS_PER_MILLISECOND;
nanosleep(&tim, NULL); nanosleep(&tim, NULL);
return boolean_t; return boolean_t;
} }