add missing mutex unlock in error path

Merge to 5.1 (cherry picked from commit 9134aa4ee8)
2011-02-01 19:36:22 -07:00 · 2011-02-01 19:36:22 -07:00 · 0b4f5a093d
commit 0b4f5a093d
parent d01e6a8dcc
1 changed files with 1 additions and 0 deletions
--- a/src/racket/src/future.c
+++ b/src/racket/src/future.c
@ -1660,6 +1660,7 @@ static void invoke_rtcall(Scheme_Future_State * volatile fs, future_t * volatile
      future->status = FINISHED;
      future->work_completed = 1;
      future->retval = 0;
+      mzrt_mutex_unlock(fs->future_mutex);
    } else {
      /* Signal the waiting worker thread that it
         can continue running machine code */