+ Capability *cap = rtsApiCapability;
+ rtsApiCapability = NULL;
+
+ tso = createIOThread(RtsFlags.GcFlags.initialStkSize, p);
+ return scheduleWaitThread(tso,ret,cap);
+}
+
+SchedulerStatus
+rts_evalLazyIO_ (HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret)
+{
+ StgTSO *tso;
+ Capability *cap = rtsApiCapability;
+ rtsApiCapability = NULL;