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

* coop.c (COOP_STKSIZE): Use SCM_EVAL_STACK.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-03-30 21:02:31 +00:00
parent 0e929db3d1
commit 51d394a1c5
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/coop.c
View file

@ -40,13 +40,15 @@
* 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.6 1998-02-06 18:55:25 mdj Exp $ */ /* $Id: coop.c,v 1.7 1998-03-30 21:02:31 mdj Exp $ */
/* Cooperative thread library, based on QuickThreads */ /* Cooperative thread library, based on QuickThreads */
#include <qt.h> #include <qt.h>
#include "eval.h"
#define COOP_STKSIZE (0x10000) /* #define COOP_STKSIZE (0x10000) */
#define COOP_STKSIZE (SCM_EVAL_STACK)
/* `alignment' must be a power of 2. */ /* `alignment' must be a power of 2. */
#define COOP_STKALIGN(sp, alignment) \ #define COOP_STKALIGN(sp, alignment) \