X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsAPI.c;h=53628dc61a65c47f79ce11a4592c837531cb85a1;hb=fff1f6194c3c39de53cd645bda9865fb131b1c68;hp=fb9c0107a0a57f764b134aaacf2a9b1f9e45c08e;hpb=2007d2138cf17efe6a1701510dbafdfc30e8926c;p=ghc-hetmet.git

diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index fb9c010..53628dc 100644
--- a/rts/RtsAPI.c
+++ b/rts/RtsAPI.c
@@ -394,7 +394,6 @@ createIOThread (Capability *cap, nat stack_size,  StgClosure *closure)
 {
   StgTSO *t;
   t = createThread (cap, stack_size);
-  pushClosure(t, (W_)&stg_noforceIO_info);
   pushClosure(t, (W_)&stg_ap_v_info);
   pushClosure(t, (W_)closure);
   pushClosure(t, (W_)&stg_enter_info);