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_env(ctx),
0,
sexp_context_heap(ctx)->max_size);
sexp_context_max_size(ctx));
if (! sexp_exceptionp(res)) {
sexp_context_lambda(res) = lambda;
sexp_context_top(res) = sexp_context_top(ctx);

2
include/chibi/sexp.h
View file

@ -814,8 +814,10 @@ SEXP_API sexp sexp_make_unsigned_integer(sexp ctx, sexp_luint_t x);
SEXP_API sexp_heap sexp_global_heap;
#endif
#define sexp_context_heap(ctx) sexp_global_heap
#define sexp_context_max_size(ctx) 0
#else
#define sexp_context_heap(ctx) ((ctx)->value.context.heap)
#define sexp_context_max_size(ctx) sexp_context_heap(ctx)->max_size
#endif
#if SEXP_USE_GLOBAL_SYMBOLS