[add mtick', use it when stringtable overloaded enabled
John Meacham <john@repetae.net>**20120129144524
 Ignore-this: 3aa9e5abcbaee184c1a66ac80c8ad5e4
] hunk ./lib/jhc/Jhc/IO.hs 81
-ioError    ::  IOError -> IO a
-ioError e  = case Jhc.Options.target of
-    Jhc.Options.GhcHs -> IO $ \w -> raiseIO__ e w
+ioError :: IOError -> IO a
+ioError e = case Jhc.Options.target of
+    Jhc.Options.GhcHs -> IO $
+        \w -> (case raiseIO__ e w of w' -> (# w', raiseError #))
hunk ./lib/jhc/Jhc/IO.hs 147
--- | no the implicit unsafeCoerce__ here!
-foreign import primitive catch__ :: (World__ -> (# World__,a #)) -> (b -> World__ -> (# World__,a #)) -> World__ -> (# World__,a #)
-foreign import primitive raiseIO__ :: a -> World__ -> (# World__,b #)
-
hunk ./lib/jhc/Jhc/IO.hs 155
+foreign import primitive "error.raiseIO__" raiseError :: a
hunk ./src/Grin/FromE.hs 1
+{-# LANGUAGE OverloadedStrings #-}
hunk ./src/Grin/FromE.hs 35
-import Stats(mtick)
+import Stats(mtick')
hunk ./src/Grin/FromE.hs 155
-        funcMain = toAtom "b_main"
+        funcMain = "b_main" :: Atom
hunk ./src/Grin/FromE.hs 339
-            mtick "Grin.FromE.strict-evaled"
+            mtick' "Grin.FromE.strict-evaled"
hunk ./src/Grin/FromE.hs 345
-            mtick "Grin.FromE.strict-propevaled"
+            mtick' "Grin.FromE.strict-propevaled"
hunk ./src/Grin/FromE.hs 368
-        mtick "Grin.FromE.strict-unlifted"
+        mtick' "Grin.FromE.strict-unlifted"
hunk ./src/Grin/FromE.hs 390
-                    mtick "Grin.FromE.app-unlifted"
+                    mtick' "Grin.FromE.app-unlifted"
hunk ./src/Grin/FromE.hs 404
-    ce (EPrim ap@(APrim (PrimPrim prim) _) as _) = f (fromAtom prim) as where
-
---        pconst s = Prim (APrim CConst { primConst = s, primRetType = "int" } mempty) [] [tEnumzh]
-        -- options
-
---        f "options_target" [] = do return $ Return [Lit 0 tEnumzh]
---        f "options_isWindows" [] = do return $ pconst "JHC_isWindows"
---        f "options_isPosix" [] = do return $ pconst "JHC_isPosix"
---        f "options_isBigEndian" [] = do return $ pconst "JHC_isBigEndian"
-
+    ce (EPrim ap@(APrim (PrimPrim prim) _) as _) = f prim as where
hunk ./src/Grin/FromE.hs 557
-        mtick "Grin.FromE.lazy-app-bap"
+        mtick' "Grin.FromE.lazy-app-bap"
hunk ./src/Grin/FromE.hs 621
-            mtick "Grin.FromE.let-unlifted"
+            mtick' "Grin.FromE.let-unlifted"