diff options
Diffstat (limited to 'src/GF/Compile/Compute.hs')
| -rw-r--r-- | src/GF/Compile/Compute.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GF/Compile/Compute.hs b/src/GF/Compile/Compute.hs index cf0803d98..062b6251c 100644 --- a/src/GF/Compile/Compute.hs +++ b/src/GF/Compile/Compute.hs @@ -26,7 +26,7 @@ import GF.Grammar.Macros import GF.Grammar.Lookup import GF.Compile.Refresh import GF.Grammar.PatternMatch -import GF.Grammar.Lockfield (isLockLabel) ---- +import GF.Grammar.Lockfield (isLockLabel,unlockRecord) ---- import GF.Grammar.AppPredefined @@ -219,6 +219,10 @@ computeTermOpt rec gr = comput True where (RecType rs, RecType ss) -> plusRecType r' s' _ -> return $ ExtR r' s' + ELin c r -> do + r' <- comp g r + unlockRecord c r' + T _ _ -> compTable g t V _ _ -> compTable g t |