elimiante a couple of warnings

[ghc-hetmet.git] / ghc / rts / Arena.h

diff --git a/ghc/rts/Arena.h b/ghc/rts/Arena.h
index 7b7ac91..7a2989e 100644 (file)
--- a/ghc/rts/Arena.h
+++ b/ghc/rts/Arena.h
@@ -1,11 +1,11 @@
 /* -----------------------------------------------------------------------------
-   $Id: Arena.h,v 1.1 2001/10/18 14:41:01 simonmar Exp $ 
    (c) The University of Glasgow 2001
 
    Arena allocation interface.
    -------------------------------------------------------------------------- */
 
 #ifndef ARENA_H
+#define ARENA_H
 
 // Abstract type of arenas
 typedef struct _Arena Arena;
@@ -22,4 +22,4 @@ extern void    arenaFree  ( Arena * );
 // For internal use only:
 extern unsigned long arenaBlocks( void );
 
-#endif // ARENA_H
+#endif /* ARENA_H */