mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* threads.h (scm_thread_usleep, scm_thread_sleep): New declarations.

Browse source 
* scmsigs.c (usleep): Clean up oddities declaring usleep; since
we're just using it, not redefining it, we can use a K&R style
declaration here.
(sleep): Declare this, too, if the system hasn't.
(scm_sleep, scm_usleep): Use scm_thread_sleep and
scm_uthread_sleep if they're available; otherwise, just call the
system functions.
* scmconfig.h.in: Regenerated.
This commit is contained in:
Jim Blandy 1998-10-13 23:17:34 +00:00
parent 6aa9316dea
commit b74f472891
3 changed files with 41 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/threads.h
View file

@ -76,6 +76,12 @@ SCM scm_threads_monitor SCM_P ((void));
SCM scm_spawn_thread (scm_catch_body_t body, void *body_data,
scm_catch_handler_t handler, void *handler_data);
/* These are versions of the ordinary sleep and usleep functions,
that play nicely with the thread system. */
SCM unsigned long scm_thread_sleep (unsigned long);
SCM unsigned long scm_thread_usleep (unsigned long);
/* The C versions of the Scheme-visible thread functions. */
#ifdef USE_COOP_THREADS
extern SCM scm_single_thread_p (void);