diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-11-24 10:37:14 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-24 10:37:56 +0000 |
commit | 9f24caabdab0cdf8aa211abdccfd850cce616c37 (patch) | |
tree | a0c15f0f13375ae936c9eb71fd552cdd01d58991 | |
parent | 6d9c9afa865ae7e2edbd831fd150a0dfb1a4b5b2 (diff) | |
download | haskell-9f24caabdab0cdf8aa211abdccfd850cce616c37.tar.gz |
Fix bug in flushStdHandles()
Was causing occasional failure in some threaded2 tests.
-rw-r--r-- | rts/RtsStartup.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index c09d5ed61d..c451292012 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); } |