[remove quadratic behavior in programSetDs'
John Meacham <john@repetae.net>**20101207033358
 Ignore-this: d0a52945b310e2a599cc54510c18ea5b
] hunk ./src/E/Main.hs 247
-    putErrLn "-- ChoRulesPostSimp";
-    putErrLn "------------";
-    dumpRules (Rules $ fromList [ (combIdent x,combRules x) | x <- progCombinators prog, not $ null (combRules x) ])
hunk ./src/E/Main.hs 251
-    pr_r <- progressIONew (length $ programDecomposedDs prog) 25 '.'
+    pr_r <- progressIONew (length $ programDecomposedCombs prog) 25 '.'
hunk ./src/E/Program.hs 89
-    lupRules t = concat [ combRules c | c <- progCombinators prog, combIdent c == t]
+    lupRules t = case mlookup t (progCombMap prog) of
+        Just c -> combRules c
+        Nothing -> mempty