[after lifting functions to top level in Grin.Devolve, update the type environment appropriately
John Meacham <john@repetae.net>**20061012000638] hunk ./Grin/Devolve.hs 36
-    return $ setGrinFunctions (lf ++ nf) grin { grinPhase = PostDevolve }
+    let ntenv = extendTyEnv [ createFuncDef False x y | (x,y) <- lf ] (grinTypeEnv grin)
+    return $ setGrinFunctions (lf ++ nf) grin { grinPhase = PostDevolve, grinTypeEnv = ntenv }