mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 08:40:21 +02:00
Code Activity

* coop.c: fix various preprocessor usages of new public

Browse source 
symbols to expect 0 or 1 values rather than 1 or undefined.
i.e. change #ifdef to #if, etc.
This commit is contained in:
Rob Browning 2003-03-27 20:06:17 +00:00
parent 16a16ad8f7
commit e7dd0639de
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/coop.c
View file

@ -40,7 +40,7 @@
* If you do not wish that, delete this exception notice. */
/* $Id: coop.c,v 1.35 2003-03-25 23:54:01 rlb Exp $ */
/* $Id: coop.c,v 1.36 2003-03-27 20:06:17 rlb Exp $ */
/* Cooperative thread library, based on QuickThreads */
@ -536,10 +536,10 @@ coop_condition_variable_destroy (coop_c *c)
#ifdef GUILE_PTHREAD_COMPAT
/* 1K room for the cond wait routine */
#ifdef SCM_STACK_GROWS_UP
#define COOP_STACK_ROOM (256)
#if SCM_STACK_GROWS_UP
# define COOP_STACK_ROOM (256)
#else
#define COOP_STACK_ROOM (-256)
# define COOP_STACK_ROOM (-256)
#endif
static void *