mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* coop.c (coop_create): removed bogus 2nd argument in scm_malloc

Browse source 
call.
This commit is contained in:
Gary Houston 2002-08-17 20:39:35 +00:00
parent 85835e5991
commit d900cd6dd4
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/coop.c
View file

@ -40,7 +40,7 @@
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
/* $Id: coop.c,v 1.30 2002-08-16 22:01:09 hanwen Exp $ */ /* $Id: coop.c,v 1.31 2002-08-17 20:39:35 ghouston Exp $ */
/* Cooperative thread library, based on QuickThreads */ /* Cooperative thread library, based on QuickThreads */
@ -620,8 +620,7 @@ coop_create (coop_userf_t *f, void *pu)
else else
#endif #endif
{ {
t = scm_malloc (sizeof (coop_t), "coop"); t = scm_malloc (sizeof (coop_t));
t->specific = NULL; t->specific = NULL;
t->n_keys = 0; t->n_keys = 0;
#ifdef GUILE_PTHREAD_COMPAT #ifdef GUILE_PTHREAD_COMPAT