[project @ 2005-11-04 15:33:36 by simonmar]

[ghc-hetmet.git] / ghc / rts / Sparks.c

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index 07b3b6e..6e638d4 100644 (file)
--- a/ghc/rts/Sparks.c
+++ b/ghc/rts/Sparks.c
@@ -42,7 +42,7 @@
 
 static void slide_spark_pool( StgSparkPool *pool );
 
-rtsBool
+void
 initSparkPools( void )
 {
   Capability *cap;
@@ -65,7 +65,6 @@ initSparkPools( void )
     pool->hd  = pool->base;
     pool->tl  = pool->base;
   }
-  return rtsTrue; /* Qapla' */
 }
 
 /*