GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

missing case in partial evaluation of + fixed

Browse Source
This commit is contained in:
aarne
2012-05-15 11:48:30 +00:00
parent dcbb31cae2
commit a2bae03824
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/Compute/ConcreteLazy.hs
View File

@@ -195,7 +195,8 @@ computeTermOpt gr = comput True where
---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x'] ---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x']
,return $ Glue x y ,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 _ -> do
mapM_ checkNoArgVars [x,y] mapM_ checkNoArgVars [x,y]