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

bug fix with ** in Evaluation

Browse Source
This commit is contained in:
aarne
2006-11-13 23:55:50 +00:00
parent 8c59bd88b3
commit 7fc40d2b7a
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/Evaluate.hs
View File

@@ -222,6 +222,9 @@ evalConcrete gr mo = mapMTree evaldef mo where
ExtR a (R b) -> case lookup l b of ----comp g (P (R b) l) of ExtR a (R b) -> case lookup l b of ----comp g (P (R b) l) of
Just (_,v) -> comp g v Just (_,v) -> comp g v
_ -> comp g (P a l) _ -> comp g (P a l)
ExtR (R a) b -> case lookup l a of ----comp g (P (R b) l) of
Just (_,v) -> comp g v
_ -> comp g (P b l)
S (T i cs) e -> prawitz g i (flip P l) cs e S (T i cs) e -> prawitz g i (flip P l) cs e