add missing mutex unlock in error path

Merge to 5.1
This commit is contained in:
Matthew Flatt 2011-02-01 19:36:22 -07:00
parent 52f2e812fb
commit 9134aa4ee8

View File

@ -1660,6 +1660,7 @@ static void invoke_rtcall(Scheme_Future_State * volatile fs, future_t * volatile
future->status = FINISHED; future->status = FINISHED;
future->work_completed = 1; future->work_completed = 1;
future->retval = 0; future->retval = 0;
mzrt_mutex_unlock(fs->future_mutex);
} else { } else {
/* Signal the waiting worker thread that it /* Signal the waiting worker thread that it
can continue running machine code */ can continue running machine code */