Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing boehm build

Browse source
This commit is contained in:
Alex Shinn 2011-01-09 16:08:56 +09:00
parent 8a5dbdd8d6
commit 29a96ccd8a
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eval.c
View file

@ -392,7 +392,7 @@ sexp sexp_make_child_context (sexp ctx, sexp lambda) {
sexp_context_stack(ctx), sexp_context_stack(ctx),
sexp_context_env(ctx), sexp_context_env(ctx),
0, 0,
sexp_context_heap(ctx)->max_size); sexp_context_max_size(ctx));
if (! sexp_exceptionp(res)) { if (! sexp_exceptionp(res)) {
sexp_context_lambda(res) = lambda; sexp_context_lambda(res) = lambda;
sexp_context_top(res) = sexp_context_top(ctx); sexp_context_top(res) = sexp_context_top(ctx);

6
include/chibi/sexp.h
View file

@ -813,9 +813,11 @@ SEXP_API sexp sexp_make_unsigned_integer(sexp ctx, sexp_luint_t x);
#if ! SEXP_USE_BOEHM #if ! SEXP_USE_BOEHM
SEXP_API sexp_heap sexp_global_heap; SEXP_API sexp_heap sexp_global_heap;
#endif #endif
#define sexp_context_heap(ctx) sexp_global_heap #define sexp_context_heap(ctx) sexp_global_heap
#define sexp_context_max_size(ctx) 0
#else #else
#define sexp_context_heap(ctx) ((ctx)->value.context.heap) #define sexp_context_heap(ctx) ((ctx)->value.context.heap)
#define sexp_context_max_size(ctx) sexp_context_heap(ctx)->max_size
#endif #endif
#if SEXP_USE_GLOBAL_SYMBOLS #if SEXP_USE_GLOBAL_SYMBOLS