#endif
#include "libguile/_scm.h"
-#include "libguile/async.h"
#include "libguile/ports.h"
#include "libguile/print.h"
#include "libguile/smob.h"
g = GUARDIAN_DATA (guardian);
- scm_i_pthread_mutex_lock_block_asyncs (&g->mutex);
+ scm_i_pthread_mutex_lock (&g->mutex);
if (g->live == 0)
abort ();
g->live--;
- scm_i_pthread_mutex_unlock_unblock_asyncs (&g->mutex);
+ scm_i_pthread_mutex_unlock (&g->mutex);
}
if (scm_is_true (proxied_finalizer))
void *prev_data;
SCM guardians_for_obj, finalizer_data;
- scm_i_pthread_mutex_lock_block_asyncs (&g->mutex);
+ scm_i_pthread_mutex_lock (&g->mutex);
g->live++;
SCM_SETCAR (finalizer_data, proxied_finalizer);
}
- scm_i_pthread_mutex_unlock_unblock_asyncs (&g->mutex);
+ scm_i_pthread_mutex_unlock (&g->mutex);
}
}
t_guardian *g = GUARDIAN_DATA (guardian);
SCM res = SCM_BOOL_F;
- scm_i_pthread_mutex_lock_block_asyncs (&g->mutex);
+ scm_i_pthread_mutex_lock (&g->mutex);
if (!scm_is_null (g->zombies))
{
g->zombies = SCM_CDR (g->zombies);
}
- scm_i_pthread_mutex_unlock_unblock_asyncs (&g->mutex);
+ scm_i_pthread_mutex_unlock (&g->mutex);
return res;
}