From 9134aa4ee80c0320a3f441b9cbf77cf268acfbb0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Feb 2011 19:36:22 -0700
Subject: [PATCH] add missing mutex unlock in error path  Merge to 5.1

---
 src/racket/src/future.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/racket/src/future.c b/src/racket/src/future.c
index 3f4dce37c1..deeb313052 100644
--- 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 */