From 73e6fc23cdbf3a105fe0bdb895e8863d0180b4dc Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Tue, 30 May 2006 21:23:31 +0000 Subject: [PATCH] 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 --- libguile/coop-pthreads.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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;