summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-05-30 21:23:31 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-05 09:35:11 +0200
commit73e6fc23cdbf3a105fe0bdb895e8863d0180b4dc (patch)
treea410ea1b4e9b97dfeb379930a30771274d93f600
parentbebc45ae90481ca461c6fa0d81c14e4d291f912e (diff)
downloadguile-73e6fc23cdbf3a105fe0bdb895e8863d0180b4dc.tar.gz
Use the SMOB API in `coop-pthreads.c' rather than low-level primitives.
* libguile/coop-pthreads.c: Include "smob.h". (make_thread): Use `SCM_NEWSMOB' rather than `scm_cell'. git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-32
-rw-r--r--libguile/coop-pthreads.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/coop-pthreads.c b/libguile/coop-pthreads.c
index cc3d393bc..2ca8b4f6f 100644
--- a/libguile/coop-pthreads.c
+++ b/libguile/coop-pthreads.c
@@ -31,6 +31,7 @@
#include "libguile/eval.h"
#include "libguile/async.h"
#include "libguile/ports.h"
+#include "libguile/smob.h"
#undef DEBUG
@@ -100,7 +101,8 @@ make_thread (SCM creation_protects)
{
SCM z;
scm_copt_thread *t = scm_gc_malloc (sizeof(*t), "thread");
- z = scm_cell (scm_tc16_thread, (scm_t_bits)t);
+
+ SCM_NEWSMOB (z, t);
t->handle = z;
t->result = creation_protects;
t->base = NULL;