[clean up code some, use mapExpExp when creating apply function to ensure we get them all
John Meacham <john@repetae.net>**20070515005518] hunk ./Grin/EvalInline.hs 1
-module Grin.EvalInline(
-    createEval,
-    createApply,
-    createEvalApply,
-    UpdateType(..)
-    ) where
+module Grin.EvalInline(createEvalApply) where
hunk ./Grin/EvalInline.hs 12
+import Grin.Noodle
hunk ./Grin/EvalInline.hs 142
-        g (exp :>>= lam) = do
-            exp' <- g exp
-            lam' <- f lam
-            return (exp' :>>= lam')
-        g (Case v ls) = do
-            ls' <- mapM f ls
-            return $ Case v ls'
hunk ./Grin/EvalInline.hs 152
-        g x = return x
+        g x = mapExpExp g x