bodyToBlockList :: Body CmmNode -> [CmmBlock]
bodyToBlockList body = mapElems body
bodyToBlockList :: Body CmmNode -> [CmmBlock]
bodyToBlockList body = mapElems body
bodyToBlockList body = mapElems body