return 1;
}
+#else
+
+StgInt
+newSpark (StgRegTable *reg, StgClosure *p)
+{
+ /* nothing */
+ return 1;
+}
+
#endif /* PARALLEL_HASKELL || SMP */
+
/* -----------------------------------------------------------------------------
*
* GRAN & PARALLEL_HASKELL stuff beyond here.