From 3effaf6c3e2f4da7a8808b190074d492b62b2f7e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 20:07:57 +0000
Subject: [PATCH 1/1] [project @ 1997-09-04 20:07:57 by sof] new function:
 inlineUnconditionally

---
 ghc/compiler/simplCore/BinderInfo.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 869bc1a..75155a6 100644
--- a/ghc/compiler/simplCore/BinderInfo.lhs
+++ b/ghc/compiler/simplCore/BinderInfo.lhs
@@ -21,7 +21,7 @@ module BinderInfo (
 	getBinderInfoArity,
 	setBinderInfoArityToZero,
 
-	isFun, isDupDanger -- for Simon Marlow deforestation
+	inlineUnconditionally, isFun, isDupDanger -- for Simon Marlow deforestation
     ) where
 
 IMP_Ubiq(){-uitous-}
@@ -117,8 +117,6 @@ isDupDanger _ = False
 definitely be inlined.
 
 \begin{code}
-{-	NOT USED
-
 inlineUnconditionally :: Bool -> BinderInfo -> Bool
 
 --inlineUnconditionally ok_to_dup DeadCode = True
@@ -129,7 +127,6 @@ inlineUnconditionally ok_to_dup (OneOcc FunOcc NoDupDanger NotInsideSCC n_alt_oc
 	    -- damage, e.g., limit to M alternatives.
 
 inlineUnconditionally _ _ = False
--}
 \end{code}
 
 
-- 
1.7.10.4