1
0
forked from GitHub/gf-core

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 48c7555975
commit beb8cad7d8
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