msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

partial evaluator: fix token glueing bug

Browse Source 
"a"+("b"++"c") was simplified to "bb"++"c" instead of "ab"++c.
This commit is contained in:
hallgren
2013-01-11 15:14:42 +00:00
parent 600761fa05
commit 3712b6988e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/Compute/ConcreteNew.hs
View File

@@ -235,7 +235,7 @@ glue vv = case vv of
x' <- strsFromValue v1
return $ vfv [foldr1 VC (map VString (str2strings (glueStr v u))) | v <- x', u <- y']
(VC va vb,v2) -> VC va (glue (vb,v2))
(v1,VC va vb) -> VC (glue (va,va)) vb
(v1,VC va vb) -> VC (glue (v1,va)) vb
(VS (VV ty pvs vs) vb,v2) -> VS (VV ty pvs [glue (v,v2)|v<-vs]) vb
(v1,VS (VV ty pvs vs) vb) -> VS (VV ty pvs [glue (v1,v)|v<-vs]) vb
-- (v1,v2) -> ok2 VGlue v1 v2