import Maybes ( orElse, expectJust )
import Bitmap
-#ifdef DEBUG
import Outputable
-#endif
import List
srtExpr table body =: \ body' ->
StgLetNoEscape live1 live2 bind' body'
-#ifdef DEBUG
-srtExpr table expr = pprPanic "srtExpr" (ppr expr)
-#endif
+srtExpr _table expr = pprPanic "srtExpr" (ppr expr)
srtAlt :: IdEnv Int -> StgAlt -> StgAlt
srtAlt table (con,args,used,rhs)