From beb8cad7d868b5ef1eb74d8f0d50cb689db613ab Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Jun 2009 13:50:34 +0000 Subject: the construct lin C t now replaces lock fields (in source code; still tempor used internally); lock fields removed from english resource as an example --- src/GF/Compile/Compute.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/GF/Compile/Compute.hs') 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 -- cgit v1.2.3