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

fixed the failure to partial-evaluate pre in right-associative context

Browse Source
This commit is contained in:
aarne
2010-12-11 16:27:35 +00:00
parent 1ed5b52a03
commit 9b5223a06b
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/compiler/GF/Compile/Compute/Concrete.hs
View File

@@ -193,10 +193,17 @@ computeTermOpt rec gr = comput True where
a' <- comp g a a' <- comp g a
b' <- comp g b b' <- comp g b
case (a',b') of case (a',b') of
(Alts _ _, K a) -> checks [do (Alts _ _, K d) -> checks [do
as <- strsFromTerm a' -- this may fail when compiling opers as <- strsFromTerm a' -- this may fail when compiling opers
return $ variants [ return $ variants [
foldr1 C (map K (str2strings (plusStr v (str a)))) | v <- as] foldr1 C (map K (str2strings (plusStr v (str d)))) | v <- as]
,
return $ C a' b'
]
(Alts _ _, C (K d) e) -> checks [do
as <- strsFromTerm a' -- this may fail when compiling opers
return $ C (variants [
foldr1 C (map K (str2strings (plusStr v (str d)))) | v <- as]) e
, ,
return $ C a' b' return $ C a' b'
] ]