[make Grin.Linear deal with local function definitions
John Meacham <john@repetae.net>**20060815032223] hunk ./Grin/Linear.hs 3
-import qualified Data.Map as Map
hunk ./Grin/Linear.hs 4
+import qualified Data.Map as Map
+import qualified Data.Set as Set
hunk ./Grin/Linear.hs 9
-import Grin.Grin
hunk ./Grin/Linear.hs 10
+import Grin.Grin
+import Support.FreeVars
+import Util.SetLike
hunk ./Grin/Linear.hs 57
+    g Let { expDefs = defs, expBody = body } mp = do
+        mp' <- execStateT (mapM_ omegaize (map (\v -> Var v undefined) $ Set.toList $ freeVars defs)) mp
+        f body mp'
hunk ./Grin/Linear.hs 77
+
hunk ./Grin/Linear.hs 85
-        case Map.lookup v mp of
+        case mlookup v mp of
hunk ./Grin/Linear.hs 96
-        case Map.lookup v mp of
+        case mlookup v mp of
hunk ./Grin/Linear.hs 102
-        case Map.lookup v mp of
+        case mlookup v mp of