pprDefns :: [(Name,CoreExpr)] -> Iseq
pprDefns defns = iInterleave sep (map pprDefn defns)
    where
        sep = iConcat [ iStr ";", iNewline ]
pprDefns :: [(Name,CoreExpr)] -> Iseq
pprDefns defns = iInterleave sep (map pprDefn defns)
    where
        sep = iConcat [ iStr ";", iNewline ]
pprDefns defns = iInterleave sep (map pprDefn defns)
    where
        sep = iConcat [ iStr ";", iNewline ]