[project @ 1999-03-26 19:45:51 by sof]

assertError: raise an AssertionFailed exception

diff --git a/ghc/lib/std/PrelErr.lhs b/ghc/lib/std/PrelErr.lhs
index ee22bda..9415258 100644 (file)
--- a/ghc/lib/std/PrelErr.lhs
+++ b/ghc/lib/std/PrelErr.lhs
@@ -163,7 +163,7 @@ recUpdError                  s = throw (RecUpdError (untangle s "Record doesn't contain field(
 assertError :: String -> Bool -> a -> a
 assertError str pred v 
   | pred      = v
-  | otherwise = error (untangle str "Assertion failed")
+  | otherwise = throw (AssertionFailed (untangle str "Assertion failed"))
 
 \end{code}