[commit: ghc] master: Fix bug in flushStdHandles() (9f24caa)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9f24caabdab0cdf8aa211abdccfd850cce616c37

>---------------------------------------------------------------

commit 9f24caabdab0cdf8aa211abdccfd850cce616c37
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Nov 24 10:37:14 2011 +0000

    Fix bug in flushStdHandles()
    
    Was causing occasional failure in some threaded2 tests.

>---------------------------------------------------------------

 rts/RtsStartup.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index c09d5ed..c451292 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -431,7 +431,7 @@ static void flushStdHandles(void)
 {
     Capability *cap;
     cap = rts_lock();
-    rts_evalIO(cap, flushStdHandles_closure, NULL);
+    cap = rts_evalIO(cap, flushStdHandles_closure, NULL);
     rts_unlock(cap);
 }