X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.h;h=3d7687a543ed0f349f0478fe5795a859dac34366;hb=03a9ff01812afc81eb5236fd3063cbec44cf469e;hp=44a00f1524b8a2ae00e29983a30b927ef1452120;hpb=63e8af080a7e779a48e812e6caa9ea519b046260;p=ghc-hetmet.git

diff --git a/ghc/rts/Sparks.h b/ghc/rts/Sparks.h
index 44a00f1..3d7687a 100644
--- a/ghc/rts/Sparks.h
+++ b/ghc/rts/Sparks.h
@@ -6,6 +6,9 @@
  * 
  * ---------------------------------------------------------------------------*/
 
+#ifndef SPARKS_H
+#define SPARKS_H
+
 #if defined(GRAN)
 
 void      findLocalSpark (rtsEvent *event, rtsBool *found_res, rtsSparkQ *spark_res);
@@ -36,3 +39,5 @@ void         disposeSpark( StgClosure *spark );
 #endif
 
 #endif
+
+#endif /* SPARKS_H */