projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Use packByTag instead of pack in the vectoriser
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgClosure.lhs
diff --git
a/compiler/codeGen/CgClosure.lhs
b/compiler/codeGen/CgClosure.lhs
index
000f977
..
905f962
100644
(file)
--- 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