Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/961326e48ebd0c306ac50414e2e1a605dd07027a >--------------------------------------------------------------- commit 961326e48ebd0c306ac50414e2e1a605dd07027a Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Jun 22 22:28:55 2011 +0100 Dump debugging code >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process.hs b/compiler/supercompile/Supercompile/Drive/Process.hs index 523a676..6793b3c 100644 --- a/compiler/supercompile/Supercompile/Drive/Process.hs +++ b/compiler/supercompile/Supercompile/Drive/Process.hs @@ -468,7 +468,7 @@ instance Monad ScpM where (!mx) >>= fxmy = ScpM $ \e s k -> unScpM mx e s (\x s -> unScpM (fxmy x) e s k) runScpM :: ScpM (Out FVedTerm) -> (SCStats, Out FVedTerm) -runScpM me = unScpM me init_e init_s (\e' s -> (stats s, letRecSmart (fulfilmentsToBinds $ fst $ partitionFulfilments fulfilmentReferredTo unionVarSets (pprTrace "runScpM0" (ppr (fvedTermFreeVars e') <+> ppr e') $ fvedTermFreeVars e') (pprTrace "runScpM1" (ppr (map (fun . fst) (fulfilments s))) $ fulfilments s)) e')) +runScpM me = unScpM me init_e init_s (\e' s -> (stats s, letRecSmart (fulfilmentsToBinds $ fst $ partitionFulfilments fulfilmentReferredTo unionVarSets (fvedTermFreeVars e') (fulfilments s)) e')) where init_e = ScpEnv { promises = [], fulfilmentStack = [], depth = 0 } init_s = ScpState { names = h_names, fulfilments = [], stats = mempty } _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
