[project @ 1999-04-23 09:51:24 by simonm]

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

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 3406858..d7a3a0d 100644 (file)
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -269,10 +269,7 @@ stgMassageForProfiling mod_name grp_name us stg_binds
     do_rhs (StgRhsClosure cc bi srt fv u args body)
       = set_lambda_cc (do_expr body)           `thenMM` \ body' ->
        get_prevailing_cc                       `thenMM` \ prev_ccs ->
-       let new_ccs | isCurrentCCS prev_ccs = setCurrentCCS -- are we inside a lambda??
-                   | otherwise             = currentCCS
-       in
-       returnMM (StgRhsClosure new_ccs bi srt fv u args body')
+       returnMM (StgRhsClosure currentCCS bi srt fv u args body')
 
     do_rhs (StgRhsCon cc con args)
       = returnMM (StgRhsCon currentCCS con args)