Cyclone Scheme  0.28.0

◆ CK_ARRAY_FOREACH

#define CK_ARRAY_FOREACH (   a,
  i,
 
)
Value:
pthread_mutex_lock(&((a)->lock)); \
int tmpc = (a)->hs->nitems; \
void **tmp = alloca(sizeof(void *) * tmpc); \
hashset_to_array((a)->hs, tmp); \
pthread_mutex_unlock(&((a)->lock)); \
if (tmpc > 0) { (*b) = tmp[0]; } \
for (unsigned int _ck_i = 0; \
_ck_i < tmpc; \
_ck_i++, (*b) = tmp[_ck_i])