[project @ 2000-11-14 08:07:11 by simonpj]

[ghc-hetmet.git] / ghc / compiler / profiling / SCCfinal.lhs

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 66d9f9a..3cda937 100644 (file)
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -305,7 +305,7 @@ boxHigherOrderArgs almost_expr args
     ---------------
 
     do_arg ids bindings arg@(StgVarArg old_var)
-       |  (not (isLocallyDefined old_var) || elemVarSet old_var ids)
+       |  (not (isLocalVar old_var) || elemVarSet old_var ids)
        && isFunType var_type
       =     -- make a trivial let-binding for the top-level function
        getUniqueMM             `thenMM` \ uniq ->