[fix local function declarations in grin
John Meacham <john@repetae.net>**20060814004920] hunk ./Grin/Grin.hs 163
-    | Let       { expDefs :: [(Atom,Lam)],
+    | Let       { expDefs :: [FuncDef],
hunk ./Grin/Grin.hs 170
-                  expInfo :: Info.Info }                                  -- ^ create a closure
+                  expInfo :: Info.Info }                   -- ^ create a closure
hunk ./Grin/Grin.hs 207
-    }
+    } deriving(Eq,Ord,Show)
hunk ./Grin/Show.hs 34
+import Support.Tuple
hunk ./Grin/Show.hs 90
+prettyExp vl Let { expDefs = defs, expBody = body } = vl <> text "let" <$> indent 2 (vsep $ map f defs) <$> text " in" <$> indent 2 (prettyExp empty body) where
+    f FuncDef { funcDefName = name, funcDefBody = as :-> body } = func (show name) <+> hsep (map prettyVal $ fromTuple as) <+> operator "=" <+> keyword "do" <$> indent 2 (prettyExp empty body)