%
-% (c) The GRASP Project, Glasgow University, 1994-1995
+% (c) The GRASP Project, Glasgow University, 1994-1998
%
\section[BitSet]{An implementation of very small sets}
module BitSet (
BitSet, -- abstract type
mkBS, listBS, emptyBS, unitBS,
- unionBS, minusBS
+ unionBS, minusBS, intBS
) where
#ifdef __GLASGOW_HASKELL__
_ -> n : more
shiftr x y = shiftRL# x y
+-- intBS is a bit naughty.
+intBS :: BitSet -> Int
+intBS (MkBS w#) = I# (word2Int# w#)
+
#elif defined(__YALE_HASKELL__)
data BitSet = MkBS Int