GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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
b' <- comp g b
case (a',b') of
(Alts _ _, K a) -> checks [do
(Alts _ _, K d) -> checks [do
as <- strsFromTerm a' -- this may fail when compiling opers
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'
]