[commit: ghc] supercompiler: I don't know why I started tying back to dumped promises, but it's a bad idea (2a55fe4)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/2a55fe42ae6969b0d439b8748a164f923eda56fa

>---------------------------------------------------------------

commit 2a55fe42ae6969b0d439b8748a164f923eda56fa
Author: Max Bolingbroke <[email protected]>
Date:   Thu Oct 4 15:04:11 2012 +0100

    I don't know why I started tying back to dumped promises, but it's a bad idea

>---------------------------------------------------------------

 .../supercompile/Supercompile/Drive/Process3.hs    |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs
index 4e5154a..7242291 100644
--- a/compiler/supercompile/Supercompile/Drive/Process3.hs
+++ b/compiler/supercompile/Supercompile/Drive/Process3.hs
@@ -613,11 +613,11 @@ memo opt init_state = {-# SCC "memo'" #-} memo_opt init_state
                                 --, Just (heap_inst, k_inst, rn_lr) <- [-- (\res -> if isNothing res then pprTraceSC "no match:" (ppr (fun p)) res   else   pprTraceSC "match!" (ppr (fun p)) res) $
                                 --                                      match' mm (meaning p) reduced_state]
                                 , Just mr <- [{- trace "match" $ (\res -> trace "match'" res) -} (msgMaybe mm (meaning p) reduced_state >>= msgMatch inst_mtch)]
-                                {-
+                                {--}
                                 , if dumped p
                                    then pprTraceSC "tieback-to-dumped" (ppr (fun p)) False
                                    else True
-                                -}
+                                {--}
                                 ] of Just (skip, res) -> pure $ if skip then (res, s) else remember (\_ _ -> liftM ((,) False) res)
                                      Nothing          | CheckOnly <- memo_how
                                                       -> pure (liftM snd $ opt Nothing state, s)