X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FbasicTypes%2FCLabelInfo.lhs;h=b2bb2b9921f3582cf3afaa88a9b9faf515867ad8;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=0e490e256712e2a368762334acc92c0659300e1b;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/CLabelInfo.lhs b/ghc/compiler/basicTypes/CLabelInfo.lhs
index 0e490e2..b2bb2b9 100644
--- a/ghc/compiler/basicTypes/CLabelInfo.lhs
+++ b/ghc/compiler/basicTypes/CLabelInfo.lhs
@@ -222,7 +222,7 @@ data RtsLabelInfo
 mkClosureLabel	      	id 		= IdLabel (CLabelId id) Closure
 mkInfoTableLabel      	id 		= IdLabel (CLabelId id) InfoTbl
 mkStdEntryLabel	      	id 		= IdLabel (CLabelId id) EntryStd
-mkFastEntryLabel      	id arity	= --false:ASSERT(arity > 0)
+mkFastEntryLabel      	id arity	= ASSERT(arity > 0)
 					  IdLabel (CLabelId id) (EntryFast arity)
 mkConEntryLabel	      	id		= IdLabel (CLabelId id) ConEntry
 mkStaticConEntryLabel 	id		= IdLabel (CLabelId id) StaticConEntry