From d59f54ba411531d66e08857d901007e622e7a7a5 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 15 May 2012 11:48:30 +0000 Subject: [PATCH] missing case in partial evaluation of + fixed --- src/compiler/GF/Compile/Compute/ConcreteLazy.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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]