diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2012-12-06 16:31:49 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2012-12-06 16:31:49 +0000 |
| commit | 08e33edf20e2274b1266b4809ecea5678014b0a3 (patch) | |
| tree | 62ee3fa337df15da2c3c6c985099b22f41808344 /compiler/supercompile/Supercompile/Drive/Split.hs | |
| parent | 5ff68875f73bd52faa3fe94631aab4cb2c05a70b (diff) | |
| download | haskell-supercompiler.tar.gz | |
Last bug fixes and flag additions.supercompiler
Diffstat (limited to 'compiler/supercompile/Supercompile/Drive/Split.hs')
| -rw-r--r-- | compiler/supercompile/Supercompile/Drive/Split.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/supercompile/Supercompile/Drive/Split.hs b/compiler/supercompile/Supercompile/Drive/Split.hs index 933cf393e0..fd35ef542d 100644 --- a/compiler/supercompile/Supercompile/Drive/Split.hs +++ b/compiler/supercompile/Supercompile/Drive/Split.hs @@ -201,7 +201,7 @@ generalise :: MonadStatics m generalise gen (deeds, Heap h ids, k, qa) = do let named_k = nameStack k - (gen_kfs, gen_xs') <- case gENERALISATION of + (gen_kfs, gen_xs') <- case sPLIT_GENERALISATION_TYPE of NoGeneralisation -> Nothing AllEligible -> guard (not (IS.null gen_kfs) || not (isEmptyVarSet gen_xs'')) >> return (gen_kfs, gen_xs'') where gen_kfs = IS.fromList [i | (i, kf) <- trainCars named_k, generaliseStackFrame gen kf] |