[perform scopeCheck on E code when -flint mode enabled
John Meacham <john@repetae.net>**20070302225749] hunk ./E/Traverse.hs 175
-        f (eCaseScrutinee e)
+        f (eCaseScrutinee ec)
hunk ./Main.hs 1027
-        f (tvr,e) = lintCheckE onerr (progDataTable prog) tvr e
+        f (tvr,e) = do
+            case scopeCheck False mempty e of
+                Left s -> do
+                    onerr
+                    putErrLn $ ">>> scopecheck failed in " ++ pprint tvr ++ " " ++ s
+                    printProgram prog
+                    putErrLn $ ">>> scopecheck failed in " ++ pprint tvr ++ " " ++ s
+                    maybeDie
+                Right () -> return ()
+            lintCheckE onerr (progDataTable prog) tvr e