[project @ 1999-06-01 09:56:22 by simonmar]

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

diff --git a/ghc/compiler/simplStg/SRT.lhs b/ghc/compiler/simplStg/SRT.lhs
index 356d84b..3cf92e5 100644 (file)
--- a/ghc/compiler/simplStg/SRT.lhs
+++ b/ghc/compiler/simplStg/SRT.lhs
@@ -302,7 +302,7 @@ srtLet rho cont off bind body let_constr calc_cont
    let new_cont = calc_cont bind_g cont in
 
     -- now find the SRTs in the body
-   srtExpr rho cont body_off body  =: \(body, body_g, body_srt, let_off) ->
+   srtExpr rho new_cont body_off body  =: \(body, body_g, body_srt, let_off) ->
 
    let
        -- union all the global references together