(+#), (-#), (*#), quotFastInt, negateFastInt,
(==#), (<#), (<=#), (>=#), (>#),
- FastBool, fastBool, _IS_TRUE_
+ FastBool, fastBool, isFastTrue, fastOr
) where
+#include "HsVersions.h"
+
#if defined(__GLASGOW_HASKELL__)
-- Import the beggars
-import GlaExts
+import GLAEXTS
( Int(..), Int#, (+#), (-#), (*#),
quotInt#, negateInt#, (==#), (<#), (<=#), (>=#), (>#)
)
type FastBool = Int#
fastBool True = 1#
fastBool False = 0#
-_IS_TRUE_ x = x ==# 1#
+isFastTrue x = x ==# 1#
+
+fastOr 1# _ = 1#
+fastOr 0# x = x
+
+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}