X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FHsVersions.h;h=0c41fa521e57878ac793e0aff2d06393f6b1e19f;hb=f83010b119096699d1efef2f7bb45460719c48f9;hp=f11aa214c416a667eae00ac55de5ff19addaf913;hpb=046ee54f048ddd721dcee41916d6a6f68db3b15b;p=ghc-hetmet.git

diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h
index f11aa21..0c41fa5 100644
--- a/compiler/HsVersions.h
+++ b/compiler/HsVersions.h
@@ -34,12 +34,6 @@ name = Util.global (value) :: IORef (ty); \
 {-# NOINLINE name #-}
 #endif
 
-#if __GLASGOW_HASKELL__ >= 620
-#define UNBOX_FIELD !!
-#else
-#define UNBOX_FIELD !
-#endif
-
 #define COMMA ,
 
 #ifdef DEBUG
@@ -67,7 +61,7 @@ import qualified FastString as FS
 #define FSLIT(x) (FS.mkFastString# (x#))
 
 -- Useful for declaring arguments to be strict
-#define STRICT1(f) f a b c | a `seq` False = undefined
+#define STRICT1(f) f a | a `seq` False = undefined
 #define STRICT2(f) f a b | a `seq` b `seq` False = undefined
 #define STRICT3(f) f a b c | a `seq` b `seq` c `seq` False = undefined
 #define STRICT4(f) f a b c d | a `seq` b `seq` c `seq` d `seq` False = undefined