From 086accc82ef83de21f13545ae37afcf4938b3608 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 16 Feb 2005 11:33:44 +0000
Subject: [PATCH] [project @ 2005-02-16 11:33:44 by simonmar] wibble to
 previous... (*fatalInternalErrorFn)() is not expected to
 return.

---
 ghc/rts/RtsMessages.c |   11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index b8fed78..5df2fe4 100644
--- a/ghc/rts/RtsMessages.c
+++ b/ghc/rts/RtsMessages.c
@@ -49,16 +49,7 @@ vbarf(char *s, va_list ap)
 void 
 _assertFail(char *filename, unsigned int linenum)
 {
-    internalErrorBelch("ASSERTION FAILED: file %s, line %u\n", filename, linenum);
-    abort();
-}
-
-internalErrorBelch(char *s, ...)
-{
-  va_list ap;
-  va_start(ap,s);
-  (*fatalInternalErrorFn)(s,ap);
-  va_end(ap);
+    barf("ASSERTION FAILED: file %s, line %u\n", filename, linenum);
 }
 
 void
-- 
1.7.10.4