From ff39a56b7750b81e93a0e4e40796cb048efb08b5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 19 Mar 2001 16:17:44 +0000
Subject: [PATCH] [project @ 2001-03-19 16:17:44 by simonmar] exprIsAtom
 shouldn't return True for an SCC.

---
 ghc/compiler/coreSyn/CoreUtils.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 1fa614a..6905cb7 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -315,6 +315,7 @@ exprIsAtom :: CoreExpr -> Bool
 exprIsAtom (Var v)    = True	-- primOpIsDupable?
 exprIsAtom (Lit lit)  = True
 exprIsAtom (Type ty)  = True
+exprIsAtom (Note (SCC _) e) = False
 exprIsAtom (Note _ e) = exprIsAtom e
 exprIsAtom other      = False
 \end{code}
-- 
1.7.10.4