+/*
+ * Same as above, but also evaluate the result of the IO action
+ * to whnf while we're at it.
+ */
+
+static inline StgTSO *
+createStrictIOThread(nat stack_size, StgClosure *closure) {
+ StgTSO *t;
+#if defined(GRAN)
+ t = createThread(stack_size, NO_PRI);
+#else
+ t = createThread(stack_size);
+#endif
+ pushClosure(t,closure);
+ pushClosure(t,(StgClosure*)&stg_forceIO_closure);
+ return t;
+}
+
+