From: simonmar <unknown>
Date: Tue, 1 Jun 1999 09:56:22 +0000 (+0000)
Subject: [project @ 1999-06-01 09:56:22 by simonmar]
X-Git-Tag: Approximately_9120_patches~6171
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4605cb834abed2ffd2e09a6437fb1e3cc8a7296;p=ghc-hetmet.git

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

diff --git a/ghc/compiler/simplStg/SRT.lhs b/ghc/compiler/simplStg/SRT.lhs
index 356d84b..3cf92e5 100644
--- 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