From fb858ac5fe67b129c3d75ab337b21ce04636f8b4 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 31 May 2013 23:29:07 +0900
Subject: [PATCH] Missing vm changes for non-raised FFI exceptions from
 a7ffc1f42a2b.

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

diff --git a/vm.c b/vm.c
index 83cd44cf..51e9ddda 100644
--- a/vm.c
+++ b/vm.c
@@ -1056,6 +1056,10 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
       tmp1 = sexp_trampoline_procedure(_ARG1);
       tmp2 = sexp_trampoline_args(_ARG1);
       top--;
+      if (sexp_not(tmp1) && sexp_pairp(tmp2)) { /* noop trampoline is */
+        _PUSH(sexp_car(tmp2));                  /* a wrapped exception */
+        goto loop;
+      }
       goto apply1;
     }
     tmp1 = sexp_parameter_ref(ctx, sexp_global(ctx, SEXP_G_ERR_HANDLER));