From: panne <unknown>
Date: Fri, 13 Sep 2002 18:21:46 +0000 (+0000)
Subject: [project @ 2002-09-13 18:21:46 by panne]
X-Git-Tag: nhc98-1-18-release~856
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c83f5ad9dbc5859bec565e4a6593c8cb105b5b64;p=haskell-directory.git

[project @ 2002-09-13 18:21:46 by panne]
It looks like we need assert again...?!
---

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7ee7d7d..e3bc346 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -595,14 +595,10 @@ id x			=  x
 lazy :: a -> a
 lazy x = x
 
--- 	SLPJ: this was transferred from the TH branch
---	and I've forgotten what it was for... so I'll
---	comment it back out for now.  It conflicts with
---	'assert' in GHC.Prim
 -- Assertion function. This simply ignores its boolean argument.
 -- The compiler may rewrite it to (assertError line)
--- assert :: Bool -> a -> a
--- assert pred r = r
+assert :: Bool -> a -> a
+assert pred r = r
  
 -- constant function
 const			:: a -> b -> a