[turn off eta annotation temporarily
John Meacham <john@repetae.net>**20070313020529] hunk ./E/Eta.hs 108
-etaExpandProgram prog = runNameMT (programMapDs f (etaAnnotateProgram prog)) where
-    f (t,e) = etaExpandDef' (progDataTable prog) 0 t e
+--etaExpandProgram prog = runNameMT (programMapDs f (etaAnnotateProgram prog)) where
+etaExpandProgram prog = runNameMT (programMapDs f prog) where
+    f (t,e) = do etaExpandDef' (progDataTable prog) 0 t e