[fix profiling
John Meacham <john@repetae.net>**20060316132952] hunk ./C/FromGrin.hs 369
-        return $ function (nodeFuncName n) fr as' ats s
+        return $ function (nodeFuncName n) fr as' ats (profile_function_inc `mappend` s)
hunk ./Main.hs 601
-        writeFile cf $ unlines [globalvar "jhc_c_compile" comm, globalvar "jhc_jhc_command" argstring,globalvar "jhc_version" (head $ lines versionString),"",cg]
+        writeFile cf $ unlines [globalvar "jhc_c_compile" comm, globalvar "jhc_command" argstring,globalvar "jhc_version" (head $ lines versionString),"",cg]