summaryrefslogtreecommitdiff
path: root/rts/RtsStartup.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2011-11-24 10:37:14 +0000
committerSimon Marlow <marlowsd@gmail.com>2011-11-24 10:37:56 +0000
commit9f24caabdab0cdf8aa211abdccfd850cce616c37 (patch)
treea0c15f0f13375ae936c9eb71fd552cdd01d58991 /rts/RtsStartup.c
parent6d9c9afa865ae7e2edbd831fd150a0dfb1a4b5b2 (diff)
downloadhaskell-9f24caabdab0cdf8aa211abdccfd850cce616c37.tar.gz
Fix bug in flushStdHandles()
Was causing occasional failure in some threaded2 tests.
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r--rts/RtsStartup.c2
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);
}