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

returning the result of the root thread when it terminates before the child

Browse source
This commit is contained in:
Alex Shinn 2012-09-17 16:54:17 +09:00
parent 2154f78b13
commit ff74a8928f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -2101,7 +2101,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
if (ctx != root_thread) { if (ctx != root_thread) {
if (sexp_context_refuel(root_thread) <= 0) { if (sexp_context_refuel(root_thread) <= 0) {
/* the root already terminated */ /* the root already terminated */
_ARG1 = SEXP_VOID; _ARG1 = sexp_context_result(root_thread);
} else { } else {
/* don't return from child threads */ /* don't return from child threads */
if (sexp_exceptionp(_ARG1)) { if (sexp_exceptionp(_ARG1)) {