From 31bc6de36a870fee223097f86a8aa4deaaa65b99 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 29 Mar 2000 01:58:17 +0000 Subject: [PATCH] * threads.c (scm_init_threads): Pass 0 size to scm_make_smob_type for scm_tc16_thread. As the current COOP threads are written, GC is not supposed to manage storage for threads. --- libguile/threads.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/threads.c b/libguile/threads.c index e94b72b28..2ee9dc1ef 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -147,7 +147,7 @@ SCM_REGISTER_PROC(s_signal_condition_variable, "signal-condition-variable", 1, 0 void scm_init_threads (SCM_STACKITEM *i) { - scm_tc16_thread = scm_make_smob_type ("thread", sizeof (coop_t)); + scm_tc16_thread = scm_make_smob_type ("thread", 0); scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c));