import ClosureInfo
import Maybes
-import List
+import Data.List
import Panic
import Unique
-- the 'adaptBlockToFormat' function.
-- could be
+{-
+UNUSED: 2008-12-29
+
breakProc ::
[BlockId] -- ^ Any GC blocks that should be special
-> [[Unique]] -- ^ An infinite list of uniques
zipWith (adaptBlockToFormat selected)
adaptor_uniques
(snd broken_blocks)
+-}
-----------------------------------------------------------------------------
-- | Takes a 'CmmBasicBlock' and breaks it up into a list of 'BrokenBlock'