X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FCgClosure.lhs;fp=compiler%2FcodeGen%2FCgClosure.lhs;h=905f9629b174e43260d040a749e7cea6419c89f6;hb=81b5698d13d6c4b99ad85dfc2c0fdfafd7a469dd;hp=000f9773427e6299d905ad6c4a24a19e1f2e28cc;hpb=24c13c1369c2ed21123c0c6eba7a7d7ab0313b86;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs
index 000f977..905f962 100644
--- a/compiler/codeGen/CgClosure.lhs
+++ b/compiler/codeGen/CgClosure.lhs
@@ -155,8 +155,7 @@ cgRhsClosure bndr cc bndr_info fvs upd_flag args body = do
 	-- Node points to it...
     let
 	name 	     = idName bndr
-	is_elem	     = isIn "cgRhsClosure"
-	bndr_is_a_fv = bndr `is_elem` fvs
+	bndr_is_a_fv = bndr `elem` fvs
 	reduced_fvs | bndr_is_a_fv = fvs `minusList` [bndr]
 		    | otherwise	   = fvs