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 * 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 * it under the terms of the GNU General Public License as published by
@ -210,7 +210,7 @@ scheme_launch_thread (void *p)
&data, &data,
(scm_catch_handler_t) scheme_handler_bootstrip, (scm_catch_handler_t) scheme_handler_bootstrip,
&data, &data,
&thread); (SCM_STACKITEM *) &thread);
scm_thread_count--; scm_thread_count--;
SCM_DEFER_INTS; SCM_DEFER_INTS;
} }
@ -322,7 +322,7 @@ c_launch_thread (void *p)
data, data,
(scm_catch_handler_t) c_handler_bootstrip, (scm_catch_handler_t) c_handler_bootstrip,
data, data,
&thread); (SCM_STACKITEM *) &thread);
scm_thread_count--; scm_thread_count--;
scm_must_free ((char *) data); scm_must_free ((char *) data);
} }