[project @ 2005-10-31 10:52:06 by simonmar]

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

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index 9571d7a..6e638d4 100644 (file)
--- a/ghc/rts/Sparks.c
+++ b/ghc/rts/Sparks.c
@@ -1,5 +1,4 @@
 /* ---------------------------------------------------------------------------
- * $Id: Sparks.c,v 1.8 2004/09/03 15:28:54 simonmar Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -43,7 +42,7 @@
 
 static void slide_spark_pool( StgSparkPool *pool );
 
-rtsBool
+void
 initSparkPools( void )
 {
   Capability *cap;
@@ -66,7 +65,6 @@ initSparkPools( void )
     pool->hd  = pool->base;
     pool->tl  = pool->base;
   }
-  return rtsTrue; /* Qapla' */
 }
 
 /*