suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix problem with 'continuation-marks' on a suspended thread

Browse Source 
svn: r14367
This commit is contained in:
Matthew Flatt 2009-03-30 21:53:42 +00:00
parent fd835e9c37
commit 2969412c87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/thread.c
View File

@ -2587,7 +2587,7 @@ static void do_swap_thread()
scheme_current_thread = new_thread;
/* Fixup current pointers in thread sets */
{
if (!scheme_current_thread->return_marks_to) {
Scheme_Thread_Set *t_set = new_thread->t_set_parent;
t_set->current = (Scheme_Object *)new_thread;
while (t_set->parent) {