mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* struct.c, coop-threads.c: SCM_ASSCM/ASWORD fixes.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-12 16:09:34 +00:00
parent e282f286eb
commit b97206b102
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/coop-threads.c
View file

@ -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
@ -210,7 +210,7 @@ scheme_launch_thread (void *p)
&data,
(scm_catch_handler_t) scheme_handler_bootstrip,
&data,
&thread);
(SCM_STACKITEM *) &thread);
scm_thread_count--;
SCM_DEFER_INTS;
}
@ -322,7 +322,7 @@ c_launch_thread (void *p)
data,
(scm_catch_handler_t) c_handler_bootstrip,
data,
&thread);
(SCM_STACKITEM *) &thread);
scm_thread_count--;
scm_must_free ((char *) data);
}