FastBool, fastBool, isFastTrue, fastOr
) where
+#include "HsVersions.h"
+
#if defined(__GLASGOW_HASKELL__)
-- Import the beggars
-import GlaExts
+import GLAEXTS
( Int(..), Int#, (+#), (-#), (*#),
quotInt#, negateInt#, (==#), (<#), (<=#), (>=#), (>#)
)
fastAnd 0# x = 0#
fastAnd 1# x = x
-#else {- ! __GLASGOW_HASKELL__ -}
+#else /* ! __GLASGOW_HASKELL__ */
type FastInt = Int
_ILIT x = x
fastBool x = x
_IS_TRUE_ x = x
-#endif {- ! __GLASGOW_HASKELL__ -}
+#endif /* ! __GLASGOW_HASKELL__ */
\end{code}