summaryrefslogtreecommitdiff
path: root/libguile/coop-threads.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/coop-threads.c')
-rw-r--r--libguile/coop-threads.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index 95498b310..a3f4018e0 100644
--- a/libguile/coop-threads.c
+++ b/libguile/coop-threads.c
@@ -257,7 +257,7 @@ scm_call_with_new_thread (SCM argl)
/* Allocate thread locals. */
root = scm_make_root (scm_root->handle);
/* Make thread. */
- thread = scm_alloc_cell (scm_tc16_thread, 0);
+ thread = scm_cell (scm_tc16_thread, 0);
SCM_DEFER_INTS;
argl = scm_cons (thread, argl);
/* Note that we couldn't pass a pointer to argl as data since the
@@ -343,7 +343,7 @@ scm_spawn_thread (scm_t_catch_body body, void *body_data,
/* Allocate thread locals. */
root = scm_make_root (scm_root->handle);
/* Make thread. */
- thread = scm_alloc_cell (scm_tc16_thread, 0);
+ thread = scm_cell (scm_tc16_thread, 0);
SCM_DEFER_INTS;
data->u.thread = thread;