From 4305e52b992a150854511af248a75d2154020b02 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 26 Oct 2005 13:58:40 +0000
Subject: [PATCH] [project @ 2005-10-26 13:58:40 by simonmar]
 forkOS_createThreadWrapper: oops, better use the result
 from rts_evalStableIO()

---
 ghc/rts/posix/OSThreads.c |    2 +-
 ghc/rts/win32/OSThreads.c |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/posix/OSThreads.c b/ghc/rts/posix/OSThreads.c
index 6b5918b..07bd762 100644
--- a/ghc/rts/posix/OSThreads.c
+++ b/ghc/rts/posix/OSThreads.c
@@ -139,7 +139,7 @@ forkOS_createThreadWrapper ( void * entry )
 {
     Capability *cap;
     cap = rts_lock();
-    rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
+    cap = rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
     rts_unlock(cap);
     return NULL;
 }
diff --git a/ghc/rts/win32/OSThreads.c b/ghc/rts/win32/OSThreads.c
index d2e3d17..e4cd76b 100644
--- a/ghc/rts/win32/OSThreads.c
+++ b/ghc/rts/win32/OSThreads.c
@@ -159,7 +159,7 @@ forkOS_createThreadWrapper ( void * entry )
 {
     Capability *cap;
     cap = rts_lock();
-    rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
+    cap = rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
     rts_unlock(cap);
     return 0;
 }
-- 
1.7.10.4