diff options
| author | aarne <aarne@chalmers.se> | 2012-05-15 11:48:30 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-05-15 11:48:30 +0000 |
| commit | a2bae03824fa568c0ad5050f3e841ac168f30a95 (patch) | |
| tree | 5fee6acdee05c4090367481fdd1e00afd4c83b68 /src | |
| parent | dcbb31cae232be5830c98b0185c46cbec2442651 (diff) | |
missing case in partial evaluation of + fixed
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Compile/Compute/ConcreteLazy.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs index c5bdc8a75..4107329fb 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs @@ -195,7 +195,8 @@ computeTermOpt gr = comput True where ---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x'] ,return $ Glue x y ] - (C u v,_) -> comp g $ C u (Glue v y) -- (u ++ v) + y + (C u v,_) -> comp g $ C u (Glue v y) -- (u ++ v) + y + (_,C u v) -> comp g $ C (Glue x u) v -- x ++ (u ++ v) _ -> do mapM_ checkNoArgVars [x,y] |