From 280e5a701b700bf601efbc77ca9d7f58e1e07066 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 16 Feb 2001 09:53:51 +0000
Subject: [PATCH] [project @ 2001-02-16 09:53:51 by simonmar] deLam the
 contents of an _scc_: they don't disappear at code
 generation time.

---
 ghc/compiler/coreSyn/CoreSat.lhs |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ghc/compiler/coreSyn/CoreSat.lhs b/ghc/compiler/coreSyn/CoreSat.lhs
index b47c514..9282637 100644
--- a/ghc/compiler/coreSyn/CoreSat.lhs
+++ b/ghc/compiler/coreSyn/CoreSat.lhs
@@ -172,6 +172,11 @@ coreSatExprFloat (Let bind body)
     coreSatExprFloat body		`thenUs` \ (floats, new_body) ->
     returnUs (new_bind:floats, new_body)
 
+coreSatExprFloat (Note n@(SCC _) expr)
+  = coreSatAnExpr expr			`thenUs` \ expr ->
+    deLam expr				`thenUs` \ expr ->
+    returnUs ([], Note n expr)
+
 coreSatExprFloat (Note other_note expr)
   = coreSatExprFloat expr		`thenUs` \ (floats, expr) ->
     returnUs (floats, Note other_note expr)
-- 
1.7.10.4