[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / basicTypes / CLabelInfo.lhs

diff --git a/ghc/compiler/basicTypes/CLabelInfo.lhs b/ghc/compiler/basicTypes/CLabelInfo.lhs
index 0e490e2..b2bb2b9 100644 (file)
--- 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