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

Setting new thread's dynamic wind state to a fresh root.

Browse source
This commit is contained in:
Alex Shinn 2013-05-27 22:23:54 +09:00
parent 99c8992207
commit dde47a7846
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/srfi/18/threads.c
View file

@ -96,6 +96,7 @@ sexp sexp_make_thread (sexp ctx, sexp self, sexp_sint_t n, sexp thunk, sexp name
stack[2] = sexp_global(ctx, SEXP_G_FINAL_RESUMER); stack[2] = sexp_global(ctx, SEXP_G_FINAL_RESUMER);
sexp_context_top(res) = 4; sexp_context_top(res) = 4;
sexp_context_last_fp(res) = 0; sexp_context_last_fp(res) = 0;
sexp_context_dk(res) = sexp_make_vector(res, SEXP_FOUR, SEXP_FALSE);
sexp_gc_release1(ctx); sexp_gc_release1(ctx);
return res; return res;
} }