From 2c6ca1229d350e56e192697ccaef19aac6af1683 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 16 Nov 2014 13:49:23 +0900
Subject: [PATCH] Boost fuel on sexp_apply_no_err_handler so we don't switch
 threads.

---
 vm.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/vm.c b/vm.c
index 61b1ea04..67a0b150 100644
--- a/vm.c
+++ b/vm.c
@@ -2143,6 +2143,7 @@ sexp sexp_apply_no_err_handler (sexp ctx, sexp proc, sexp args) {
 #if SEXP_USE_GREEN_THREADS
   params = sexp_context_params(ctx);
   sexp_context_params(ctx) = SEXP_NULL;
+  ++sexp_context_refuel(ctx);
 #endif
   err_cell = sexp_global(ctx, SEXP_G_ERR_HANDLER);
   err_cell = sexp_opcodep(err_cell) ? sexp_opcode_data(err_cell) : SEXP_FALSE;