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

Missing vm changes for non-raised FFI exceptions from a7ffc1f42a2b.

Browse source
This commit is contained in:
Alex Shinn 2013-05-31 23:29:07 +09:00
parent b77e4397d7
commit fb858ac5fe
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
vm.c
View file

@ -1056,6 +1056,10 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
tmp1 = sexp_trampoline_procedure(_ARG1); tmp1 = sexp_trampoline_procedure(_ARG1);
tmp2 = sexp_trampoline_args(_ARG1); tmp2 = sexp_trampoline_args(_ARG1);
top--; top--;
if (sexp_not(tmp1) && sexp_pairp(tmp2)) { /* noop trampoline is */
_PUSH(sexp_car(tmp2)); /* a wrapped exception */
goto loop;
}
goto apply1; goto apply1;
} }
tmp1 = sexp_parameter_ref(ctx, sexp_global(ctx, SEXP_G_ERR_HANDLER)); tmp1 = sexp_parameter_ref(ctx, sexp_global(ctx, SEXP_G_ERR_HANDLER));