[project @ 2000-11-06 08:15:20 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplStg / LambdaLift.lhs

diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs
index 20c6c10..5694475 100644 (file)
--- a/ghc/compiler/simplStg/LambdaLift.lhs
+++ b/ghc/compiler/simplStg/LambdaLift.lhs
@@ -543,8 +543,4 @@ co_rec_ify binds = StgRec (concat (map f binds))
 
 getScBinds :: LiftInfo -> [StgBinding]
 getScBinds binds = bagToList binds
-
-looksLikeSATRhs [(f,StgRhsClosure _ _ _ _ _ ls _)] (StgApp f' args)
-  = (f == f') && (length args == length ls)
-looksLikeSATRhs _ _ = False
 \end{code}