[fix a few case simplifications which were getting InTerms and OutTerms confused
John Meacham <john@repetae.net>**20060411032656] hunk ./E/SSimplify.hs 513
-        f d (minsert (tvrIdent b) (Susp e sub) sub) inb
+        f d (minsert (tvrIdent b) (Done e) sub) inb
+        --f d (minsert (tvrIdent b) (Susp e sub) sub) inb
hunk ./E/SSimplify.hs 521
-        f sc { eCaseScrutinee = scrut } sub inb
+        doCase scrut (eCaseType sc) (eCaseBind sc) (eCaseAlts sc) (eCaseDefault sc) sub inb
+    --    f sc { eCaseScrutinee = scrut } sub inb