From dde47a784630737b05145c37922cafbdacde4754 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 27 May 2013 22:23:54 +0900 Subject: [PATCH] Setting new thread's dynamic wind state to a fresh root. --- lib/srfi/18/threads.c | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c index 4c7808ce..b9a4a1e3 100644 --- a/lib/srfi/18/threads.c +++ b/lib/srfi/18/threads.c @@ -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); sexp_context_top(res) = 4; sexp_context_last_fp(res) = 0; + sexp_context_dk(res) = sexp_make_vector(res, SEXP_FOUR, SEXP_FALSE); sexp_gc_release1(ctx); return res; }