[don't install ioError handler when we are just going to  abort the program anyway. add unsafePerformIO' to allow this.
John Meacham <john@repetae.net>**20061113011758] hunk ./lib/base/Jhc/IO.hs 20
-    unsafePerformIO
+    unsafePerformIO,
+    unsafePerformIO'
hunk ./lib/base/Jhc/IO.hs 47
+-- | same as unsafePerformIO, but doesn't set up error handler
+unsafePerformIO' :: IO a -> a
+unsafePerformIO' x = case newWorld__ x of
+    world -> case (unIO x) world of
+            (# _, a #) -> a
+
hunk ./lib/base/Jhc/IO.hs 145
-error s = unsafePerformIO $
+error s = unsafePerformIO' $