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

This commit is contained in:
aarne
2009-06-20 13:50:34 +00:00
parent ddd6902e7d
commit c8027c8a4c
10 changed files with 318 additions and 314 deletions

View File

@@ -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