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

Boost fuel on sexp_apply_no_err_handler so we don't switch threads.

Browse source
This commit is contained in:
Alex Shinn 2014-11-16 13:49:23 +09:00
parent c0b9a213c9
commit 2c6ca1229d
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
vm.c
View file

@ -2143,6 +2143,7 @@ sexp sexp_apply_no_err_handler (sexp ctx, sexp proc, sexp args) {
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
params = sexp_context_params(ctx); params = sexp_context_params(ctx);
sexp_context_params(ctx) = SEXP_NULL; sexp_context_params(ctx) = SEXP_NULL;
++sexp_context_refuel(ctx);
#endif #endif
err_cell = sexp_global(ctx, SEXP_G_ERR_HANDLER); err_cell = sexp_global(ctx, SEXP_G_ERR_HANDLER);
err_cell = sexp_opcodep(err_cell) ? sexp_opcode_data(err_cell) : SEXP_FALSE; err_cell = sexp_opcodep(err_cell) ? sexp_opcode_data(err_cell) : SEXP_FALSE;