diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-13 23:55:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-13 23:55:50 +0000 |
| commit | f10d657df18261c688241c4463074f8bc31cf95b (patch) | |
| tree | d033606084f5c6cbdb42c095c62e5742baa514eb /src/GF/Compile/Evaluate.hs | |
| parent | ae4ba74838ece4a5ac5fe4517260b7eb5467967f (diff) | |
bug fix with ** in Evaluation
Diffstat (limited to 'src/GF/Compile/Evaluate.hs')
| -rw-r--r-- | src/GF/Compile/Evaluate.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Compile/Evaluate.hs b/src/GF/Compile/Evaluate.hs index 1f8c328dc..41a6ee17d 100644 --- a/src/GF/Compile/Evaluate.hs +++ b/src/GF/Compile/Evaluate.hs @@ -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 Just (_,v) -> comp g v _ -> 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 |