681 |
|
|
682 |
SCM |
SCM |
683 |
scm_unlock_mutex (SCM mx) |
scm_unlock_mutex (SCM mx) |
684 |
#define FUNC_NAME s_lock_mutex |
#define FUNC_NAME s_unlock_mutex |
685 |
{ |
{ |
686 |
scm_copt_mutex *m; |
scm_copt_mutex *m; |
687 |
SCM_ASSERT (SCM_MUTEXP (mx), mx, SCM_ARG1, FUNC_NAME); |
SCM_ASSERT (SCM_MUTEXP (mx), mx, SCM_ARG1, FUNC_NAME); |
956 |
|
|
957 |
/*** Select */ |
/*** Select */ |
958 |
|
|
|
#include "libguile/iselect.h" |
|
|
|
|
959 |
int |
int |
960 |
scm_internal_select (int nfds, |
scm_internal_select (int nfds, |
961 |
SELECT_TYPE *readfds, |
SELECT_TYPE *readfds, |