[project @ 2001-05-25 08:55:03 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CorePrep.lhs

diff --git a/ghc/compiler/coreSyn/CorePrep.lhs b/ghc/compiler/coreSyn/CorePrep.lhs
index f068e30..dda8468 100644 (file)
--- a/ghc/compiler/coreSyn/CorePrep.lhs
+++ b/ghc/compiler/coreSyn/CorePrep.lhs
@@ -169,7 +169,7 @@ corePrepArg env arg dem
             mkNonRec v dem floats arg' `thenUs` \ floats' -> 
             returnUs (floats', Var v)
 
-needs_binding | opt_KeepStgTypes = exprIsAtom
+needs_binding | opt_RuntimeTypes = exprIsAtom
              | otherwise        = exprIsTrivial
 
 -- version that doesn't consider an scc annotation to be trivial.